* g77.f-torture/execute/20000503-1.f: New test.
From-SVN: r33712
This commit is contained in:
parent
6a0177c5b9
commit
7d76ae5622
|
@ -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>
|
||||
|
||||
* gcc.dg/noreturn-2.c: New test.
|
||||
|
|
|
@ -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
|
Loading…
Reference in New Issue