flang/test/Semantics/OpenMP/parallel-shared01.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   integer :: i, j, a(10), b(10), c(10)
   6   integer :: k = 10
   7   type my_type
   8   integer :: array(10)
   9   end type my_type
  10
  11   type(my_type) :: my_var
  12
  13   !ERROR: A variable that is part of another variable (as an array or structure element) cannot appear in a PRIVATE or SHARED clause
  14   !$omp parallel shared(my_var%array)
  15   do i = 1, 10
  16     c(i) = a(i) + b(i) +  k
  17     my_var%array(i) = k
  18   end do
  19   !$omp end parallel
  20 end program omp_parallel_shared