56 lines · plain
1!RUN: bbc -emit-hlfir %s -o - | FileCheck %s2!RUN: %flang_fc1 -emit-hlfir %s -o - | FileCheck %s3 4subroutine test_subroutine(time)5 real :: time6 call second(time)7end subroutine8! CHECK-LABEL: func.func @_QPtest_subroutine(9! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<f32> {fir.bindc_name = "time"}) {10! CHECK: %[[VAL_1:.*]] = fir.dummy_scope : !fir.dscope11! CHECK: %[[VAL_2:.*]]:2 = hlfir.declare %[[VAL_0]] dummy_scope %[[VAL_1]] arg {{[0-9]+}} {uniq_name = "_QFtest_subroutineEtime"} : (!fir.ref<f32>, !fir.dscope) -> (!fir.ref<f32>, !fir.ref<f32>)12! CHECK: %[[VAL_3:.*]] = fir.call @_FortranACpuTime() fastmath<contract> : () -> f6413! CHECK: %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (f64) -> f3214! CHECK: fir.store %[[VAL_4]] to %[[VAL_2]]#0 : !fir.ref<f32>15! CHECK: return16! CHECK: }17 18 19subroutine test_function(time)20 real :: time21 time = second()22end subroutine23! CHECK-LABEL: func.func @_QPtest_function(24! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<f32> {fir.bindc_name = "time"}) {25! CHECK: %[[VAL_1:.*]] = fir.alloca f3226! CHECK: %[[VAL_2:.*]] = fir.dummy_scope : !fir.dscope27! CHECK: %[[VAL_3:.*]]:2 = hlfir.declare %[[VAL_0]] dummy_scope %[[VAL_2]] arg {{[0-9]+}} {uniq_name = "_QFtest_functionEtime"} : (!fir.ref<f32>, !fir.dscope) -> (!fir.ref<f32>, !fir.ref<f32>)28! CHECK: %[[VAL_4:.*]] = fir.call @_FortranACpuTime() fastmath<contract> : () -> f6429! CHECK: %[[VAL_5:.*]] = fir.convert %[[VAL_4]] : (f64) -> f3230! CHECK: fir.store %[[VAL_5]] to %[[VAL_1]] : !fir.ref<f32>31! CHECK: %[[VAL_6:.*]] = fir.load %[[VAL_1]] : !fir.ref<f32>32! CHECK: hlfir.assign %[[VAL_6]] to %[[VAL_3]]#0 : f32, !fir.ref<f32>33! CHECK: return34! CHECK: }35 36subroutine test_function_subexpr(t1, t2)37 real :: t1, t238 t2 = second() - t139end subroutine40! CHECK-LABEL: func.func @_QPtest_function_subexpr(41! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<f32> {fir.bindc_name = "t1"},42! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<f32> {fir.bindc_name = "t2"}) {43! CHECK: %[[VAL_2:.*]] = fir.alloca f3244! CHECK: %[[VAL_3:.*]] = fir.dummy_scope : !fir.dscope45! CHECK: %[[VAL_4:.*]]:2 = hlfir.declare %[[VAL_0]] dummy_scope %[[VAL_3]] arg {{[0-9]+}} {uniq_name = "_QFtest_function_subexprEt1"} : (!fir.ref<f32>, !fir.dscope) -> (!fir.ref<f32>, !fir.ref<f32>)46! CHECK: %[[VAL_5:.*]]:2 = hlfir.declare %[[VAL_1]] dummy_scope %[[VAL_3]] arg {{[0-9]+}} {uniq_name = "_QFtest_function_subexprEt2"} : (!fir.ref<f32>, !fir.dscope) -> (!fir.ref<f32>, !fir.ref<f32>)47! CHECK: %[[VAL_6:.*]] = fir.call @_FortranACpuTime() fastmath<contract> : () -> f6448! CHECK: %[[VAL_7:.*]] = fir.convert %[[VAL_6]] : (f64) -> f3249! CHECK: fir.store %[[VAL_7]] to %[[VAL_2]] : !fir.ref<f32>50! CHECK: %[[VAL_8:.*]] = fir.load %[[VAL_2]] : !fir.ref<f32>51! CHECK: %[[VAL_9:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<f32>52! CHECK: %[[VAL_10:.*]] = arith.subf %[[VAL_8]], %[[VAL_9]] fastmath<contract> : f3253! CHECK: hlfir.assign %[[VAL_10]] to %[[VAL_5]]#0 : f32, !fir.ref<f32>54! CHECK: return55! CHECK: }56