flang/test/Lower/Intrinsics/ceiling.f90

   1 ! RUN: bbc -emit-fir %s -o - | FileCheck %s
   2
   3 ! CHECK-LABEL: ceiling_test1
   4 subroutine 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