Example 1: A variable and array as parameters:
SUBROUTINE SHR ( A, B ) CHARACTER A*8 REAL B(10,10) ... RETURN END
Example 2: Standard alternate returns:
PROGRAM TESTALT CALL RANK ( N, *8, *9 ) WRITE (*,*) 'OK - Normal Return [n=0]' STOP 8 WRITE (*,*) 'Minor - 1st alternate return [n=1]' STOP 9 WRITE (*,*) 'Major - 2nd alternate return [n=2]' END SUBROUTINE RANK ( N, *, * ) IF ( N .EQ. 0 ) RETURN IF ( N .EQ. 1 ) RETURN 1 RETURN 2 END
In this example, the RETURN 1 statement refers to the first alternate return label (first *). The RETURN 2 statement refers to the second alternate return label (second *) specified in the SUBROUTINE statement.