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

    <tr>
        <th>Summary</th>
        <td>
            [flang][OpenMP] Compilation error of the same COMMON block specified in two THREADPRIVATE directive clauses
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            new issue
      </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(0303eafcb34647f7d5a4015aad266b5766f5dc5e)
```

The same `COMMON` block specified in two `THREADPRIVATE` directives is a compile-time error.

The following are the test program, flang-new, gfortran and ifort compilation result.

omp30_example_a_25_04_.f90:
```fortran
program main
 call A25_4_GOOD()
  print *,'pass'
end program main

SUBROUTINE A25_4_GOOD()
  COMMON /T/ A
!$OMP THREADPRIVATE(/T/)
  integer :: A
  A=100
  call A25_4S_GOOD()
  if (A.ne.101) print *,'err'
CONTAINS
  SUBROUTINE A25_4S_GOOD()
    COMMON /T/ A
!$OMP THREADPRIVATE(/T/)
    integer :: A
!$OMP PARALLEL COPYIN(/T/)
    A=A+1
!$OMP END PARALLEL
  END SUBROUTINE A25_4S_GOOD
END SUBROUTINE A25_4_GOOD
```

```
$ flang-new -flang-experimental-exec -fopenmp omp30_example_a_25_04_.f90
error: Semantic errors in omp30_example_a_25_04_.f90
./omp30_example_a_25_04_.f90:16:22: error: 't' appears in more than one data-sharing clause on the same OpenMP directive
 !$OMP THREADPRIVATE(/T/)
 ^
./omp30_example_a_25_04_.f90:18:24: error: Non-THREADPRIVATE object 'a' in COPYIN clause
  !$OMP PARALLEL COPYIN(/T/)
 ^
$
```

```
$ gfortran -fopenmp omp30_example_a_25_04_.f90
$
```

```
$ ifort -qopenmp omp30_example_a_25_04_.f90
$
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJysVdtu4zYQ_Rr6hZBAjW72gx4UX9oAiR0k3gX6ZFDSyOZWIlWS3qR_X1CSncSNt5tiAUMWL3NmzujMDDdG7CViRuIbEi8m_GgPSmfqIJVXf5sUqvo7Iwkbf2xBWP4VtRFKUlXTuuFy70l8piTMaZD6zGcEpixkIfK6LMIoidI6rWIesSDmvIIkKeI0Seq4KmMkMBsgLzwMz-0BqeEtUpKw-eb-frMmCaNFo8o_qemwFLXAigpJ7bNyd7a_Py7zxcPj7dd8u3RXK6GxtOI7GioM5bRUbSca9KxokaLWSvuX_mrVNOpZyD3lGqk9ILVoLO202mveEpi_UnaLfa201VxSLisq3GJ0wq3LkEZzbOw7J6rtQrbDF952De74DuIdi3Z-PWMkzC-SMYIPu2MItOVi3KElbxqaQ7yLdr9tNgsC03NCKe20kJYSyAnMCaQdN4ZAOpyirOi_8Ybn05ebx82X7e16eRV6-BiUwGpLYEVPYUNAINrcP9D3H8KZ9hffIAhpcY_aqcYJJz_t5yRcBIydlq8Enz4IQ9SUwDT3JfoBCwjMLjmj1mfK8816m9-un07GlzQ_cvArmF7j-orxkD_md3fLOzrfPPxxu76C4jKTE7gJLs2X68UZ4nTd7V0h2N_46PzN8YfVeLkJ0Zvq94ZXfOlQixal5Y2HL1hSr1YdyrajP9D9IElXji4_T9hyaUU5FKhx9f1ftj6B1Q_rKkhImAM4-LMfAqklkFLedcgHP63qa55LqiTSilvumQPXrhuUDT8apEr2PaHvSpsO5f3Da5MZk_8JcZB4-bMEpo5A9I7AWknvnQuqim9YOv2n3DETcpTUGP1JHZ-S3jlGAtHn1HHujT-tgU-7GDqu99f_xp9UWVjNwhmfYBYk6ZSlcRLNJoes5mEEvJhWELCirOu0DkKWcoSSc5zWMBEZMAhZyBIWsRRmfgkphEk6hShJ6yApScSw5aLxm-Z76yu9nwhjjpglATA2aXiBjemHLoCroP6QALgZrDNn4xXHvSERa4Sx5hXFCtv007ovORIvSHwzSJHECzp_M316pbgpfZbs2M6ujND3YjrrelSPmRx1kx2s7YzrZE4jq72wh2Phl6olsHIRjn9ep5WTIoFVz8sQWPW8_wkAAP__lQ5gGw">