forked from OSchip/llvm-project
21 lines
507 B
Fortran
21 lines
507 B
Fortran
! RUN: bbc -emit-fir %s -o - | FileCheck %s
|
|
|
|
! CHECK-LABEL: ceiling_test1
|
|
subroutine ceiling_test1(i, a)
|
|
integer :: i
|
|
real :: a
|
|
i = ceiling(a)
|
|
! CHECK: %[[f:.*]] = math.ceil %{{.*}} : f32
|
|
! CHECK: fir.convert %[[f]] : (f32) -> i32
|
|
end subroutine
|
|
! CHECK-LABEL: ceiling_test2
|
|
subroutine ceiling_test2(i, a)
|
|
integer(8) :: i
|
|
real :: a
|
|
i = ceiling(a, 8)
|
|
! CHECK: %[[f:.*]] = math.ceil %{{.*}} : f32
|
|
! CHECK: fir.convert %[[f]] : (f32) -> i64
|
|
end subroutine
|
|
|
|
|