flang/test/Lower/Intrinsics/nint.f90

   1 ! RUN: bbc -emit-fir %s -o - | FileCheck %s
   2
   3 ! CHECK-LABEL: nint_test1
   4 subroutine nint_test1(i, a)
   5     integer :: i
   6     real :: a
   7     i = nint(a)
   8     ! CHECK: fir.call @llvm.lround.i32.f32
   9   end subroutine
  10   ! CHECK-LABEL: nint_test2
  11   subroutine nint_test2(i, a)
  12     integer(8) :: i
  13     real(8) :: a
  14     i = nint(a, 8)
  15     ! CHECK: fir.call @llvm.lround.i64.f64
  16   end subroutine
  17