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 integer :: array(10) 8 9 do i = 1, 10 10 array(i) = i 11 end do 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(array(i)) 15 do i = 1, 10 16 c(i) = a(i) + b(i) + k 17 array(i) = k 18 end do 19 !$omp end parallel 20end program omp_parallel_shared 21