1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_rrspacing.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_rrspacing.f90
index 0f411a633b2..e74cf6494fc 100644
--- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_rrspacing.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_rrspacing.f90
@@ -8,18 +8,20 @@ program test_rrspacing
   call test_real8(33.0_8)
   call test_real8(-33.0_8)
 end
-subroutine test_real4(x)
-  real x,y
+subroutine test_real4(orig)
+  real x,y,orig
   integer p
+  x = orig
   p = 24
   y = abs (x * 2.0 ** (- exponent (x))) * (2.0 ** p)
   x = rrspacing(x)
   if (abs (x - y) .gt. abs(x * 1e-6)) call abort
 end
 
-subroutine test_real8(x)
-  real*8 x,y,t
+subroutine test_real8(orig)
+  real*8 x,y,t,orig
   integer p
+  x = orig
   p = 53
   y = abs (x * 2.0 ** (- exponent (x))) * (2.0 ** p)
   x = rrspacing(x)