URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [logical_select_1.f90] - Rev 307
Go to most recent revision | Compare with Previous | Blame | View Log
LOGICAL :: L = .FALSE.
SELECT CASE (L)
CASE (.TRUE.)
CALL abort
CASE (.FALSE.)
CONTINUE
CASE DEFAULT
CALL abort
END SELECT
SELECT CASE (L)
CASE (.TRUE., .FALSE.)
CONTINUE
CASE DEFAULT
CALL abort
END SELECT
SELECT CASE (L)
CASE (.FALSE.)
CONTINUE
CASE DEFAULT
CALL abort
END SELECT
SELECT CASE (L)
CASE (.NOT. .TRUE.)
CONTINUE
CASE DEFAULT
CALL abort
END SELECT
SELECT CASE (.NOT. L)
CASE (.TRUE.)
CONTINUE
CASE DEFAULT
CALL abort
END SELECT
SELECT CASE (Truth_or_Dare() .OR. L)
CASE (.TRUE.)
CONTINUE
CASE DEFAULT
CALL abort
END SELECT
CONTAINS
FUNCTION Truth_or_Dare ()
LOGICAL Truth_or_Dare
Truth_or_Dare = .TRUE.
END FUNCTION
END
Go to most recent revision | Compare with Previous | Blame | View Log