From: Jeffrey Oldham <oldham@codesourcery.com>
Date: Thu, 2 Aug 2001 19:58:29 +0000 (+0000)
Subject: ff90-1.f (s): Fix reference of variable z, should be x.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d4d3e88298e2b1f4029d31c29e1a5ae893047e3f;p=gcc.git

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 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