37 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.7.1 Do Loop Constructs4 5!DEF: /OMP_DO MainProgram6program OMP_DO7 !DEF: /OMP_DO/i ObjectEntity INTEGER(4)8 !DEF: /OMP_DO/j ObjectEntity INTEGER(4)9 !DEF: /OMP_DO/k ObjectEntity INTEGER(4)10 integer i, j, k11 !$omp do12 !DEF: /OMP_DO/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)13 do i=1,1014 !REF: /OMP_DO/j15 do j=1,1016 !REF: /OMP_DO/OtherConstruct1/i17 !REF: /OMP_DO/j18 print *, "it", i, j19 end do20 end do21 !$omp end do22end program OMP_DO23 24!DEF: /omp_do2 (Subroutine)Subprogram25subroutine omp_do226 !DEF: /omp_do2/i ObjectEntity INTEGER(4)27 !DEF: /omp_do2/k ObjectEntity INTEGER(4)28 integer :: i = 0, k29 !$omp do30 !DEF: /omp_do2/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)31 do i=1,1032 !REF: /omp_do2/OtherConstruct1/i33 print *, "it", i34 end do35 !$omp end do36end subroutine omp_do237