39 lines · plain
1! RUN: bbc -emit-fir %s -o - | FileCheck %s --check-prefixes=CHECK%if target=x86_64{{.*}} %{,CHECK-KIND10%}%if flang-supports-f128-math %{,CHECK-KIND16%}2 3! CHECK-LABEL: func @_QPmod_testr4(4subroutine mod_testr4(r, a, p)5 real(4) :: r, a, p6! CHECK: %[[LINE:.*]] = arith.constant {{[0-9]*}} : i327! CHECK: %[[A:.*]] = fir.declare{{.*}}a"8! CHECK: %[[P:.*]] = fir.declare{{.*}}p"9! CHECK: %[[A_LOAD:.*]] = fir.load %[[A]]10! CHECK: %[[P_LOAD:.*]] = fir.load %[[P]]11! CHECK: %[[FILE:.*]] = fir.address_of(@{{.*}}) : !fir.ref<!fir.char<1,{{.*}}>>12! CHECK: %[[FILEARG:.*]] = fir.convert %[[FILE]] : (!fir.ref<!fir.char<1,{{.*}}>>) -> !fir.ref<i8>13! CHECK: fir.call @_FortranAModReal4(%[[A_LOAD]], %[[P_LOAD]], %[[FILEARG]], %[[LINE]]) {{.*}}: (f32, f32, !fir.ref<i8>, i32) -> f3214 r = mod(a, p)15end subroutine16 17! CHECK-LABEL: func @_QPmod_testr8(18subroutine mod_testr8(r, a, p)19 real(8) :: r, a, p20! CHECK: fir.call @_FortranAModReal8(%{{.*}}, %{{.*}}, %{{.*}}, %{{.*}}) {{.*}}: (f64, f64, !fir.ref<i8>, i32) -> f6421 r = mod(a, p)22end subroutine23 24! CHECK-KIND10-LABEL: func @_QPmod_testr10(25subroutine mod_testr10(r, a, p)26 integer, parameter :: kind10 = merge(10, 4, selected_real_kind(p=18).eq.10)27 real(kind10) :: r, a, p28! CHECK-KIND10: fir.call @_FortranAModReal10(%{{.*}}, %{{.*}}, %{{.*}}, %{{.*}}) {{.*}}: (f80, f80, !fir.ref<i8>, i32) -> f8029 r = mod(a, p)30end subroutine31 32! CHECK-KIND16-LABEL: func @_QPmod_testr16(33subroutine mod_testr16(r, a, p)34 integer, parameter :: kind16 = merge(16, 4, selected_real_kind(p=33).eq.16)35 real(kind16) :: r, a, p36! CHECK-KIND16: fir.call @_FortranAModReal16(%{{.*}}, %{{.*}}, %{{.*}}, %{{.*}}) {{.*}}: (f128, f128, !fir.ref<i8>, i32) -> f12837 r = mod(a, p)38end subroutine39