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