43 lines · plain
1! RUN: bbc -emit-hlfir %s -o - | FileCheck %s --check-prefixes=CHECK%if target=x86_64{{.*}} %{,CHECK-KIND10%}%if flang-supports-f128-math %{,CHECK-KIND16%}2 3! CHECK-LABEL: scale_test14subroutine scale_test1(x, i)5 real :: x, res6 ! CHECK: %[[i:.*]]:2 = hlfir.declare{{.*}}i"7 ! CHECK: %[[res:.*]]:2 = hlfir.declare{{.*}}res"8 ! CHECK: %[[x:.*]]:2 = hlfir.declare{{.*}}x"9 ! CHECK: %[[x_val:.*]] = fir.load %[[x]]#0 : !fir.ref<f32>10 integer :: i11 ! CHECK: %[[i_val:.*]] = fir.load %[[i]]#0 : !fir.ref<i32>12 res = scale(x, i)13 ! CHECK: %[[i_cast:.*]] = fir.convert %[[i_val]] : (i32) -> i6414 ! CHECK: %[[tmp:.*]] = fir.call @_FortranAScale4(%[[x_val]], %[[i_cast]]) {{.*}}: (f32, i64) -> f3215 ! CHECK: hlfir.assign %[[tmp]] to %[[res]]#0 : f32, !fir.ref<f32>16end subroutine scale_test117 18! CHECK-LABEL: scale_test219subroutine scale_test2(x, i)20 real(kind=8) :: x, res21 integer :: i22 res = scale(x, i)23! CHECK: fir.call @_FortranAScale8(%{{.*}}, %{{.*}}) {{.*}}: (f64, i64) -> f6424end subroutine scale_test225 26! CHECK-KIND10-LABEL: scale_test327subroutine scale_test3(x, i)28 integer, parameter :: kind10 = merge(10, 4, selected_real_kind(p=18).eq.10)29 real(kind=kind10) :: x, res30 integer :: i31 res = scale(x, i)32! CHECK-KIND10: fir.call @_FortranAScale10(%{{.*}}, %{{.*}}) {{.*}}: (f80, i64) -> f8033end subroutine scale_test334 35! CHECK-KIND16-LABEL: scale_test436subroutine scale_test4(x, i)37 integer, parameter :: kind16 = merge(16, 4, selected_real_kind(p=33).eq.16)38 real(kind=kind16) :: x, res39 integer :: i40 res = scale(x, i)41! CHECK-KIND16: fir.call @_FortranAScale16(%{{.*}}, %{{.*}}) {{.*}}: (f128, i64) -> f12842end subroutine scale_test443