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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Compile error of end single copyprivate statement written within parallel private construct within task construct
        </td>
    </tr>

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

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

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

<pre>
    ```
Version of flang : 21.0.0(8c7c791284877e36f73c41ffa56b52c13e613993)/AArch64
```

`end single statement` with `copyprivate clause` written in `parallel construct` with `private clause` in `task construct` results in compilation errors.  
The above program is `sngtomp028_21.f90`.  
When `task construct` is removed, the compilation succeeds.  
The above program is `sngtomp028_22.f90`.

The following are the test program, Flang, Gfortran and ifx compilation/execution result.

sngtomp028_21.f90:
```fortran
program main
  real, dimension(:), allocatable :: a
  real, dimension(:), pointer :: b
!$omp task
!$omp parallel private (a, b)
  allocate (a(5))
  allocate (b(10))
!$omp single
  a = 22
  b = 33
!$omp end single copyprivate (a, b)
  if(any(a/=(/(22,j=1,5)/))) print *,'err1'
 if(any(b/=(/(33,k=1,10)/))) print *,'err2'
!$omp end parallel
!$omp end task
  print *,'pass'
end program main
```

```
$ flang -fopenmp sngtomp028_21.f90
flang-20: warning: OpenMP support in flang is still experimental [-Wexperimental-option]
error: Semantic errors in sngtomp028_21.f90
./sngtomp028_21.f90:11:31: error: COPYPRIVATE variable 'a' is not PRIVATE or THREADPRIVATE in outer context
  !$omp end single copyprivate (a, b)
 ^
./sngtomp028_21.f90:11:34: error: COPYPRIVATE variable 'b' is not PRIVATE or THREADPRIVATE in outer context
  !$omp end single copyprivate (a, b)
 ^
$
```

```
$ export OMP_NUM_THREADS=2; gfortran -fopenmp sngtomp028_21.f90; ./a.out
 pass
$
```

```
$ export OMP_NUM_THREADS=2; ifx -qopenmp sngtomp028_21.f90; ./a.out
 pass
$
```

sngtomp028_22.f90:
```fortran
program main
  real, dimension(:), allocatable :: a
  real, dimension(:), pointer :: b
! !$omp task
!$omp parallel private (a, b)
  allocate (a(5))
  allocate (b(10))
!$omp single
  a = 22
  b = 33
!$omp end single copyprivate (a, b)
  if(any(a/=(/(22,j=1,5)/))) print *,'err1'
 if(any(b/=(/(33,k=1,10)/))) print *,'err2'
!$omp end parallel
! !$omp end task
  print *,'pass'
end program main
```

```
$ export OMP_NUM_THREADS=2; flang -fopenmp sngtomp028_21.f90; ./a.out
flang-20: warning: OpenMP support in flang is still experimental [-Wexperimental-option]
 pass
$
```


</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJzsV02P2zYQ_TX0hbBBDa0PH3zQ2lHbQ5pFkiboKaCkkc2EIlWScnb_fUFJ9trrzSYB0iCHAou1qeG8eRy-GY-Ec3KnEdckviHxdiZ6vzd2bfbazJuPs9LU92uSsOmP5e_QOmk0NQ1tlNA7SnhOIVqwBSOQZVVapasIsmWWpsiTJuXVMmoaESdlDFXEMYn4asUJrAgUeW6rfbIkLD-PMC5R19RJvVNInRceW9SeJIx-ln5PScIq0913Vh6ER1op0TscrFZ6j5pKHfZ0wgqlUNHKaOdtX10gXHuPXl64T5ceFl2vvAv2yrSdVMKHFKC1xroFpYTlb_dIRWkOSDtrdla0VLoA5vTOm7ZjkH2AaNGswhlHj_d7_EI46ajF1hywJrChfo8XUV1fVYj1d8SFY9wxucGlMUqZz1LvqLA4hPDo_BEjhC3C5YYvvzXGeis0Fbqmsrk7J0OgwDus-oHYmKUpyPW5eX5-zxMoYfmRdytkWFJqUagQuJYtajdEyYJ3kMyGCqVMJbwoFQbpBfWJb3DrjNQe7dGlDFwgIrA0bUfDFVw8OAnnqBECmQgwZYAL0SYaR0sWD3GubSWBLGIn40OIUdvjfkr4lgIMi3JYcH6x-awYznV_xUo24ZG-Hw0F4duQBCgIZAAENh8J30YENiPbYqIFq3BO7SmBnMCGQIrWRgTSgHkGWT6C5JzA5tMEOR3yWUwYMS_Pdcz1lWG6FfoYqBPOjUCD-6V8rhvJwxKWU8uaN6ZDHS7hSqUsH7bMIQiWfhZWS70LX191qF_eUtd3nbE-tIIRSzrqvFSK4l2HNmjPC0VJfDN_f_5kbrqhYOJt4B0aRwB9g63QXlZTKwmoT1FaECieKqgoIjzn4R89QW5e3f59-_qPd_nbF_QgrBwLBVJBIA1ktfH0aDeWvv399Yt8e3wgNTV9KJPKaI93fkj_d8uQxC--Snr5TaTLn02awNO_RhciwrtBAq9e3n7486-XH0Y2bwjfAuE3dHfsl8-ojN_QkB6xMP1Ad5D0D4keGvT8nx8S-Pon5Fds4fT_Nv4LtnH637fy5-vgq43-USX8hK7_bLHN6jWvV3wlZriO0mUUJ1kW89l-HWV1iUmdAhO8rrFsYpYkTVrVdc1YhtFMroFBzHjEWMRSDos64qtKVDUmUZqIZEWWDFsh1UKpQ7swdjeTzvW4jjiLOZ8pUaJyw_gPMJyO8HxMGwEIrwR2HTznZb9zZMmUdN49YHnp1fDyMA6M8ZbEN2PWSLylm2FWxLHTh3eGL5TAacQ_TfBhSpf6uoRPk_Jxx-X8POutWu-979zQOAoCxU76fV8uKtMSKALv6WPeWfMRK0-gGBLiCBRTTg5r-DcAAP__mw_cCQ">