14 lines · plain
1! REQUIRES: flang-supports-f128-math2! RUN: bbc -emit-fir %s -o - | FileCheck %s3! RUN: bbc --math-runtime=precise -emit-fir %s -o - | FileCheck %s4! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s5 6! CHECK: fir.call @_FortranALroundF128({{.*}}){{.*}}: (f128) -> i327! CHECK: fir.call @_FortranALlroundF128({{.*}}){{.*}}: (f128) -> i648 real(16) :: a9 integer(4) :: b10 integer(8) :: c11 b = nint(a, 4)12 c = nint(a, 8)13end14