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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] verification of lowering to FIR failed with "'hlfir.assign' op operand #0 must be any Fortran value or variable type, but got '!fir.boxproc<() -> i32>'"
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang
      </td>
    </tr>

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

    <tr>
      <th>Reporter</th>
      <td>
          k-arrows
      </td>
    </tr>
</table>

<pre>
    Reproducible on Godbolt
https://godbolt.org/z/q8z4GPxGT

Reproducer (`flang-new -fopenmp test.f90`)
```console
$ cat test.f90
  integer :: x
 integer, external, pointer :: y
!$omp parallel private(x) firstprivate(y)
  x = y(1)
!$omp end parallel
end
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJxcUt2OszgMfRpzY7UKDhS44KLf12G0F6sdjfYFAhia3TRhk9CfefoVtNNKIyESHR8fx_ZRIejRMteQ_4L8kKg5Hp2v_90o790lJK3rb_UnT971c6dbw-gsvru-dSaCOIDYH2OcAsg9UAPUjPfQ1vkRqPkCav4rv7L3j-v733f6_f-tyB6BStiJwSg7bixfcDO4ie1pwsghbodKwE4AVY_snbh_nbPBGX6glGGn4itjRRG1jTwuJeQe5B6vD_wBA_1Gvkb2VpnlPrkl8GTfvrVToMydJpyUV8awwcnrs4oMVF6BKhy0D_GF3Z6PRbwiyAPegMr01cJTkG3_FL3H2PY_-kz6WvaVrFTCdVqIKsuqqsiTY50P3O12WV9QW9JAYqB04KFq8zLtZTeoRNckKBNSSFGklOfbTvU7znLelbkU3dBCJviktNkacz4tC0t0CDPXpSzSNDGqZRNWWxCt2wGixSG-Xvibdh4DZMLoEMNLIepoVi81a0Z-gPzXXxPbPz8gP-CZvR50p6J2Ft2Axl3YaztidNj88YmD0oZ7vOh4xKUaFUczaL-9mxSoQDehm9gr2yOQFHiaQ8SWUdkbNs5HryyelZkZncez8lotlo23iZcNt3PE0UUEKoDSRbl118m7DuTvxYZU4QbkG2pJIN9WFiWzN_UPj-t4nNtt505AzdL649hM3v3DXQRq1kkGoGYd5v8BAAD__4OYCUM">