Open Watcom FORTRAN 77 Language Reference

Program Structure Control Statements
(iv) I = 3:
- Y will be assigned the value of the expression Y * 13. + X
- 0.213 will be subtracted from X
- control will pass to the statement after the END SELECT statement
(v) I = 4:
- Z, Y and X will be assigned new values
- the string CASE 4, followed by the values of X, Y and Z will be printed
- control will pass to the statement after the END SELECT statement
(vi) I = 5, 6, ...:
- control will pass to the statement after the END SELECT statement
CASE DEFAULT allows a block of code to be specified for execution when the SELECT expression is out
of range. It must follow all CASE-blocks and thus is ended by the END SELECT statement. The CASE
DEFAULT statement terminates the previous and last CASE-block. Note that only one CASE DEFAULT
block may be specified in a SELECT construct.
If a CASE DEFAULT block were included in the above example, it would be executed in cases (i) and (vi)
of the description. After a CASE DEFAULT block is executed, control then passes to the statement after
the END SELECT statement.
Empty or null case blocks are permitted (that is, two CASE statements with no statements between). The
net result of executing a null CASE-block is to effectively bypass the SELECT construct.
Example:
SELECT CASE ( I * 4 - J )
CASE (-10 : -5)
PRINT *,’First case:’
PRINT *,’-10