diff --git a/flang/test/Lower/Intrinsics/atan_real16.f90 b/flang/test/Lower/Intrinsics/atan_real16.f90
index 3ae037307c32b..2bad58cf35f77 100644
--- a/flang/test/Lower/Intrinsics/atan_real16.f90
+++ b/flang/test/Lower/Intrinsics/atan_real16.f90
@@ -6,15 +6,15 @@
 function test_real16(x)
   real(16) :: x, test_real16
   test_real16 = atan(x)
-end function real16
+end function
 
 ! CHECK-LABEL: @_QPtest_real16
 ! CHECK: fir.call @_FortranAAtanF128({{.*}}){{.*}}: (f128) -> f128
 
 function test_real16_2(y, x)
-  real(16) :: y, x, test_real16
-  test_real16 = atan(y, x)
-end function real16_2
+  real(16) :: y, x, test_real16_2
+  test_real16_2 = atan(y, x)
+end function
 
-! CHECK-LABEL: @_QPtest_real16
+! CHECK-LABEL: @_QPtest_real16_2
 ! CHECK: fir.call @_FortranAAtan2F128({{.*}}){{.*}}: (f128, f128) -> f128