61 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fopenmp -o - %s 2>&1 | FileCheck %s2 3subroutine simd_ivs4 implicit none5 integer :: ido1 = 16 integer :: ido2 = 27 integer :: ido3 = 38 integer :: ido4 = 49 10 !$omp parallel11 !$omp simd collapse(3)12 do ido1 = 1, 1013 do ido2 = 1, 1014 do ido3 = 1, 1015 do ido4 = 1, 1016 end do17 end do18 end do19 end do20 !$omp end simd21 !$omp end parallel22end subroutine23 24! CHECK: func.func @_QPsimd_ivs() {25! CHECK: %[[IDO1_HOST_DECL:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "{{.*}}Eido1"}26! CHECK: %[[IDO2_HOST_DECL:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "{{.*}}Eido2"}27! CHECK: %[[IDO3_HOST_DECL:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "{{.*}}Eido3"}28 29! CHECK: omp.parallel {30! CHECK: omp.simd private(31! CHECK-SAME: @{{.*}}do1_private{{.*}} %[[IDO1_HOST_DECL]]#0 -> %[[IDO1_PRIV_ARG:[^[:space:]]*]],32! CHECK-SAME: @{{.*}}do2_private{{.*}} %[[IDO2_HOST_DECL]]#0 -> %[[IDO2_PRIV_ARG:[^[:space:]]*]],33! CHECK-SAME: @{{.*}}do3_private{{.*}} %[[IDO3_HOST_DECL]]#0 -> %[[IDO3_PRIV_ARG:[^[:space:]]*]]34! CHECK-SAME: : {{.*}}) {35 36! CHECK: omp.loop_nest (%[[IV1:.*]], %[[IV2:.*]], %[[IV3:.*]]) : {{.*}} {37! CHECK: %[[IDO1_PRIV_DECL:.*]]:2 = hlfir.declare %[[IDO1_PRIV_ARG]] {uniq_name = "{{.*}}Eido1"}38! CHECK: %[[IDO2_PRIV_DECL:.*]]:2 = hlfir.declare %[[IDO2_PRIV_ARG]] {uniq_name = "{{.*}}Eido2"}39! CHECK: %[[IDO3_PRIV_DECL:.*]]:2 = hlfir.declare %[[IDO3_PRIV_ARG]] {uniq_name = "{{.*}}Eido3"}40 41! CHECK: fir.if %{{.*}} {42! CHECK: hlfir.assign %{{.*}} to %[[IDO1_PRIV_DECL]]#043! CHECK: hlfir.assign %{{.*}} to %[[IDO2_PRIV_DECL]]#044! CHECK: hlfir.assign %{{.*}} to %[[IDO3_PRIV_DECL]]#045! CHECK: %[[IDO1_VAL:.*]] = fir.load %[[IDO1_PRIV_DECL]]#046! CHECK: hlfir.assign %[[IDO1_VAL]] to %[[IDO1_HOST_DECL]]#047! CHECK: %[[IDO2_VAL:.*]] = fir.load %[[IDO2_PRIV_DECL]]#048! CHECK: hlfir.assign %[[IDO2_VAL]] to %[[IDO2_HOST_DECL]]#049! CHECK: %[[IDO3_VAL:.*]] = fir.load %[[IDO3_PRIV_DECL]]#050! CHECK: hlfir.assign %[[IDO3_VAL]] to %[[IDO3_HOST_DECL]]#051! CHECK: }52! CHECK-NEXT: omp.yield53! CHECK: }54 55! CHECK: }56 57! CHECK: omp.terminator58! CHECK: }59 60! CHECK: }61