procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/10965 (g77 compiles illegal code in testsuite)

Browse source 
2003-06-03  David Billinghurst (David.Billinghurst@riotinto.com)

	PR fortran/10965
	* g77.f-torture/compile/20000601-2.f: Fix non-standard code.

From-SVN: r67349
This commit is contained in:
David Billinghurst 2003-06-03 00:10:35 +00:00 • committed by David Billinghurst
parent 5a9f05f2ea
commit b5706132c3
2 changed files with 7 additions and 2 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 @@
2003-06-03 David Billinghurst (David.Billinghurst@riotinto.com)
PR fortran/10965
* g77.f-torture/compile/20000601-2.f: Fix non-standard code.
2003-06-02 Mark Mitchell <mark@codesourcery.com>
* lib/scanasm.exp (dg-scan): New function, factored out of ...

4
gcc/testsuite/g77.f-torture/compile/20000601-2.f
View file

@ -11,14 +11,14 @@
INTEGER KL, KU, LDAB, M
REAL AB( LDAB, * )
INTEGER J, JB, JJ, JP, KV, KM
INTEGER J, JB, JJ, JP, KV, KM, F
REAL WORK13(65,64), WORK31(65,64)
KV = KU + KL
DO J = 1, M
JB = MIN( 1, M-J+1 )
DO JJ = J, J + JB - 1
KM = MIN( KL, M-JJ )
JP = MAX( KM+1, AB( KV+1, JJ ) )
JP = F( KM+1, AB( KV+1, JJ ) )
CALL SSWAP( JB, AB( KV+1+JJ-J, J ), LDAB-1,
$ AB( KV+JP+JJ-J, J ), LDAB-1 )
END DO