35 lines · plain
1! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s2! RUN: %flang_fc1 -emit-fir -flang-deprecated-no-hlfir %s -o - | FileCheck %s3 4! CHECK-LABEL: func @_QPerfc_scaled4(5! CHECK-SAME: %[[x:[^:]+]]: !fir.ref<f32>{{.*}}) -> f326function erfc_scaled4(x)7 real(kind=4) :: erfc_scaled48 real(kind=4) :: x9 erfc_scaled4 = erfc_scaled(x);10! CHECK: %[[a1:.*]] = fir.load %[[x]] : !fir.ref<f32>11! CHECK: %{{.*}} = fir.call @_FortranAErfcScaled4(%[[a1]]) {{.*}}: (f32) -> f3212end function erfc_scaled413 14 15! CHECK-LABEL: func @_QPerfc_scaled8(16! CHECK-SAME: %[[x:[^:]+]]: !fir.ref<f64>{{.*}}) -> f6417function erfc_scaled8(x)18 real(kind=8) :: erfc_scaled819 real(kind=8) :: x20 erfc_scaled8 = erfc_scaled(x);21! CHECK: %[[a1:.*]] = fir.load %[[x]] : !fir.ref<f64>22! CHECK: %{{.*}} = fir.call @_FortranAErfcScaled8(%[[a1]]) {{.*}}: (f64) -> f6423end function erfc_scaled824 25 26! CHECK-LABEL: func @_QPderfc_scaled8(27! CHECK-SAME: %[[x:[^:]+]]: !fir.ref<f64>{{.*}}) -> f6428function derfc_scaled8(x)29 real(kind=8) :: derfc_scaled830 real(kind=8) :: x31 derfc_scaled8 = derfc_scaled(x);32! CHECK: %[[a1:.*]] = fir.load %[[x]] : !fir.ref<f64>33! CHECK: %{{.*}} = fir.call @_FortranAErfcScaled8(%[[a1]]) {{.*}}: (f64) -> f6434end function derfc_scaled835