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

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
d4d3e882 · Jeffrey Oldham · Toon Moene · 026c3f13 · d4d3e882 · d4d3e882
Commit d4d3e882 authored Aug 02, 2001 by Jeffrey Oldham Committed by Toon Moene Aug 02, 2001
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletions

gcc/testsuite/ChangeLog
+5 -0

gcc/testsuite/g77.dg/ff90-1.f
+1 -1

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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.

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