Open Watcom FORTRAN 77 Language Reference

Language Reference
2.35 END SELECT Statement
END SELECT
The END SELECT statement is used in conjunction with the SELECT statement. The END SELECT
statement marks the end of a series of CASE blocks.
Example:
SELECT CASE ( CH )
CASE ( ’a’ : ’z’ )
PRINT *, ’Lower case letter’
CASE ( ’A’ : ’Z’ )
PRINT *, ’Upper case letter’
CASE ( ’0’ : ’9’ )
PRINT *, ’Digit’
CASE DEFAULT
PRINT *, ’Special character’
END SELECT
For more information, see the chapter entitled "Program Structure Control Statements" on page 193.
66 END SELECT Statement