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