Open Watcom FORTRAN 77 Language Reference

FORTRAN Statements
2.76 SELECT Statement
SELECT [CASE] (e) [FROM] [: block-label]
The SELECT statement is used in conjunction with the CASE and END SELECT statements. The form of
a SELECT block is as follows:
where:
SELECT [CASE] (e) [FROM] [: block-label]
CASE ( case-list )
statement (s)
CASE ( case-list )
statement (s)
.
.
.
CASE ( case-list )
statement(s)
CASE DEFAULT
statement(s)
END SELECT
e
case-list
is an integer expression.
is a list of one or more cases separated by commas. 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 and FROM keywords are optional in the SELECT statement. An optional block label may be
specified with the SELECT statement.
The case expression e is evaluated and if the result is equal to one of the values covered by case-list
then the control of execution is transferred to the associated CASE block.
SELECT Statement 137