Skip to content

Commit cfeb8f2

Browse files
authored
[flang] Fix broken atan_real16 test (#98499)
The names in the `end function` were incorrect. Those have been removed.
1 parent 92fc1eb commit cfeb8f2

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

flang/test/Lower/Intrinsics/atan_real16.f90

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -6,15 +6,15 @@
66
function test_real16(x)
77
real(16) :: x, test_real16
88
test_real16 = atan(x)
9-
end function real16
9+
end function
1010

1111
! CHECK-LABEL: @_QPtest_real16
1212
! CHECK: fir.call @_FortranAAtanF128({{.*}}){{.*}}: (f128) -> f128
1313

1414
function test_real16_2(y, x)
15-
real(16) :: y, x, test_real16
16-
test_real16 = atan(y, x)
17-
end function real16_2
15+
real(16) :: y, x, test_real16_2
16+
test_real16_2 = atan(y, x)
17+
end function
1818

19-
! CHECK-LABEL: @_QPtest_real16
19+
! CHECK-LABEL: @_QPtest_real16_2
2020
! CHECK: fir.call @_FortranAAtan2F128({{.*}}){{.*}}: (f128, f128) -> f128

0 commit comments

Comments
 (0)