diff options
| author | Jeffrey Oldham <oldham@codesourcery.com> | 2001-08-02 19:58:29 +0000 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2001-08-02 19:58:29 +0000 |
| commit | d4d3e88298e2b1f4029d31c29e1a5ae893047e3f (patch) | |
| tree | 33147b07651bd43d6682b598de398942eec0ed03 | |
| parent | 026c3f133580e5233002dd5e39e1f2ac770cd041 (diff) | |
| download | gcc-d4d3e88298e2b1f4029d31c29e1a5ae893047e3f.zip gcc-d4d3e88298e2b1f4029d31c29e1a5ae893047e3f.tar.gz gcc-d4d3e88298e2b1f4029d31c29e1a5ae893047e3f.tar.bz2 | |
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
| -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 |