<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/81946>81946</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Compilation error of a host-associated allocatable variable in a `private` clause
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            openmp,
            flang:frontend
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          yus3710-fj
      </td>
    </tr>
</table>

<pre>
    This is an issue from Fujitsu testsuite.

A compilation error occurs when compiling a host-associated allocatable variable in a `private` clause.

The following are the test program and the compilation results of flang-new and gfortran.

```fortran
! test.f90
integer,allocatable::vs(:)
call ss1

contains
subroutine ss1
!$omp parallel private(vs)
!$omp end parallel
end subroutine
end
```
```console
$ flang-new -v test.f90 -fopenmp
flang-new version 19.0.0git (https://github.com/llvm/llvm-project.git a6b846ae1e58e11160185e427e20a995f6656859)
Target: aarch64-unknown-linux-gnu
Thread model: posix
InstalledDir: /path/to/install/bin
Found candidate GCC installation: /opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12
Selected GCC installation: /opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12
Candidate multilib: .;@m64
Selected multilib: .;@m64
 "/path/to/install/bin/flang-new" -fc1 -triple aarch64-unknown-linux-gnu -emit-obj -fopenmp -fcolor-diagnostics -mrelocation-model pic -pic-level 2 -pic-is-pie -target-cpu generic -target-feature +outline-atomics -target-feature +v8a -target-feature +fp-armv8 -target-feature +neon -mframe-pointer=non-leaf -o /tmp/test-f4e165.o -x f95-cpp-input test.f90
error: loc("/path/to/test.f90":7:24): 'fir.allocmem' op invalid type for allocation
error: verification of lowering to FIR failed
```
```console
$ gfortran-13.2 test.f90 -fopenmp
$
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy8VduO4zYM_RrlhZAhy5fED3nIzMDFPhQt2v0BRaYdTWVRkOTM7t8XsjPZ2dkLsChQIHBs8oiUDqlDFaOZHOKRNQ-sedqpJV0oHD8vsdqXgo_PuzMNn48fLyaCiaAcmBgXhDHQDP3ybFJcIGFMcTEJCyaemDhtzxNomr2xKhlygCFQANJ6CRFeLuhuXuMmUHChmLiKkbRRCQdQ1pJWSZ0twlUFs74YBwpYK3wwV5WQtQK0VUv8Ou3HC8JI1tLLGjogpAuuWwQfaApqBuWG1fh2fwHjYlMEGmG0yk3c4csKnEYKKSj3VRLWiu13c96sslwTFWMnNotxCScMTD6-ORGrTqw6XSOTh_wquw2rlbUQY_k2jyaXlHFx-4rLOdCSjMM3OFkyWdPswaugrEULr_zIQ87RvcehG-7YzZctX2Lfbe-O-u5Tk4tk8TV6_YY2fr3TAHwkj272G-4L5oohZt7LrhCFmEwCJg-XlHxcOemZ7CeTLsu50DQz2Vt7ff3jPtAz6lTkVao9H-pWYYnNAcuybEV5aLCWe5RCdV0ztm3THpruTsRHFSZMrDqBUkFf2pov7h9HL45b45ZPfHLLayMFVAPMNKDNcE_RfNpcH1xMmb_hyYTsYrL3Kl2Y7BMx2ZvNzWR_NrfW6GlxA2jlBjOohPDb4yPcYGv_3aKQT0z2IUeatOaJyEZMvJTZSpSdSwyZB3PeMEz2r-cIOFxU2o7BZF_KLfXfaFHnS_U_5ny8H3RebDJ5ZXWCglUPrBZzW7_b2c9AwKT8Kb-yv3cVkxL4qEvgKRhv8cclBo6zSZzOz_cOzSvJUuCDUZOjmIyOwOeA68U15PjaCuCNBu6N5havaEFuHyZybxB4WtuLa7_AhA5DBt9sI6q0BAQmH2hJ1jjkKtG8pvkWcj2o75lHz1WYr4fv-RySAz6PQc3IPWXxCax6cuS4RTUCp1zvNPv8xJj4WGPZNgUB_wRj13DtPTfOL-mdjK3inYtjSWfV-qYid7iUrDrtWXWSdb5xa4ftRxOKVf9mnJncA3kw7qqsGSB99lmuw6vi57b8OuUVgxnN5srqbOkFQ5b2RNB_-AtGZSz-qla9ijovq0L-SKyYrN_F2Q3HauiqTu3wWO7FQdSyrOXucqz1vqmUqMpKncVeqE6KoRwqVGIv8DDInTlKIWshy1YI0QlZYFftNdYVtpVom7FjtcBZGVtkhSsoTLt10B4PZVe3O6vOaOM6pKW87TEX4ZFJuXY_q05jIJeybEuZJ3k4rlp5XqbIamFNTPFL7GSSXWd-vy5unljz8IdH9_ufrHmCx2_n9vifh_RuCfb4awKfr3omITLZrzz8GwAA__83NsKk">