| ! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s |
| |
| ! CHECK-LABEL: func.func @_QPanint_test( |
| ! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<f32> {fir.bindc_name = "a"}, |
| ! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<f32> {fir.bindc_name = "b"}) { |
| ! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<f32> |
| ! CHECK: %[[VAL_3:.*]] = llvm.intr.round(%[[VAL_2]]) : (f32) -> f32 |
| ! CHECK: fir.store %[[VAL_3]] to %[[VAL_1]] : !fir.ref<f32> |
| ! CHECK: return |
| ! CHECK: } |
| |
| subroutine anint_test(a, b) |
| real :: a, b |
| b = anint(a) |
| end subroutine |
| |
| ! CHECK-LABEL: func.func @_QPanint_test_real8( |
| ! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<f64> {fir.bindc_name = "a"}, |
| ! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<f64> {fir.bindc_name = "b"}) { |
| ! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<f64> |
| ! CHECK: %[[VAL_3:.*]] = llvm.intr.round(%[[VAL_2]]) : (f64) -> f64 |
| ! CHECK: fir.store %[[VAL_3]] to %[[VAL_1]] : !fir.ref<f64> |
| ! CHECK: return |
| ! CHECK: } |
| |
| subroutine anint_test_real8(a, b) |
| real(8) :: a, b |
| b = anint(a) |
| end subroutine |
| |
| ! CHECK-LABEL: func.func @_QPanint_test_real10( |
| ! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<f80> {fir.bindc_name = "a"}, |
| ! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<f80> {fir.bindc_name = "b"}) { |
| ! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<f80> |
| ! CHECK: %[[VAL_3:.*]] = llvm.intr.round(%[[VAL_2]]) : (f80) -> f80 |
| ! CHECK: fir.store %[[VAL_3]] to %[[VAL_1]] : !fir.ref<f80> |
| ! CHECK: return |
| ! CHECK: } |
| |
| subroutine anint_test_real10(a, b) |
| real(10) :: a, b |
| b = anint(a) |
| end subroutine |
| |
| ! TODO: wait until fp128 is supported well in llvm.round |
| !subroutine anint_test_real16(a, b) |
| ! real(16) :: a, b |
| ! b = anint(a) |
| !end subroutine |