11 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 @_FortranAFmaF128({{.*}}){{.*}}: (f128, f128, f128) -> f1287 use ieee_arithmetic, only: ieee_fma8 real(16) :: x, y, z9 x = ieee_fma(x, y, z)10end11