21 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 6function test_real16(x)7 real(16) :: x, test_real168 test_real16 = atan(x)9end function10 11! CHECK-LABEL: @_QPtest_real1612! CHECK: fir.call @_FortranAAtanF128({{.*}}){{.*}}: (f128) -> f12813 14function test_real16_2(y, x)15 real(16) :: y, x, test_real16_216 test_real16_2 = atan(y, x)17end function18 19! CHECK-LABEL: @_QPtest_real16_220! CHECK: fir.call @_FortranAAtan2F128({{.*}}){{.*}}: (f128, f128) -> f12821