Forcheck - Recursive references

Forcheck detects recursive I/O attempts


c
c                       FORCHECK
c                     Recursive I/O

	PROGRAM IO
	REAL r
	READ (1,*) r
	PRINT *, Fun(r)
	END

	REAL FUNCTION Fun(Arg)
	REAL Arg
	IF (Arg.LT.0.) THEN
	  PRINT *, 'Argument < 0'
	ELSE
	  Fun = LOG(Arg)
	ENDIF
	END



 FORCHECK PC V11.18  MS5 compiler emulation  21-Jun-96  16:41:10  page: 5 
 RECURS.FOR  


 global program analysis:

   FUN, referenced in IO                              
 **[204 I] possible recursive I/O attempt



previous page	top page
Forcheck Contact