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

global program analysis:


(file: recurs.for, line: 8)
  FUN, referenced in IO
**[454 I] possible recursive I/O attempt