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