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 @_FortranAExpF128({{.*}}){{.*}}: (f128) -> f128 7 real(16) :: a, b 8 b = exp(a) 9end 10