input/output exceptions

[Jean Cohen <jean.cohen@MailAndNews.com>]

Hi all,

I have a question regarding input/output exceptions. Suppose the following 
procedure:


with Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;

procedure Test_Type_IO is

	First,	Second	: Integer := 0;

begin

	Get(First);
	Get(Second);

	Put(First);
	Put(Second);
	
end Test_Type_IO;


One should expect, that an input value which is not an integer (eg. a float) 
will raise an exception. However by executing the program I only get an 
exception [1] if the first value is not an integer. If the second one is not 
an integer, it seems, as if it is treated as one [2]:

3
2.54
          3          2

Why does the second value not raise an exception?

(The program is compiled by GNAT 3.13p on Debian GNU/Linux.)

Thank you,
Jean Cohen

(English is not my native language. I apologize for any misunderstandings 
that 
result of this reason.)


--------------------------

[1]	raised ADA.IO_EXCEPTIONS.DATA_ERROR : a-tiinio.adb:91 instantiated at 
a-inteio.ads:20

[2]	This is not the case if for instance strings are used - then the 
exceptions occur in every case.