25 lines · plain
1!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s2 3!CHECK-LABEL: func @_QPsb4subroutine sb(a)5 integer :: a(:)6!CHECK: omp.parallel7 !$omp parallel default(private)8!CHECK: hlfir.elemental9 if (any(a/=(/(100,i=1,5)/))) print *, "OK"10 !$omp end parallel11end subroutine12 13!CHECK-LABEL: func @_QPsb214subroutine sb2()15 integer, parameter :: SIZE=2016 integer :: i, a(SIZE)17 18! Just check that the construct below doesn't hit a TODO in lowering.19!CHECK: omp.parallel20 !$omp parallel21 a = [ (i, i=1, SIZE) ]22 print *, i23 !$omp end parallel24end subroutine25