Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!genrad!decvax!ittatc!dcdwest!sdcsvax!sdcrdcf!otto!jim
From: jim@otto.UUCP (Jim Thompson)
Newsgroups: net.lang.f77,net.bugs.4bsd
Subject: Re: Subroutine bug with 4.2 BSD F77.
Message-ID: <147@otto.UUCP>
Date: Wed, 18-Jun-86 07:31:20 EDT
Article-I.D.: otto.147
Posted: Wed Jun 18 07:31:20 1986
Date-Received: Sat, 21-Jun-86 08:30:31 EDT
References: <3174@sjuvax.UUCP>
Reply-To: jim@otto.UUCP (Jim Thompson)
Distribution: net
Organization: Las Vegas Sun -- Las Vegas, NV
Lines: 39
Xref: watmath net.lang.f77:557 net.bugs.4bsd:2189

In article <3174@sjuvax.UUCP> bbanerje@sjuvax.UUCP writes:
>Description:
>	
>	User defined functions always return a value of 0 (including
>	logical functions).
>
>Repeat-By:
>
>	Compile and execute the following program.
>============================================================
>	integer i
C>>>>>>>>>>>>>>>>>>insert this:
	integer bug
C>>>>>>>>>>>>>>>>>>end of fix.
>	i = 1
k>
>Fix:
>	Hopefully fixed in 4.3 BSD.

Now the only remaining question is:

Is this really a bug?

Note:  VMS fortran does the same thing.  Namely,
if bug is declaired then the proper result ('2') is printed.
If not, both output a '0'.



-- 


					Jim Thompson

{ihnp4,sdcrdcf}!otto!jim

[ Usual disclamer:  I have no opinion, therefore I don't exist .]