21 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.15.3.3 parallel private Clause4program omp_parallel_private5 integer :: i, j, a(10), b(10), c(10)6 integer :: k = 107 integer :: array(10)8 9 do i = 1, 1010 array(i) = i11 end do12 13 !ERROR: A variable that is part of another variable (as an array or structure element) cannot appear in a PRIVATE clause14 !$omp parallel private(array(i))15 do i = 1, 1016 c(i) = a(i) + b(i) + k17 array(i) = k18 end do19 !$omp end parallel20end program omp_parallel_private21