diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/ff90-1.f | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d5ae377..2b9b8e1 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 2120f53..f33eb28 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 |