C
C     TEST PROGRAM
C
	PROGRAM TEST41
C
	IMPLICITNONE
C
	INTEGER I, J, K
	REAL    A, B, C
C
	I=11
	J=22
	K=I+J
C
	A=11.0
	B=22.0
	C=A+B
C
	TYPE  100 , K, C
C
100	FORMAT ('  TEST FORT 4.1',I5,'  ',F8.4)
C
	END
C