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

   1 INTEGER         :: I = 1
   2 SELECT CASE (I)
   3    CASE (-3:-5)  ! Can never be matched
   4       CALL abort
   5    CASE (1)
   6       CONTINUE
   7    CASE DEFAULT
   8       CALL abort
   9 END SELECT
  10
  11 I = -3
  12 SELECT CASE (I)
  13    CASE (-3:-5) ! Can never be matched
  14       CALL abort
  15    CASE (1)
  16       CONTINUE
  17    CASE DEFAULT
  18       CONTINUE
  19 END SELECT
  20
  21 I = -5
  22 SELECT CASE (I)
  23    CASE (-3:-5) ! Can never be matched
  24       CALL abort
  25    CASE (-5)
  26       CONTINUE
  27    CASE DEFAULT
  28       CALL abort
  29 END SELECT
  30 END
  31