llvm/flang/test/Semantics/OpenMP/default02.f90

!RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5
! 2.15.3.1 default Clause - a positive test case.

!DEF: /omp_default MainProgram
program omp_default
 !DEF: /omp_default/a ObjectEntity INTEGER(4)
 !DEF: /omp_default/b ObjectEntity INTEGER(4)
 !DEF: /omp_default/c ObjectEntity INTEGER(4)
 !DEF: /omp_default/i ObjectEntity INTEGER(4)
 !DEF: /omp_default/k ObjectEntity INTEGER(4)
 integer a(10), b(10), c(10), i, k
!$omp parallel  default(shared)
 !DEF: /omp_default/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
 do i=1,10
  !REF: /omp_default/c
  !REF: /omp_default/Block1/i
  !REF: /omp_default/a
  !REF: /omp_default/b
  !REF: /omp_default/k
  c(i) = a(i)+b(i)+k
 end do
!$omp end parallel
!$omp task  default(shared)
 !DEF: /omp_default/Block2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
 do i=1,10
  !REF: /omp_default/c
  !REF: /omp_default/Block2/i
  !REF: /omp_default/a
  !REF: /omp_default/b
  !REF: /omp_default/k
  c(i) = a(i)+b(i)+k
 end do
!$omp end task
!$omp taskloop  default(shared)
 !DEF: /omp_default/Block3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
 do i=1,10
  !REF: /omp_default/c
  !REF: /omp_default/Block3/i
  !REF: /omp_default/a
  !REF: /omp_default/b
  !REF: /omp_default/k
  c(i) = a(i)+b(i)+k
 end do
!$omp end taskloop
!$omp teams  default(shared)
 !REF: /omp_default/i
 do i=1,10
  !REF: /omp_default/c
  !REF: /omp_default/i
  !REF: /omp_default/a
  !REF: /omp_default/b
  !REF: /omp_default/k
  c(i) = a(i)+b(i)+k
 end do
!$omp end teams
end program omp_default