V10/cmd/f2c/doc/f.f

	external f, g
	call foo(f, g)
	end
	logical function f(n)
	f = n .gt. 3
	end
	subroutine foo(f, g)
	external f
	double precision g
	call goo(f,g(3))
	end