flang/test/Semantics/OpenMP/parallel-shared05.f90

   1 !RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.15.3.2 parallel shared Clause
   4 program omp_parallel_shared
   5   type derived
   6     integer :: field(2, 3)
   7   end type
   8   integer :: field(2)
   9   type(derived) :: y
  10
  11   ! Check that derived type fields and variables with the same name
  12   ! don't cause errors.
  13   !$omp parallel
  14     y%field(2, 3) = 1
  15     field(1) = 1
  16   !$omp end parallel
  17 end program omp_parallel_shared