1! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s 2! RUN: %flang_fc1 -emit-fir -flang-deprecated-no-hlfir %s -o - | FileCheck %s 3 4! CHECK-LABEL: func @_QPerfc_scaled4( 5! CHECK-SAME: %[[x:[^:]+]]: !fir.ref<f32>{{.*}}) -> f32 6function erfc_scaled4(x) 7 real(kind=4) :: erfc_scaled4 8 real(kind=4) :: x 9 erfc_scaled4 = erfc_scaled(x); 10! CHECK: %[[a1:.*]] = fir.load %[[x]] : !fir.ref<f32> 11! CHECK: %{{.*}} = fir.call @_FortranAErfcScaled4(%[[a1]]) {{.*}}: (f32) -> f32 12end function erfc_scaled4 13 14 15! CHECK-LABEL: func @_QPerfc_scaled8( 16! CHECK-SAME: %[[x:[^:]+]]: !fir.ref<f64>{{.*}}) -> f64 17function erfc_scaled8(x) 18 real(kind=8) :: erfc_scaled8 19 real(kind=8) :: x 20 erfc_scaled8 = erfc_scaled(x); 21! CHECK: %[[a1:.*]] = fir.load %[[x]] : !fir.ref<f64> 22! CHECK: %{{.*}} = fir.call @_FortranAErfcScaled8(%[[a1]]) {{.*}}: (f64) -> f64 23end function erfc_scaled8 24