60 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: ieee_is_normal_f164subroutine ieee_is_normal_f16(r)5 use ieee_arithmetic6 real(KIND=2) :: r7 i = ieee_is_normal(r)8 ! CHECK: %[[l:.*]] = "llvm.intr.is.fpclass"(%{{.*}}) <{bit = 360 : i32}> : (f16) -> i19 ! CHECK: fir.convert %[[l]] : (i1) -> !fir.logical<4>10end subroutine ieee_is_normal_f1611 12! CHECK-LABEL: ieee_is_normal_bf1613subroutine ieee_is_normal_bf16(r)14 use ieee_arithmetic15 real(KIND=3) :: r16 i = ieee_is_normal(r)17 ! CHECK: %[[l:.*]] = "llvm.intr.is.fpclass"(%{{.*}}) <{bit = 360 : i32}> : (bf16) -> i118 ! CHECK: fir.convert %[[l]] : (i1) -> !fir.logical<4>19end subroutine ieee_is_normal_bf1620 21 22 23! CHECK-LABEL: ieee_is_normal_f3224subroutine ieee_is_normal_f32(r)25 use ieee_arithmetic26 real :: r27 i = ieee_is_normal(r)28 ! CHECK: %[[l:.*]] = "llvm.intr.is.fpclass"(%{{.*}}) <{bit = 360 : i32}> : (f32) -> i129 ! CHECK: fir.convert %[[l]] : (i1) -> !fir.logical<4>30end subroutine ieee_is_normal_f3231 32! CHECK-LABEL: ieee_is_normal_f6433subroutine ieee_is_normal_f64(r)34 use ieee_arithmetic35 real(KIND=8) :: r36 i = ieee_is_normal(r)37 ! CHECK: %[[l:.*]] = "llvm.intr.is.fpclass"(%{{.*}}) <{bit = 360 : i32}> : (f64) -> i138 ! CHECK: fir.convert %[[l]] : (i1) -> !fir.logical<4>39end subroutine ieee_is_normal_f6440 41! CHECK-KIND10-LABEL: ieee_is_normal_f8042subroutine ieee_is_normal_f80(r)43 use ieee_arithmetic44 integer, parameter :: kind10 = merge(10, 4, selected_real_kind(p=18).eq.10)45 real(KIND=kind10) :: r46 i = ieee_is_normal(r)47 ! CHECK-KIND10: %[[l:.*]] = "llvm.intr.is.fpclass"(%{{.*}}) <{bit = 360 : i32}> : (f80) -> i148 ! CHECK-KIND10: fir.convert %[[l]] : (i1) -> !fir.logical<4>49end subroutine ieee_is_normal_f8050 51! CHECK-KIND16-LABEL: ieee_is_normal_f12852subroutine ieee_is_normal_f128(r)53 use ieee_arithmetic54 integer, parameter :: kind16 = merge(16, 4, selected_real_kind(p=33).eq.16)55 real(KIND=kind16) :: r56 i = ieee_is_normal(r)57 ! CHECK-KIND16: %[[l:.*]] = "llvm.intr.is.fpclass"(%{{.*}}) <{bit = 360 : i32}> : (f128) -> i158 ! CHECK-KIND16: fir.convert %[[l]] : (i1) -> !fir.logical<4>59end subroutine ieee_is_normal_f12860