75 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.7.1 Loop Construct restrictions on single directive.4! A positive case5 6!DEF: /OMP_DO MainProgram7program OMP_DO8 !DEF: /OMP_DO/i ObjectEntity INTEGER(4)9 !DEF: /OMP_DO/n ObjectEntity INTEGER(4)10 integer i,n11 !$omp parallel12 !DEF: /OMP_DO/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)13 do i=1,1014 !$omp single15 print *, "hello"16 !$omp end single17 end do18 !$omp end parallel19 20 !$omp parallel default(shared)21 !$omp do22 !DEF: /OMP_DO/OtherConstruct2/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)23 !DEF: /OMP_DO/OtherConstruct2/OtherConstruct1/n HostAssoc INTEGER(4)24 do i=1,n25 !$omp parallel26 !$omp single27 !DEF: /work EXTERNAL (Subroutine) ProcEntity28 !DEF: /OMP_DO/OtherConstruct2/OtherConstruct1/OtherConstruct1/OtherConstruct1/i HostAssoc INTEGER(4)29 call work(i, 1)30 !$omp end single31 !$omp end parallel32 end do33 !$omp end do34 !$omp end parallel35 36 !$omp parallel private(i)37 !DEF: /OMP_DO/OtherConstruct3/i (OmpPrivate, OmpExplicit) HostAssoc INTEGER(4)38 do i=1,1039 !$omp single40 print *, "hello"41 !$omp end single42 end do43 !$omp end parallel44 45 !$omp target teams distribute parallel do46 !DEF:/OMP_DO/OtherConstruct4/i (OmpPrivate ,OmpPreDetermined) HostAssoc INTEGER(4)47 do i=1,10048 !REF:/OMP_DO/OtherConstruct4/i49 if(i<10) cycle50 end do51 !$omp end target teams distribute parallel do52 53 !$omp target teams distribute parallel do simd54 !DEF:/OMP_DO/OtherConstruct5/i (OmpLinear,OmpPreDetermined) HostAssoc INTEGER(4)55 do i=1,10056 !REF:/OMP_DO/OtherConstruct5/i57 if(i<10) cycle58 end do59 !$omp end target teams distribute parallel do simd60 61 !$omp target teams distribute 62 !DEF: /OMP_DO/OtherConstruct6/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)63 do i=1,10064 !REF: /OMP_DO/OtherConstruct6/i65 if(i < 5) cycle66 end do67 68 !$omp target teams distribute simd69 !DEF: /OMP_DO/OtherConstruct7/i (OmpLinear, OmpPreDetermined) HostAssoc INTEGER(4)70 do i=1,10071 !REF: /OMP_DO/OtherConstruct7/i72 if(i < 5) cycle73 end do74end program OMP_DO75