20 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.7.1 Loop Construct4! The loop iteration variable may not appear in a firstprivate directive.5! A positive case6 7!DEF: /OMP_DO MainProgram8program OMP_DO9 !DEF: /OMP_DO/i ObjectEntity INTEGER(4)10 integer i11 12 !$omp do firstprivate(k)13 !DEF: /OMP_DO/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)14 do i=1,1015 print *, "Hello"16 end do17 !$omp end do18 19end program OMP_DO20