Open Watcom FORTRAN 77 Language Reference

FORTRAN Statements
2.10 CASE Statement
CASE cl
where:
cl
is a list, enclosed in parentheses, of one or more cases separated by commas, or the DEFAULT
keyword. A case is either
(a)
(b)
a single integer, logical or character constant expression or
an integer, logical or character constant expression followed by a colon followed by
another expression or the same type. This form of a case defines a range of values
consisting of all integers or characters greater than or equal to the value of the
expression preceding the colon and less than or equal to the value of the expression
following the colon.
The CASE statement is used in conjunction with the SELECT statement. The CASE statement marks the
start of a new CASE block which is a series of zero or more statements ending in another CASE statement, a
CASE DEFAULT statement, or an END SELECT statement.
A particular case value or range of values must not be contained in more than one CASE block.
The CASE DEFAULT statement is used to indicate a block of statements that are to be executed when no
other case is selected.
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
In order to retain compatibility with earlier versions of WATCOM FORTRAN 77 compilers, the
OTHERWISE statement may be used in place of the CASE DEFAULT statement.
For more information, see the chapter entitled "Program Structure Control Statements" on page 193.
CASE Statement 25