18 lines · plain
1!RUN: %flang_fc1 -emit-hlfir %s -o - | FileCheck %s2 3!CHECK-LABEL: func.func @_QPtime_test() -> i644function time_test()5 Integer(kind=8) :: time_test6 7 8 !CHECK-DAG: %[[func_result:.*]] = fir.alloca i64 {bindc_name = "time_test", uniq_name = "_QFtime_testEtime_test"}9 !CHECK-DAG: %[[func_result_decl:.*]]:{{.*}} = hlfir.declare %[[func_result]] {uniq_name = "_QFtime_testEtime_test"} : {{.*}}fir.ref<i64>{{.*}}10 !CHECK: %[[call_result:.*]] = fir.call @_FortranAtime()11 !CHECK-SAME: -> i6412 13 !CHECK-DAG: hlfir.assign %[[call_result]] to %[[func_result_decl]]#0 : i64, !fir.ref<i64>14 !CHECK-DAG: %[[load_result:.*]] = fir.load %[[func_result_decl]]#0 : !fir.ref<i64>15 !CHECK: return %[[load_result]] : i6416 time_test = time()17end function time_test18