21 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.15.3.2 parallel shared Clause4program omp_parallel_shared5 integer :: i, j, a(10), b(10), c(10)6 integer :: k = 107 type my_type8 integer :: array(10)9 end type my_type10 11 type(my_type) :: my_var12 13 !ERROR: A variable that is part of another variable (as an array or structure element) cannot appear in a SHARED clause14 !$omp parallel shared(my_var%array)15 do i = 1, 1016 c(i) = a(i) + b(i) + k17 my_var%array(i) = k18 end do19 !$omp end parallel20end program omp_parallel_shared21