Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/5/84; site sjuvax.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!princeton!astrovax!sjuvax!bbanerje
From: bbanerje@sjuvax.UUCP (B. Banerjee)
Newsgroups: net.lang.f77,net.bugs.4bsd
Subject: Subroutine bug with 4.2 BSD F77.
Message-ID: <3174@sjuvax.UUCP>
Date: Fri, 13-Jun-86 11:29:14 EDT
Article-I.D.: sjuvax.3174
Posted: Fri Jun 13 11:29:14 1986
Date-Received: Tue, 17-Jun-86 21:21:29 EDT
Distribution: net
Organization: St. Joseph's University, Phila. PA.
Lines: 25
Xref: watmath net.lang.f77:545 net.bugs.4bsd:2167

Description:
	
	User defined functions always return a value of 0 (including
	logical functions).

Repeat-By:

	Compile and execute the following program.
============================================================
	integer i
	i = 1
	print *, bug(i)
	stop
	end


	integer function bug(i)
	integer i

	bug = 2
	return
	end

Fix:
	Hopefully fixed in 4.3 BSD.