logical_select_1.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 56 行

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