llvm/flang/test/Lower/OpenMP/default-clause-implied-do-fix.f90

!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s

!CHECK-LABEL: func @_QPsb
subroutine sb(a)
  integer :: a(:)
!CHECK: omp.parallel
  !$omp parallel default(private)
!CHECK: hlfir.elemental
    if (any(a/=(/(100,i=1,5)/))) print *, "OK"
  !$omp end parallel
end subroutine

!CHECK-LABEL: func @_QPsb2
subroutine sb2()
  integer, parameter :: SIZE=20
  integer :: i, a(SIZE)

! Just check that the construct below doesn't hit a TODO in lowering.
!CHECK: omp.parallel
  !$omp parallel
    a = [ (i, i=1, SIZE) ]
    print *, i
  !$omp end parallel
end subroutine