From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00,MSGID_SHORT
	autolearn=no autolearn_force=no version=3.4.5-pre1
Date: 22 Nov 91 22:16:30 GMT
From: mcsun!sun4nl!cwi.nl!dik@uunet.uu.net  (Dik T. Winter)
Subject: Re: Red-faced professor gets bitten in search for portability
Message-ID: <4767@charon.cwi.nl>
List-Id: <comp.lang.ada>

In article <1991Nov22.152426.25797@verdix.com> chrisp@verdix.com (The Sunset Ki
d) writes:
 > In article <1991Nov22.090650.28@v7.vitro.com> vaxs09@v7.vitro.com writes:
 > >
 > >	FUNCTION Trunc ( X : Float ) RETURN Integer IS
 > >		i : integer := integer ( x );
 > >		if x < float(i) then
 > >			return i - 1;
 > >		else
 > >			return i;
 > >		endif;
 > >	END Trunc;
 > 
 > This version will not work for negative numbers.
Actually it does not work at all.  I failed to notice in my followup, but
the two return statements must of course be interchanged.
--
dik t. winter, cwi, kruislaan 413, 1098 sj  amsterdam, nederland
dik@cwi.nl (from bitnet also probably: dik@mcvax)