1! RUN: bbc -emit-fir %s -o - | FileCheck %s
2
3! CHECK-LABEL: ceiling_test1
4subroutine ceiling_test1(i, a)
5    integer :: i
6    real :: a
7    i = ceiling(a)
8    ! CHECK: %[[f:.*]] = math.ceil %{{.*}} : f32
9    ! CHECK: fir.convert %[[f]] : (f32) -> i32
10  end subroutine
11  ! CHECK-LABEL: ceiling_test2
12  subroutine ceiling_test2(i, a)
13    integer(8) :: i
14    real :: a
15    i = ceiling(a, 8)
16    ! CHECK: %[[f:.*]] = math.ceil %{{.*}} : f32
17    ! CHECK: fir.convert %[[f]] : (f32) -> i64
18  end subroutine
19
20
21