1! RUN: %S/test_errors.sh %s %t %f18 -fopenmp 2! XFAIL: * 3 4! OpenMP Version 4.5 5! 2.7.1 Loop Construct 6! The loop iteration variable may not appear in a threadprivate directive. 7 8program omp_do 9 integer i, j, k 10 11 !$omp do firstprivate(i) 12 !ERROR: !$OMP DO iteration variable i is not allowed in threadprivate 13 do i = 1, 10 14 do j = 1, 10 15 print *, "Hello" 16 end do 17 end do 18 !$omp end do 19 20end program omp_do 21