gcc/testsuite/gfortran.fortran-torture/execute/logical_select_1.f90

   1 LOGICAL :: L = .FALSE.
   2
   3 SELECT CASE (L)
   4    CASE (.TRUE.)
   5       CALL abort
   6    CASE (.FALSE.)
   7       CONTINUE
   8    CASE DEFAULT
   9       CALL abort
  10 END SELECT
  11
  12 SELECT CASE (L)
  13    CASE (.TRUE., .FALSE.)
  14       CONTINUE
  15    CASE DEFAULT
  16       CALL abort
  17 END SELECT
  18
  19 SELECT CASE (L)
  20    CASE (.FALSE.)
  21       CONTINUE
  22    CASE DEFAULT
  23       CALL abort
  24 END SELECT
  25
  26 SELECT CASE (L)
  27    CASE (.NOT. .TRUE.)
  28       CONTINUE
  29    CASE DEFAULT
  30       CALL abort
  31 END SELECT
  32
  33 SELECT CASE (.NOT. L)
  34    CASE (.TRUE.)
  35       CONTINUE
  36    CASE DEFAULT
  37       CALL abort
  38 END SELECT
  39
  40 SELECT CASE (Truth_or_Dare() .OR. L)
  41    CASE (.TRUE.)
  42       CONTINUE
  43    CASE DEFAULT
  44       CALL abort
  45 END SELECT
  46
  47 CONTAINS
  48
  49    FUNCTION Truth_or_Dare ()
  50       LOGICAL Truth_or_Dare
  51       Truth_or_Dare = .TRUE.
  52    END FUNCTION
  53
  54 END
  55