URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 303 |
Rev 338 |
LOGICAL :: L = .FALSE.
|
LOGICAL :: L = .FALSE.
|
|
|
SELECT CASE (L)
|
SELECT CASE (L)
|
CASE (.TRUE.)
|
CASE (.TRUE.)
|
CALL abort
|
CALL abort
|
CASE (.FALSE.)
|
CASE (.FALSE.)
|
CONTINUE
|
CONTINUE
|
CASE DEFAULT
|
CASE DEFAULT
|
CALL abort
|
CALL abort
|
END SELECT
|
END SELECT
|
|
|
SELECT CASE (L)
|
SELECT CASE (L)
|
CASE (.TRUE., .FALSE.)
|
CASE (.TRUE., .FALSE.)
|
CONTINUE
|
CONTINUE
|
CASE DEFAULT
|
CASE DEFAULT
|
CALL abort
|
CALL abort
|
END SELECT
|
END SELECT
|
|
|
SELECT CASE (L)
|
SELECT CASE (L)
|
CASE (.FALSE.)
|
CASE (.FALSE.)
|
CONTINUE
|
CONTINUE
|
CASE DEFAULT
|
CASE DEFAULT
|
CALL abort
|
CALL abort
|
END SELECT
|
END SELECT
|
|
|
SELECT CASE (L)
|
SELECT CASE (L)
|
CASE (.NOT. .TRUE.)
|
CASE (.NOT. .TRUE.)
|
CONTINUE
|
CONTINUE
|
CASE DEFAULT
|
CASE DEFAULT
|
CALL abort
|
CALL abort
|
END SELECT
|
END SELECT
|
|
|
SELECT CASE (.NOT. L)
|
SELECT CASE (.NOT. L)
|
CASE (.TRUE.)
|
CASE (.TRUE.)
|
CONTINUE
|
CONTINUE
|
CASE DEFAULT
|
CASE DEFAULT
|
CALL abort
|
CALL abort
|
END SELECT
|
END SELECT
|
|
|
SELECT CASE (Truth_or_Dare() .OR. L)
|
SELECT CASE (Truth_or_Dare() .OR. L)
|
CASE (.TRUE.)
|
CASE (.TRUE.)
|
CONTINUE
|
CONTINUE
|
CASE DEFAULT
|
CASE DEFAULT
|
CALL abort
|
CALL abort
|
END SELECT
|
END SELECT
|
|
|
CONTAINS
|
CONTAINS
|
|
|
FUNCTION Truth_or_Dare ()
|
FUNCTION Truth_or_Dare ()
|
LOGICAL Truth_or_Dare
|
LOGICAL Truth_or_Dare
|
Truth_or_Dare = .TRUE.
|
Truth_or_Dare = .TRUE.
|
END FUNCTION
|
END FUNCTION
|
|
|
END
|
END
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.