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
18