17 lines · plain
1! RUN: bbc -emit-fir %s -o - | FileCheck %s2 3! CHECK-LABEL: nint_test14subroutine nint_test1(i, a)5 integer :: i6 real :: a7 i = nint(a)8 ! CHECK: fir.call @llvm.lround.i32.f329 end subroutine10 ! CHECK-LABEL: nint_test211 subroutine nint_test2(i, a)12 integer(8) :: i13 real(8) :: a14 i = nint(a, 8)15 ! CHECK: fir.call @llvm.lround.i64.f6416 end subroutine17