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