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=0.6 required=5.0 tests=BAYES_05,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!uwm.edu!srcsip!klemmer!vestal
From: vestal@SRC.Honeywell.COM (Steve Vestal)
Newsgroups: comp.lang.ada
Subject: Re: ADA problem, can you help?
Message-ID: <50646@srcsip.UUCP>
Date: 15 Dec 89 18:05:20 GMT
References: <4261@crdgw1.crd.ge.com>
Sender: news@src.honeywell.COM
Followup-To: comp.lang.ada
Distribution: comp.lang.ada
In-reply-to: oplinger@jupiter.crd.ge.com's message of 15 Dec 89 16:47:06 GMT
List-Id: <comp.lang.ada>

>In article <4261@crdgw1.crd.ge.com> oplinger@jupiter.crd.ge.com (B. S. Oplinger) writes:
>	A := 2.0 * INPUT;
>	if A > INPUT_TYPE'LARGE then

Try 
        if A > INPUT_TYPE'LAST then