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

* g77.f-torture/execute/20000503-1.f: New test.

Browse Source 
From-SVN: r33712
This commit is contained in:
David Billinghurst 2000-05-05 10:31:25 -06:00 committed by Jeff Law
parent 6a0177c5b9
commit 7d76ae5622
2 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2000-05-05 David Billinghurst <David Billinghurst@riotinto.com.au>
* g77.f-torture/execute/20000503-1.f: New test.
2000-05-04 Andreas Jaeger <aj@suse.de> 2000-05-04 Andreas Jaeger <aj@suse.de>
* gcc.dg/noreturn-2.c: New test. * gcc.dg/noreturn-2.c: New test.

24
gcc/testsuite/g77.f-torture/execute/20000503-1.f Normal file
View File

@ -0,0 +1,24 @@
*
* Originally derived from LAPACK 3.0 test suite failure.
*
* David Billinghurst, (David.Billinghurst@riotinto.com.au)
* 23 February 2000
*
INTEGER N, I, SLASQX
N = 20
I = SLASQX( N )
IF ( I .NE. 2*N ) THEN
WRITE(6,*) 'I = ', I, ' but should be ', 2*N
CALL ABORT()
END IF
END
INTEGER FUNCTION SLASQX( N )
INTEGER N, I0, I, K
I0 = 1
DO I = 4*I0, 2*( I0+N-1 ), 4
K = I
END DO
SLASQX = K
RETURN
END