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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Compilation error of adjustable explicit-shape array specified in PRIVATE clause
        </td>
    </tr>

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

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

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

<pre>
    ```
Version of flang-new : 18.0.0(cc627828f5176c6d75a25f1756d387d18539c1fb)
```

`Adjustable explicit-shape array` specified in `PRIVATE` clause results in a compilation error.

The following are the test program, Flang-new, Gfortran and ifort compilation result.

snggk268_2.f90:
```fortran
subroutine test01(ic)
  common/com01/ i3,iarr(10)
  integer ic(iarr(i3))
!$omp parallel private(ic)
!$omp end parallel
end subroutine test01
```

```
$ flang-new snggk268_2.f90 -c -fopenmp
error: Semantic errors in snggk268_2.f90
./snggk268_2.f90:3:14: error: 'iarr' is not an object that can appear in an expression
    integer ic(iarr(i3))
               ^^^^
./snggk268_2.f90:2:20: Declaration of 'iarr'
    common/com01/ i3,iarr(10)
 ^^^^
$
```

```
$ gfortran snggk268_2.f90 -c -fopenmp
$
```

```
$ ifort snggk268_2.f90 -c -qopenmp
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyUVE2P2zYQ_TXUZWCBor4POjjrqOihaNAGuRYUNZS4pUiVpJLm3xeUveu1t013DRk2ydF7w3kzj3uvJoPYkfIDKU8J38JsXWdnYw_yMRns-L0jFb089ETo8Qs6r6wBK0FqbqaDwW9A8iNkTUpTSlgjRMXqhjWyzOpKVGNdclbKrC6rMW_qMWvKvBWZHAhrz5B3DM-bx_Fx84EPGgH_XrUSKhz8zFcE7hz_TioKfkWhpMIRlAFS0U-__fzl-PljPBKabx7Bod908PGcg7DLqjQP8QLonHXpS8rPM4K0WttvykzAHUKYEQL6AKuzk-MLYQ_QP906Ln6S1gXHDXAzgoqLG44z-Q2JN9P0J6uaP1gqW0ry410NLoCX4G1wdgvKnNOgGWGNEs-Fg0i2WENYL-wST3tQOWEPijtHWJPRF6HKBJzQQXy_uQTE4PaqA8sIK-yywsod1xo1rE595QFvaa9xaMbn2PNZ3Hmd9Q9lvtlkxYu2uq0VHAQcpF3RLOuFLEoYe-93XLgJSpxF3cW-q_MenxLWv6p_TvJjVkSUZzjC6nOBalAejA3ADdjhEUWAMPMAIiq-rsjd3lcm9qdDHwfjqdxvKTjcfkj58fr8d8IsfuMfOKHQ3J1bzcoXaV_h394gr9kJK96n3PQ0Df8n3LuRz6P1L7B_vQU2Gbt8bPOWJ9hlVVu1NK_rIpm7QRRYt21ZymyQTZvxrELK6xyxFJJWRaI6Rlme0YxSRtu8SCspWJmVmZRVRfNCkILiwpVOtf66pNZNifJ-w65qqpIlmg-o_e6ujO19TRiLRuu6GH8YtsmTgmrlg78iBBX0bsm71ZDyRMoPv65ofvlEyhM83HtYlJ7_2CpvffJikheHTDanuzmE1UczYj1h_aTCvA2psAthfUzr8nNYnY1DQFi_39IT1u8X_ScAAP__w6DR_g">