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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Compilation failure in 627.cam4_s
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          kiranchandramohan
      </td>
    </tr>
</table>

<pre>
    Pointer association for a private variable fails in an OpenMP region with the following error.

```
physpkg.fppized.f90":713:7): expr was not lowered to MutableBoxValue
```

A minimal reproducer will be something like the following:
```
subroutine sb(pbuf)
 real(kind=8), target, dimension(:) :: pbuf
 real(kind=8), pointer, dimension(:) :: teout
 integer :: c
!$OMP PARALLEL DO PRIVATE (C, TEOUT)
   do c=1,100
 teout  => pbuf
   end do
!$OMP END PARALLEL DO
end subroutine
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJx8U1FvszgQ_DXmZVUENpDwwAMNiXRSe4mqXl9PBi_gi7GRbZr2fv0nk3xqv6qqhGzQrGdm1wx3Tg4asSL5PcmbiC9-NLY6S8t1N3ItLJ_MyHXUGvFenYzUHi1w50wnuZdGQ28scJitfOUe4ZVbyVuF0HOpHEgNXMNxRv14AotDOHCRfgQ_IvRGKXORegC01tiYJA1J6ttaJLdn_ZzHdzefh7ifZ_k_irgvE0IpYfUmZWEltCSsBnybLVy4A208KHNBiwK8gcfFB1P35u2FqwW_lbiuNUxSy4krsDhbI5YOLVykUtAiODOhH4NhJc_4Zw-Efe_cLa01i5cawbWEbud26YPbFQSLXBG6PUstCGu2AaA78NwO6MObkBNqJ40mdBsUaAlhYzWsPD-RzNe7-pnFo1n8jSaUD2h_Q92tHZoSmh0fT3Cqn-qHh_0DNEc4Pf31Uj_vgdDtLig874__PH-0BSAMdIQ1KaG7NLmN4qoGQFhD2P5zBwCoBQjzVXL_d_NZ9gqH0o-pfhl6JComSlbyCKu02BZJkRTlJhqros-LPk82ncjSLi0ZEwXrRMeLLm27su0jWdGEslCfZmnKNjHSokcmsnZTUMEFJVmCE5cqVup1io0dIuncglXB0mwTKd6icmuMKNV4gRUMP2neRLYKZ-7aZXAkS5R03n2weOnVmr-D4nogeUPy-2tiSN7AzkyzVLeocakWiyFVBd3EHZ-yf120WFWN3s9uvdoDoYdB-nFp485MhB6Czm27m635DztP6GF15wg9rO5_BQAA___mlDZO">