1! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp 2! REQUIRES: shell 3! OpenMP Version 4.5 4! 2.7.1 Loop Construct 5! The loop iteration variable may not appear in a firstprivate directive. 6! A positive case 7 8!DEF: /omp_do MainProgram 9program omp_do 10 !DEF: /omp_do/i ObjectEntity INTEGER(4) 11 integer i 12 13 !$omp do firstprivate(k) 14 !DEF: /omp_do/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) 15 do i=1,10 16 print *, "Hello" 17 end do 18 !$omp end do 19 20end program omp_do 21