From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: *
X-Spam-Status: No, score=1.1 required=5.0 tests=BAYES_20,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!lll-crg!rutgers!princeton!siemens!gypsy!emery
From: emery@gypsy.UUCP
Newsgroups: net.lang.ada
Subject: Re: Getting the integer part of a real
Message-ID: <38000035@gypsy.UUCP>
Date: Fri, 7-Nov-86 10:31:00 EST
Article-I.D.: gypsy.38000035
Posted: Fri Nov  7 10:31:00 1986
Date-Received: Sun, 9-Nov-86 02:55:47 EST
References: <38000034@gypsy.UUCP>
Nf-ID: #R:gypsy:38000034:gypsy:38000035:000:289
Nf-From: gypsy!emery    Nov  7 10:31:00 1986
List-Id: <comp.lang.ada>



oops, made a type mismatch mistake in the last note:

comparison should be:

	if (real(i) > x) then
	    i := i - 1;		-- machine rounded up

There is no operation ">" (L : integer, R : real)....

Sorry about that, chief...

			Dave Emery
			Mitre Corp.
			emery@mitre-bedford.arpa