1!RUN: %python %S/../test_errors.py %s %flang -fopenmp 2! OpenMP Version 4.5 3! 2.15.3.2 parallel shared Clause 4program 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 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 20end program omp_parallel_shared 21