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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,eee47022b0e39dbb
X-Google-Attributes: gid103376,public
From: evans@evans.pgh.pa.us (Arthur Evans Jr)
Subject: Re: Exception problem
Date: 1997/02/22
Message-ID: <evans-2202972108360001@ppp1.s8.pgh.net>#1/1
X-Deja-AN: 220760337
References: <330A0D25.313@fs2.assist.uci.edu>
Organization: Ada Consulting
Newsgroups: comp.lang.ada
Date: 1997-02-22T00:00:00+00:00
List-Id: <comp.lang.ada>


Larry Coon <larry@fs2.assist.uci.edu> wrote:

> This code handles non-positive numeric input (eg: 0 or -3) correctly.  
> But when I give it non-numeric input (eg: C), it displays the "Entry 
> must be a number.  Try again" message repeatedly and never stops for 
> input again.

When Get(X) notes that the first character ('C' in your case) cannot be
valid, it immediately raises the exception without reading anything from
the input stream.  So, the offending character is still there on the
next try.  Add a call to Skip_Line.

Art Evans

Arthur Evans Jr, PhD
Ada Consulting
evans@evans.pgh.pa.us