C	TEST	PROGRAM
 10	READ	(1,1) X
	WRITE	(4,2) X
	GO TO	10
 1	FORMAT	(F5.2)
 2	FORMAT	(/"X=",10X,F5.2)
	END