1! REQUIRES: flang-supports-f128-math 2! RUN: bbc -emit-fir %s -o - | FileCheck %s 3! RUN: bbc --math-runtime=precise -emit-fir %s -o - | FileCheck %s 4! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s 5 6! CHECK: fir.call @_FortranALroundF128({{.*}}){{.*}}: (f128) -> i32 7! CHECK: fir.call @_FortranALlroundF128({{.*}}){{.*}}: (f128) -> i64 8 real(16) :: a 9 integer(4) :: b 10 integer(8) :: c 11 b = nint(a, 4) 12 c = nint(a, 8) 13end 14