gcc/testsuite/gfortran.dg/pr62135.f90

   1 ! { dg-do compile }
   2 ! { dg-options -Wsurprising }
   3
   4    PROGRAM PR62135
   5       IMPLICIT NONE
   6       CHARACTER*1 :: choice
   7       choice = 'x'
   8       SELECT CASE (choice)
   9          ! This triggered an ICE: an unreachable case clause
  10          ! as the last of a list.
  11          CASE ('2':'7','9':'0') ! { dg-warning "can never be matched" }
  12             WRITE(*,*) "barf"
  13          CASE DEFAULT
  14             CONTINUE
  15       END SELECT
  16    END PROGRAM PR62135
  17