	PROGRAM TESTR8
        REAL*8 A,TAN
	A=1.0D0
        DO 10 I=1,2499
        A=TAN(DATAN(DEXP(DLOG(DSQRT(A*A))))) + 1.0D0
   10	CONTINUE
	TYPE 1000,I,A
 1000	FORMAT(' I=',I5,'   A=',F10.3)
	STOP
	END
	REAL*8 FUNCTION TAN(X)
	REAL*8 X
	TAN=DSIN(X)/DCOS(X)
	RETURN
	END
