Open Watcom FORTRAN 77 Language Reference

Program Structure Control Statements
This feature is helpful in avoiding duplication of code for a function (such as I/O) required in a number of
places throughout a program. It can also be an aid to writing a well-structured program.
Each REMOTE-block within the same program unit must have a different name and it must not be a
subprogram or variable name. Note that a REMOTE-block is local to the program unit in which it is
defined and may not be referenced (executed) from another program unit.
REMOTE-blocks may be defined anywhere in the program unit except as follows.
1. They must follow all specification statements.
2. They must not be defined within a control structure.
If a REMOTE BLOCK statement is encountered during execution, control is transferred to the statement
following the corresponding END BLOCK statement.
Note that the nested definition of REMOTE-blocks is not permitted.
Example:
EXECUTE A
PRINT *, ’FIRST’
.
.
.
EXECUTE A
PRINT *, ’SECOND’
.
.
.
REMOTE BLOCK A
I = I + 1
PRINT *, ’I=’, I
END BLOCK
Both EXECUTE statements will cause REMOTE-block A to be executed. That is, variable I will be
incremented and its value will be printed. When the block has been executed by the first EXECUTE
statement, control returns to the PRINT statement following it and the word FIRST is printed. Similarly,
when the block is executed by the second EXECUTE statement, control returns to the PRINT statement
following it and the word SECOND is printed.
REMOTE-blocks may be executed from other REMOTE-blocks. For example, REMOTE-block A might
contain the statement EXECUTE B, where B is a REMOTE-block defined elsewhere in the program unit.
The execution of REMOTE-blocks from other REMOTE-blocks may take place to any level; however, the
recursive execution of REMOTE-blocks is not permitted, either directly or through a chain of EXECUTE
statements. Attempts to execute REMOTE-blocks recursively are detected as errors at execution time.
EXECUTE and REMOTE BLOCK 205