URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [20000503-1.f] - Rev 801
Go to most recent revision | Compare with Previous | Blame | View Log
c { dg-do run } * * 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
Go to most recent revision | Compare with Previous | Blame | View Log