RETURN

Returns control from a subprogram.

Syntax

RETURN [scalar-integer-expression]

Description

A RETURN statement can appear only in a subprogram.

An expression may appear in a RETURN statement only if alternate returns (one or more asterisks) are specified as dummy arguments in the relevant FUNCTION, SUBROUTINE, or ENTRY statement of the subprogram. An expression with a value i in the range will return to the ith asterisk argument (specified as *label) in the actual argument list. A normal return is executed if i is not in the range 1 to n, where n is the number of dummy argument alternate returns specified.

Examples

SUBROUTINE calc (y, z)
! Subroutine calc checks the range of y.  If
! it exceeds the permitted range, it calls
! an error handler and stops the program
  IF (y > ymax) GO TO 303
  RETURN
! It returns to the caller of calc if the
! calculation proceeds to normal completion.
303 CALL err (3, "OUT OF RANGE")
  STOP 303
END

Related statements

SUBROUTINE and FUNCTION

Related concepts

For more information about returning from a procedure call, see “Returning from a procedure reference”.