URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
c { dg-do run }
|
c { dg-do run }
|
*
|
*
|
* Originally derived from LAPACK 3.0 test suite failure.
|
* Originally derived from LAPACK 3.0 test suite failure.
|
*
|
*
|
* David Billinghurst, (David.Billinghurst@riotinto.com.au)
|
* David Billinghurst, (David.Billinghurst@riotinto.com.au)
|
* 23 February 2000
|
* 23 February 2000
|
*
|
*
|
INTEGER N, I, SLASQX
|
INTEGER N, I, SLASQX
|
N = 20
|
N = 20
|
I = SLASQX( N )
|
I = SLASQX( N )
|
IF ( I .NE. 2*N ) THEN
|
IF ( I .NE. 2*N ) THEN
|
WRITE(6,*) 'I = ', I, ' but should be ', 2*N
|
WRITE(6,*) 'I = ', I, ' but should be ', 2*N
|
CALL ABORT()
|
CALL ABORT()
|
END IF
|
END IF
|
END
|
END
|
|
|
INTEGER FUNCTION SLASQX( N )
|
INTEGER FUNCTION SLASQX( N )
|
INTEGER N, I0, I, K
|
INTEGER N, I0, I, K
|
I0 = 1
|
I0 = 1
|
DO I = 4*I0, 2*( I0+N-1 ), 4
|
DO I = 4*I0, 2*( I0+N-1 ), 4
|
K = I
|
K = I
|
END DO
|
END DO
|
SLASQX = K
|
SLASQX = K
|
RETURN
|
RETURN
|
END
|
END
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.