LOGICAL A(5)
#	TEST.LIB
	END
	SUBROUTINE XXX(B,N)
	LOGICAL B(N)
	WRITE(1,100)B
100	FORMAT(1X,5I5)
	RETURN
	END