flang/test/Semantics/OpenMP/default02.f90

   1 !RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.15.3.1 default Clause - a positive test case.
   4
   5 !DEF: /omp_default MainProgram
   6 program omp_default
   7  !DEF: /omp_default/a ObjectEntity INTEGER(4)
   8  !DEF: /omp_default/b ObjectEntity INTEGER(4)
   9  !DEF: /omp_default/c ObjectEntity INTEGER(4)
  10  !DEF: /omp_default/i ObjectEntity INTEGER(4)
  11  !DEF: /omp_default/k ObjectEntity INTEGER(4)
  12  integer a(10), b(10), c(10), i, k
  13 !$omp parallel  default(shared)
  14  !DEF: /omp_default/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  15  do i=1,10
  16   !REF: /omp_default/c
  17   !REF: /omp_default/Block1/i
  18   !REF: /omp_default/a
  19   !REF: /omp_default/b
  20   !REF: /omp_default/k
  21   c(i) = a(i)+b(i)+k
  22  end do
  23 !$omp end parallel
  24 !$omp task  default(shared)
  25  !DEF: /omp_default/Block2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  26  do i=1,10
  27   !REF: /omp_default/c
  28   !REF: /omp_default/Block2/i
  29   !REF: /omp_default/a
  30   !REF: /omp_default/b
  31   !REF: /omp_default/k
  32   c(i) = a(i)+b(i)+k
  33  end do
  34 !$omp end task
  35 !$omp taskloop  default(shared)
  36  !DEF: /omp_default/Block3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  37  do i=1,10
  38   !REF: /omp_default/c
  39   !REF: /omp_default/Block3/i
  40   !REF: /omp_default/a
  41   !REF: /omp_default/b
  42   !REF: /omp_default/k
  43   c(i) = a(i)+b(i)+k
  44  end do
  45 !$omp end taskloop
  46 !$omp teams  default(shared)
  47  !REF: /omp_default/i
  48  do i=1,10
  49   !REF: /omp_default/c
  50   !REF: /omp_default/i
  51   !REF: /omp_default/a
  52   !REF: /omp_default/b
  53   !REF: /omp_default/k
  54   c(i) = a(i)+b(i)+k
  55  end do
  56 !$omp end teams
  57 end program omp_default