blob: 46af8a1296891a1d5b089e8aedf3be6bba870c60 [file] [log] [blame]
CHARACTER(LEN=6) :: C = "STEVEN"
SELECT CASE (C)
CASE ("AAA":"EEE")
STOP 1
CASE ("R":"T")
CONTINUE
CASE DEFAULT
STOP 2
END SELECT
END