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