From d4d3e88298e2b1f4029d31c29e1a5ae893047e3f Mon Sep 17 00:00:00 2001 From: Jeffrey Oldham Date: Thu, 2 Aug 2001 19:58:29 +0000 Subject: [PATCH] ff90-1.f (s): Fix reference of variable z, should be x. 2001-08-02 Jeffrey Oldham * g77.dg/ff90-1.f (s): Fix reference of variable z, should be x. From-SVN: r44582 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/g77.dg/ff90-1.f | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * g77.dg/ff90-1.f (s): Fix reference of variable z, + should be x. + 2001-08-02 Nathan Sidwell 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