23 lines · plain
1! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s --check-prefixes="CHECK,CHECK-FAST"2! RUN: %flang_fc1 -emit-fir -flang-deprecated-no-hlfir %s -o - | FileCheck %s --check-prefixes="CHECK,CHECK-FAST"3 4function test_real4(y, x)5 real(4) :: x, y, test_real46 test_real4 = atan2d(y, x)7end function8 9! CHECK-LABEL: @_QPtest_real410! CHECK-FAST: %[[atan2:.*]] = math.atan2 %{{.*}}, %{{.*}}: f3211! CHECK: %[[factor:.*]] = arith.constant 57.2957763 : f3212! CHECK: %{{.*}} = arith.mulf %[[atan2]], %[[factor]] fastmath<contract> : f3213 14function test_real8(y, x)15 real(8) :: x, y, test_real816 test_real8 = atan2d(y, x)17end function18 19! CHECK-LABEL: @_QPtest_real820! CHECK-FAST: %[[atan2:.*]] = math.atan2 %{{.*}}, %{{.*}}: f6421! CHECK: %[[factor:.*]] = arith.constant 57.295779513082323 : f6422! CHECK: %{{.*}} = arith.mulf %[[atan2]], %[[factor]] fastmath<contract> : f6423