[Flang][OpenMP]Incorrect execution result of COPYPRIVATE clause specified in SINGLE construct

[ohno-fj]

Version of flang-new : 17.0.0(abe9ae6d414e2b729f320626245e03b8bbde6143)

COPYPRIVATE clause specified in SINGLE construct does not seem to be valid.
The results were the same with or without COPYPRIVATE.

The following are the test program, results of Flang-new, GFortran and ifort compilation and execution.

omp_fp16_sin_cp01_5.f90:

program main
  real(4),save::a
!$omp threadprivate(a)
!$omp parallel
!$omp single
  a=1.0
!$omp end single copyprivate(a)
  write(6,*) "a = ", a
  if (a /= 1.0) then
     write(6,*) "NG"
  endif
!$omp end parallel
  print *,'pass'
end program main

$ export OMP_NUM_THREADS=2; flang-new -fopenmp omp_fp16_sin_cp01_5.f90; ./a.out
 a =  1.
 a =  0.
 NG
 pass
$

$ export OMP_NUM_THREADS=2; gfortran -fopenmp omp_fp16_sin_cp01_5.f90; ./a.out
 a =    1.00000000
 a =    1.00000000
 pass
$

$ export OMP_NUM_THREADS=2; ifort -qopenmp omp_fp16_sin_cp01_5.f90; ./a.out
 a =    1.000000
 a =    1.000000
 pass
$

[llvmbot]

@llvm/issue-subscribers-flang-frontend

[llvmbot]

@llvm/issue-subscribers-openmp

[kiranchandramohan]

Lowering of copyprivate clause is not yet implemented. Have created a patch to message this appropriately as a TODO.
https://reviews.llvm.org/D155596

[llvmbot]

@llvm/issue-subscribers-flang-ir