diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d5ae377b1b0..2b9b8e10087 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-02  Jeffrey Oldham  <oldham@codesourcery.com>
+
+	* g77.dg/ff90-1.f (s): Fix reference of variable z,
+	should be x.
+
 2001-08-02  Nathan Sidwell  <nathan@codesourcery.com>
 
 	Kill -fhonor-std.
diff --git a/gcc/testsuite/g77.dg/ff90-1.f b/gcc/testsuite/g77.dg/ff90-1.f
index 2120f530ef1..f33eb28b21b 100644
--- a/gcc/testsuite/g77.dg/ff90-1.f
+++ b/gcc/testsuite/g77.dg/ff90-1.f
@@ -11,5 +11,5 @@ C { dg-options "-ff90" }
       end
       subroutine s(x)
       double precision x
-      if ( abs(z-2.0d0) .gt. 1.0e-5 ) call abort
+      if ( abs(x-2.0d0) .gt. 1.0e-5 ) call abort
       end