Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!princeton!caip!brl-adm!brl-smoke!gwyn
From: gwyn@brl-smoke.ARPA (Doug Gwyn )
Newsgroups: net.lang.f77,net.bugs.4bsd
Subject: Re: Subroutine bug with 4.2 BSD F77.
Message-ID: <1348@brl-smoke.ARPA>
Date: Sun, 15-Jun-86 00:25:34 EDT
Article-I.D.: brl-smok.1348
Posted: Sun Jun 15 00:25:34 1986
Date-Received: Sat, 21-Jun-86 06:44:54 EDT
References: <3174@sjuvax.UUCP>
Reply-To: gwyn@brl.arpa (Doug Gwyn (VLD/VMB) <gwyn>)
Distribution: net
Organization: Ballistic Research Lab (BRL), APG, MD.
Lines: 9
Xref: watmath net.lang.f77:554 net.bugs.4bsd:2185

>	print *, bug(i)

At this point, bug() is assumed to be a real-valued function.

>	integer function bug(i)

But now you define it incompatibly.

Too bad the compiler doesn't report an error for this.