15c969af6SKiran Chandramohan!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s 25c969af6SKiran Chandramohan 3*366eade9SLeandro Lupori!CHECK-LABEL: func @_QPsb 45c969af6SKiran Chandramohansubroutine sb(a) 55c969af6SKiran Chandramohan integer :: a(:) 65c969af6SKiran Chandramohan!CHECK: omp.parallel 75c969af6SKiran Chandramohan !$omp parallel default(private) 85c969af6SKiran Chandramohan!CHECK: hlfir.elemental 95c969af6SKiran Chandramohan if (any(a/=(/(100,i=1,5)/))) print *, "OK" 105c969af6SKiran Chandramohan !$omp end parallel 115c969af6SKiran Chandramohanend subroutine 12*366eade9SLeandro Lupori 13*366eade9SLeandro Lupori!CHECK-LABEL: func @_QPsb2 14*366eade9SLeandro Luporisubroutine sb2() 15*366eade9SLeandro Lupori integer, parameter :: SIZE=20 16*366eade9SLeandro Lupori integer :: i, a(SIZE) 17*366eade9SLeandro Lupori 18*366eade9SLeandro Lupori! Just check that the construct below doesn't hit a TODO in lowering. 19*366eade9SLeandro Lupori!CHECK: omp.parallel 20*366eade9SLeandro Lupori !$omp parallel 21*366eade9SLeandro Lupori a = [ (i, i=1, SIZE) ] 22*366eade9SLeandro Lupori print *, i 23*366eade9SLeandro Lupori !$omp end parallel 24*366eade9SLeandro Luporiend subroutine 25