URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 154 |
Rev 816 |
PROGRAM Test_INTEGER_select
|
PROGRAM Test_INTEGER_select
|
|
|
! Every wrong branch leads to destruction.
|
! Every wrong branch leads to destruction.
|
|
|
INTEGER, PARAMETER :: maxI = HUGE (maxI)
|
INTEGER, PARAMETER :: maxI = HUGE (maxI)
|
INTEGER, PARAMETER :: minI = -1 * maxI
|
INTEGER, PARAMETER :: minI = -1 * maxI
|
INTEGER :: I = 0
|
INTEGER :: I = 0
|
|
|
SELECT CASE (I)
|
SELECT CASE (I)
|
CASE (:-1)
|
CASE (:-1)
|
CALL abort
|
CALL abort
|
CASE (1:)
|
CASE (1:)
|
CALL abort
|
CALL abort
|
CASE DEFAULT
|
CASE DEFAULT
|
CONTINUE
|
CONTINUE
|
END SELECT
|
END SELECT
|
|
|
SELECT CASE (I)
|
SELECT CASE (I)
|
CASE (3,2,1)
|
CASE (3,2,1)
|
CALL abort
|
CALL abort
|
CASE (0)
|
CASE (0)
|
CONTINUE
|
CONTINUE
|
CASE DEFAULT
|
CASE DEFAULT
|
call abort
|
call abort
|
END SELECT
|
END SELECT
|
|
|
! Not aborted by here, so it worked
|
! Not aborted by here, so it worked
|
! See about weird corner cases
|
! See about weird corner cases
|
|
|
I = maxI
|
I = maxI
|
|
|
SELECT CASE (I)
|
SELECT CASE (I)
|
CASE (:-1)
|
CASE (:-1)
|
CALL abort
|
CALL abort
|
CASE (1:)
|
CASE (1:)
|
CONTINUE
|
CONTINUE
|
CASE DEFAULT
|
CASE DEFAULT
|
CALL abort
|
CALL abort
|
END SELECT
|
END SELECT
|
|
|
SELECT CASE (I)
|
SELECT CASE (I)
|
CASE (3,2,1,:0)
|
CASE (3,2,1,:0)
|
CALL abort
|
CALL abort
|
CASE (maxI)
|
CASE (maxI)
|
CONTINUE
|
CONTINUE
|
CASE DEFAULT
|
CASE DEFAULT
|
call abort
|
call abort
|
END SELECT
|
END SELECT
|
|
|
I = minI
|
I = minI
|
|
|
SELECT CASE (I)
|
SELECT CASE (I)
|
CASE (:-1)
|
CASE (:-1)
|
CONTINUE
|
CONTINUE
|
CASE (1:)
|
CASE (1:)
|
CALL abort
|
CALL abort
|
CASE DEFAULT
|
CASE DEFAULT
|
CALL abort
|
CALL abort
|
END SELECT
|
END SELECT
|
|
|
SELECT CASE (I)
|
SELECT CASE (I)
|
CASE (3:,2,1,0)
|
CASE (3:,2,1,0)
|
CALL abort
|
CALL abort
|
CASE (minI)
|
CASE (minI)
|
CONTINUE
|
CONTINUE
|
CASE DEFAULT
|
CASE DEFAULT
|
call abort
|
call abort
|
END SELECT
|
END SELECT
|
|
|
END
|
END
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.