ff90-1.f (s): Fix reference of variable z, should be x.

2001-08-02  Jeffrey Oldham  <oldham@codesourcery.com>

	* g77.dg/ff90-1.f (s): Fix reference of variable z,
	should be x.

From-SVN: r44582

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d5ae377b1b03550d9b5669ac2bf5c18d6daab441..2b9b8e1008754d6132af5b3676aa26b770ada73d 100644 (file)
--- 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 2120f530ef10a5e17524192198e032ae5dfc1002..f33eb28b21bc9b6580c10a4c7ebdc6229387602d 100644 (file)
--- 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