OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Jeffrey Oldham 2001-08-02 19:58:29 +00:00 committed by Toon Moene
parent 026c3f1335
commit d4d3e88298
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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> 2001-08-02 Nathan Sidwell <nathan@codesourcery.com>
Kill -fhonor-std. Kill -fhonor-std.

2
gcc/testsuite/g77.dg/ff90-1.f
View File

@ -11,5 +11,5 @@ C { dg-options "-ff90" }
end end
subroutine s(x) subroutine s(x)
double precision 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 end