19 lines · plain
1! RUN: bbc -emit-fir %s -o - | FileCheck %s2 3! CHECK-LABEL: floor_test14subroutine floor_test1(i, a)5 integer :: i6 real :: a7 i = floor(a)8 ! CHECK: %[[f:.*]] = math.floor %{{.*}} : f329 ! CHECK: fir.convert %[[f]] : (f32) -> i3210 end subroutine11 ! CHECK-LABEL: floor_test212 subroutine floor_test2(i, a)13 integer(8) :: i14 real :: a15 i = floor(a, 8)16 ! CHECK: %[[f:.*]] = math.floor %{{.*}} : f3217 ! CHECK: fir.convert %[[f]] : (f32) -> i6418 end subroutine19