28 lines · plain
1! RUN: bbc -emit-hlfir %s -o - | FileCheck %s2 3subroutine test_sleep()4! CHECK-LABEL: func.func @_QPtest_sleep() {5 6 call sleep(1_2)7! CHECK: %[[VAL_0:.*]] = arith.constant 1 : i168! CHECK: %[[VAL_1:.*]] = fir.convert %[[VAL_0]] : (i16) -> i649! CHECK: fir.call @_FortranASleep(%[[VAL_1]]) fastmath<contract> : (i64) -> ()10 11 call sleep(1_4)12! CHECK: %[[VAL_3:.*]] = arith.constant 1 : i3213! CHECK: %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (i32) -> i6414! CHECK: fir.call @_FortranASleep(%[[VAL_4]]) fastmath<contract> : (i64) -> ()15 16 call sleep(1_8)17! CHECK: %[[VAL_6:.*]] = arith.constant 1 : i6418! CHECK: %[[VAL_7:.*]] = fir.convert %[[VAL_6]] : (i64) -> i6419! CHECK: fir.call @_FortranASleep(%[[VAL_7]]) fastmath<contract> : (i64) -> ()20 21 call sleep(1_16)22! CHECK: %[[VAL_9:.*]] = arith.constant 1 : i12823! CHECK: %[[VAL_10:.*]] = fir.convert %[[VAL_9]] : (i128) -> i6424! CHECK: fir.call @_FortranASleep(%[[VAL_10]]) fastmath<contract> : (i64) -> ()25end26! CHECK: return27! CHECK: }28