	PROGRAM PAT03
C
C THIS PROGRAM TESTS PATCH SEQ 4M TO RT-11 FORTRAN V2.1
C RT-11 SOFTWARE DISPATCH 			FEBRUARY 1979
	INTEGER	J(3)
	CALL	X(J)
	TYPE	*,J(3)
	STOP
	END
C
	SUBROUTINE	X(M)
	DIMENSION	M(3)
	N=21
	M(3)=N
	RETURN
	END
