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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Compilation error when derived type with procedure pointer appears within private attribute
        </td>
    </tr>

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

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

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

<pre>
    ```
Version of flang-new : 20.0.0(675c748bb606d75a959481e6014299849cf3094c)/AArch64
```

When building [GAMESS](https://www.msg.chem.iastate.edu/gamess/index.html), the following error is detected.  
When `derived type` with `procedure pointer` appears within `private` attribute, a compilation-time error (`Lowering to LLVM IR failed`) occurs.  

A similar error occurs with `firstprivate` attribute.  
Compilation succeeds in the following case:
- Do not specify `-fopenmp` option.

The following are a self-made reproducer, Flang-new compilation result.

foo.F90:
```fortran
module m1
  type :: typ1
 procedure(), pointer, nopass :: p1  => null()
  end type typ1
contains
  subroutine sub2()
    type(typ1) :: t1
!$omp parallel private(t1)
!$omp end parallel
  end subroutine sub2
end module m1

program main
  use m1
  print *,'pass'
end program main
```

```
$ flang-new -c -fopenmp foo.F90
error: loc("/work/home/ohno/CT/test/fort/tp/reproducerJ/Metro/GAMESS/foo.F90":7:19): Invalid yielded value. Expected type: '!fir.ref<!fir.type<_QMm1Ttyp1{p1:!fir.boxproc<() -> ()>}>>', got: '!fir.ref<!fir.type<_QMm1Ttyp1UnboxProc{p1:() -> ()}>>'
error: Lowering to LLVM IR failed
error: loc("/work/home/ohno/CT/test/fort/tp/reproducerJ/Metro/GAMESS/foo.F90":1:1): LLVM Translation failed for operation: fir.global
error: failed to create the LLVM module
$
```

```
$ flang-new -c foo.F90
$ ls -al *.o
-rw-rw-r--. 1 ohno ohno 7784 Sep 20 15:27 foo.o
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJzEVk9v47YT_TT0ZSBBGsn6c_BBcaIf9ocNuu2m22NBSSObW4oUSCpOvn1BSXYcZ7FA0UMBrTYih28e3jzPkFsrDopox7Z3bHu_4ZM7arPTR6WD_vum0d3rjmXR-kT3LKq-kbFCK9A99JKrQ6DoBCypAKMwCiOGRZZv2zwtmiaLsi7f8nJbpkVMWRSnWJZFWrZ9EpVpy7BkWFeVaY9ZuoDf5FrefxxJQTMJ2Ql1ALa9-1_1-PD1K9veMyyOzo2WJRXDmmF9Op3CwR7C9khDKLh13FFI3cSwPvCBrGVYC9XRS3h0g5wJ7MEdCXotpT55fDJGGxAWOnLUOupCgCseLIs6MuKZOnCvI7EsgpNwR78-Gt1SNxmCUQvlyPhNPo7EjZ2DhFrCxDN380nunBHN5MjT4NDqYRSSO6FV4MRAKxeGBcuiz_pExhN0Gj5__vYIn36DngtJnZcLS9BtOxl7Ybu8K7BiEJKbFWsJulDuhbHuR4QuMPs3TmCntiXqLAh1I1rLLfkizEcCuNegtAM7Uiv6V58o6PVIahh9Ej16tPCa5tM7NG4IOFiSfTDwjsDQaHQ3tWS8TvXFdVd6gSE7SfcOtNc6rMvowutirl4bZ7haVgfdTZJgiJdPmMvqDe097V7H8_qlur4ci3HOZcY9KD1ya8_HxhiAJfcseQA1SbmeWPFJLda5Am-1clwoew6xU2P05IQi_ye-P78wZFjM57G8cF3BGMYMUz2MMHLDpSQJ5wpj4eIL0lucZ3SOvWZ5S2Pe8hs3mi3v0eiD4QMMXKgzymSvlR2NUA4YVgz3DHOvGMP8DfYjwg_7we0ipledKGjh7DU4G2BJ4P3vdZK6nQVF3y-0-YthfdQDMax922NY758Y1o6sY1h7q_ivkWH9ZsP_M6wfyRkfvTYjH7pkQ2RJlbOkikuvdVLBJ_XMpejgVZDsqINnLicK4eFlnBvMUs-kAi8Gxr0woaGeJfv1Y9ne__nr4xA_zUXP78Z47nnzfqNfvDnnA94oEHjjraZJHljujegfD7-Hg3b_JNnvqtEvXzz-JeuHJNcZ3ov9k671H1Qlnv8tRZnZPBmu7NpBFlrQ-y45kpkXfaBX5SB1w-UN5fWA09Aa4o7mnjjDLr-Piz3_hZffWdjvSgsBl_5HFOq13ZrT_ARBCDF4tZZXnhcpfKURMIJ4y5IK8xlO_5zXptslXZmUfEO7OMc8TjCLi81xlyEllPfbtIuoa9q4z4usyNIkj6iMkm22ETuMMI1KTDCJkqQIE45dGedNlCRlWkQxSyMauJChlM9DqM1hI6ydaBdHZY75RvKGpJ2vIoizCiyphJk9sb9aWicJor-xmJ0HC5rpYFkaSWGdfYN3wsn5bjPPDH9h2N79MpJ6_MK293A92pbpePIT_nq8L4Pyw2C_neprf30bn5vJyN37q8lBuOPUhK0eGNae4fpfMBr9nVrv51kNf0VZBXne4d8BAAD__zfi4bI">