CHARACTER*25 TEXT TEXT = "Some kind of minor catastrophe" ... CALL OOPS ( TEXT ) STOP END SUBROUTINE OOPS ( S ) CHARACTER S* 32 WRITE (*,*) S RETURN END
CALL RANK ( N, *8, *9 ) WRITE (*,*) 'OK - Normal Return' STOP 8 WRITE (*,*) 'Minor - 1st alternate return' STOP 9 WRITE (*,*) 'Major - 2nd alternate return' END SUBROUTINE RANK (N, *,*) IF ( N .EQ. 0 ) RETURN IF ( N .EQ. 1 ) RETURN 1 RETURN 2 END