文:制御式の値に対応した文の選択されたブロックにプログラムの制御を移します。「CASE」を参照してください。
例
CHARACTER*1 cmdchar . . . Files: SELECT CASE (cmdchar) CASE ('0') WRITE (*, *) "Must retrieve one to nine files" CASE ('1':'9') CALL RetrieveNumFiles (cmdchar) CASE ('A', 'a') CALL AddEntry CASE ('D', 'd') CALL DeleteEntry CASE ('H', 'h') CALL Help CASE DEFAULT WRITE (*, *) "Command not recognized; please re-enter" END SELECT Files