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

    <tr>
        <th>Summary</th>
        <td>
            [flang][OpenMP] Compilation error of argument with POINTER attribute specified to the ASSOCIATED intrinsic function
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            new issue
      </td>
    </tr>

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

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

<pre>
    ```
Version of flang-new : 17.0.0(0303eafcb34647f7d5a4015aad266b5766f5dc5e)
```

Argument with `POINTER` attribute specified to the `ASSOCIATED` intrinsic function is a compile-time error.

The following are the test program, flang-new, gfortran and ifort compilation result.

omp30_example_a_13_03_2.f90:
```fortran
MODULE LIST
 TYPE NODE
     INTEGER :: PAYLOAD
     TYPE (NODE), POINTER :: NEXT
 END TYPE NODE
CONTAINS
  SUBROUTINE INCREMENT_LIST_ITEMS (HEAD)
 TYPE (NODE), POINTER :: HEAD
    TYPE (NODE), POINTER :: P
!$OMP PARALLEL PRIVATE(P)
!$OMP SINGLE
    P => HEAD
    DO
       P => P%NEXT
       IF ( .NOT. ASSOCIATED (P) ) EXIT
    END DO
!$OMP END SINGLE
!$OMP END PARALLEL
  END SUBROUTINE INCREMENT_LIST_ITEMS
END MODULE LIST

program main
  USE LIST
  TYPE(NODE), TARGET :: a
  TYPE(NODE), POINTER :: p
  a%NEXT => NULL()
  p => a
  CALL INCREMENT_LIST_ITEMS(p)
  PRINT *,"pass"
end program main
```

```
$ flang-new -flang-experimental-exec -fopenmp omp30_example_a_13_03_2.f90
error: Semantic errors in omp30_example_a_13_03_2.f90
./omp30_example_a_13_03_2.f90:15:31: error: POINTER= argument of ASSOCIATED() must be a POINTER
         IF ( .NOT. ASSOCIATED (P) ) EXIT
 ^
./omp30_example_a_13_03_2.f90:9:29: Declaration of 'p'
      TYPE (NODE), POINTER :: P
 ^
$
```

```
$ gfortran -fopenmp omp30_example_a_13_03_2.f90
$
```

```
$ ifort -qopenmp omp30_example_a_13_03_2.f90
$
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJycVl2TojoQ_TXxpUsrJHzIgw-M4FyqGKCU2dp9sgIGzRZfF-Kduf_-VkCUcfbOziylKEl3n5Pukyas68Sx4nyFjAdkuDN2lqe6XdWnqp7nP2dpffh3hUx8-WAXYecbbztRV1DnkBesOs4r_gKIOqBZC7zAiCwxxZSzPEupbupWbh0MpmPNYOxATDM1LNPMjUNmcETsIeQdwnB32uO55JWEFyFPgEwcR36YeFtkYmBStiI9Sw5dwzORC34AWYM8cWXo7HbR2ncSz1W2opKtqDqRQX6uMqmoiw4YZHXZiILPpSg58Lat28UUPjlxyOuiqF9EdQTW8j665J2Epq2PLSsRWd8yoB6Oed3KllXAqgMI9XABYT1qy7tzId-A1GVD8Z6_srIp-J7tNbrHdE8WuY0Rde6Sc4k-jD5F7nPgQeDvkmEAkh-xB2HkepdndamEPXpbVR5Vodj5EUSOOzHonRBZ9n7EVqu4pHn0Cb3vI4IXuvco6yhMHD_cjSF3zw_b6DnxQw_8cL31nrww2SuSez_xnnYK6i_Pca-V_wSB3v7K-Pf28SVtRENEj55iiJ2tEwReAPHW_-YkHiLL-Ca9q9nODx-DSfJiQNRF1Lsj4EaT9E2sYkSMSa6Gy98orrAIo2QBN1nChQKor_fdnzipHI8QN25qdMrv7cy4wDFKb_1xIQZTZfhOSMP9onEomajGuM-7N4Lra_G2FImzffSSsRLs_w3vataMluySxTGr4XMQILK86QWaceoafe0Ewa8XSZbNxDPe-mECiDiIrBEhDes6RMgwy6sDvF_yL_vS_SDRJ31wPvzlrw1vheperJjzV57BPK8bXpUNfLTlByqqFamk7HjJKimyoTl1IKrfOy8Q2XzcVDQDUYdqCuCKNHZW6gIbu26dTwQ7lADKcych5cCuHlOxf1nuyPA-y9pG1CHqBi7PCtYOHbXOARGrQcSaEvl0i7gRQET_WsWvrf7zdf0yxvAGmf_95wCzw4oebGqzGV9pprXElmHqdHZamaZh2jhLM8I41jjDlpUatpbauqZZh8yaiRXBhGKKTaxji9CFaRsWs9PcyIwlzTWKdMxLJopFUfxTLur2OBNdd-YrU9Nse1awlBddf6ggRO2LflLtNsOdtSvlM0_Pxw7puBCd7G5RpJBFfxrpNxIyXGQ8RA2vnmJkuLCevE579SoJsDcHhbHUHxwRJsp8fziYndtidZKy6ZRYyAaRzVHI0zldZHWJyEYxvfzMm7b-yTOJyKZfX4fIpl__fwEAAP__0IOPAA">