1CHARACTER(LEN=6) :: C = "STEVEN" 2 3SELECT CASE (C) 4 CASE ("AAA":"EEE") 5 STOP 1 6 CASE ("R":"T") 7 CONTINUE 8 CASE DEFAULT 9 STOP 2 10END SELECT 11END 12 13