flang/test/Semantics/OpenMP/omp-do05-positivecase.f90

   1 ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.7.1 Loop Construct restrictions on single directive.
   4 ! A positive case
   5
   6 !DEF: /omp_do MainProgram
   7 program omp_do
   8   !DEF: /omp_do/i ObjectEntity INTEGER(4)
   9   !DEF: /omp_do/n ObjectEntity INTEGER(4)
  10   integer i,n
  11   !$omp parallel
  12   !DEF: /omp_do/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  13   do i=1,10
  14     !$omp single
  15     print *, "hello"
  16     !$omp end single
  17   end do
  18   !$omp end parallel
  19
  20   !$omp parallel  default(shared)
  21   !$omp do
  22   !DEF: /omp_do/OtherConstruct2/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  23   !REF: /omp_do/n
  24   do i=1,n
  25     !$omp parallel
  26     !$omp single
  27     !DEF: /work EXTERNAL (Subroutine) ProcEntity
  28     !REF: /omp_do/OtherConstruct2/OtherConstruct1/i
  29     call work(i, 1)
  30     !$omp end single
  31     !$omp end parallel
  32   end do
  33   !$omp end do
  34   !$omp end parallel
  35
  36 end program omp_do