	PROGRAM TESTR4
        REAL*4 A
	A=1.0
        DO 10 I=1,2499
        A=TAN(ATAN(EXP(ALOG(SQRT(A*A))))) + 1.0
   10	CONTINUE
	TYPE 1000,I,A
 1000	FORMAT(' I=',I5,'   A=',F10.3)
	STOP
	END
	FUNCTION TAN(X)
	REAL*4 X
	TAN=SIN(X)/COS(X)
	RETURN
	END
