Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!princeton!caip!seismo!rochester!ken
From: ken@rochester.ARPA (Comfy chair)
Newsgroups: net.lang.f77,net.bugs.4bsd
Subject: Re: Subroutine bug with 4.2 BSD F77.
Message-ID: <18907@rochester.ARPA>
Date: Mon, 16-Jun-86 11:20:14 EDT
Article-I.D.: rocheste.18907
Posted: Mon Jun 16 11:20:14 1986
Date-Received: Wed, 18-Jun-86 03:14:44 EDT
References: <3174@sjuvax.UUCP>
Reply-To: ken@rochester.UUCP (Comfy chair)
Distribution: net
Organization: U of Rochester, CS Dept, Rochester, NY
Lines: 31
Xref: watmath net.lang.f77:547 net.bugs.4bsd:2174
Summary: "fixed" in 4.2

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

Fix:
	integer i
+	integer bug
	i = 1
	print *, bug(i)
	stop
	end


	integer function bug(i)
	integer i

	bug = 2
	return
	end

>Fix:
>	Hopefully fixed in 4.3 BSD.

Meta-fix:
	Read the Fortran standard.

	Ken
-- 
UUCP: ..!{allegra,decvax,seismo}!rochester!ken ARPA: ken@rochester.arpa
Snail: CS Dept., U. of Roch., NY 14627. Voice: Ken!