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 | |