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

    <tr>
        <th>Summary</th>
        <td>
            [flang][OpenMP] Compilation error of COMMON block specified in the PRIVATE clause of the OpenMP DO directive
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
      </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(3e0866bf616bf7b293cec93d06d030dd11d7911f)
```

`COMMON` block specified in the `PRIVATE` clause of the OpenMP `DO` directive is a compile-time error.

omp_PARALLEL_DO_002mall_2.f90:
```fortran
program main
  integer*4 :: loop=50
  integer*1   mii1
  common /com1/ mii1
  mii1 = 0
!$omp parallel
!$omp do private(/com1/)
  do j=1, loop
     mii1 = j
  end do
!$omp end do
!$omp end parallel
 ier = 0
  if(mii1.ne.0) ier=ier+1
  if(ier.eq.0) then
 write(*,*) "OK"
  else
     write(*,*) "NG"
  endif
end program main
```

```
$ flang-new -flang-experimental-exec -fopenmp omp_PARALLEL_DO_002mall_2.f90
error: Semantic errors in omp_PARALLEL_DO_002mall_2.f90
./omp_PARALLEL_DO_002mall_2.f90:7:19: error: COMMON block must be declared in the same scoping unit in which the OpenMP directive or clause appears
  !$omp do private(/com1/)
 ^^^^
$
```

```
$ gfortran -fopenmp omp_PARALLEL_DO_002mall_2.f90
$
```

```
$ ifort -qopenmp omp_PARALLEL_DO_002mall_2.f90
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJykVU1v4zYQ_TX0ZWCBoizZOujgRHFRNFkH22KvAUWOLKb80JJ0sv33BS07dpKmbbCAIMvDId98vDfkIaidRWxIeUXKdsb3cXC-cYN18_5x1jn5V0MqenxoS-j6G_qgnAXXQ6-53c0tPgMp1pAvM5pRwlYF0lVVdX2VV12_7FhdCBR1IWklaUGlzHO5rPO8J6yejnyD8GK83t7dbb-QikKnnfgTwohC9QolKAtxQCAVvf_667f1HzfJSWi-D5gCS2vbEe3dfXJpt2lVKo8iqicEFYCDcGZUGudRGQT03vnsEt2Z8eF-_XV9e3tz-9BuHyhlhmv9wLK-pqRYvwm8dz56bifr6N3OcwOGq6MFQNmIO_SErRepWKle2rmRFG1J3_vkAGCUyk8rwhnjLBC2Ec7khG1eraZvIEULp_qxnLCFMyOM3HOtUb-1SwejV088ImGr86kvDYHk8UiKNifsegr0aIcLuMeTEa0E6d6CfGx9HRYo9JfhA6iesFWCySwmRtXJhRRterOr_JWbQp_h98krDngq-LNXx-TWhF0f3jUQxra_EcZe4tYBLxL7aM-XXy73WKn66c8hlXe9_ojMr4xscSGe-fSJP0b0yqCNXM_xBwqY925Ea0b4dzZOwSQKJ1r9jobbqMRE6pCk8j-2Z4Rt_ovzS1Ks8zphvIBNCj3K0-xDhA5BotDcn1UauEEIwo3K7mBvVUwLz4MSw6VQz_p0_iRlPo7IfTjV_hMEJuXN-TnV_HMN2h1F_ak2fBpFJRSYf_95iJlsClkXNZ9hk1fLarUsaFnOhkbwvGO8WhalkN2qwKrvkRXdYtWval5V9Uw1jLKCMkZpRRd5mS05VlJ0VPZdngvekwVFw5XOtH4ymfO7mQphj01FV1U907xDHU5XiG-S07zb7wJZUK1CDOdtUUV9uGwOlCdlS8qrqf-kbOH6MJN5TNfLgWJplr-i2Lsb4Dj-_3n2t9szq2Z7r5shxjGk8ZuostmpOOy7TDhD2CaFePyZj949ooiEbQ5pBsI2h0z_DgAA__8A5w70">