From: rargyle@wsccs.UUCP (Bob Argyle)
Subject: BUG in Ada compiler?
Date: 11 Nov 88 02:48:01 GMT [thread overview]
Message-ID: <781@wsccs.UUCP> (raw)
greetings Ada wizards,
The following program on a VAX 8700 prints out:
"Hello, your program is exceptional!"
but if I change either 32767 to 32768, it runs fine: "Hello, World"
Two questions: 1. Am I overlooking something very basic? Or,
2. Is the compiler here broken? Is _yours_?
with text_io; use text_io;
procedure bug is
m:array (0..32767,0..32767) of character;
begin
m(0,8) := 'c';
put("Hello, ");
m(1,8) := 'c';
put_line("World");
exception
when numeric_error | constraint_error =>
put_line("numeric_error | constraint_error");
-- must have same handler or compiler complains.
when program_error => put_line("program_error");
when storage_error => put_line("storage_error");
when tasking_error => put_line("tasking_error");
when data_error => put_line("data_error");
when status_error => put_line("status_error");
when mode_error => put_line("mode_error");
when name_error => put_line("name_error");
when use_error => put_line("use_error");
when device_error => put_line("device_error");
when end_error => put_line("end_error");
when layout_error => put_line("layout_error");
when others => put_line("your program is exceptional!");
-- no known named exception raised
end bug;
--
bob argyle @ wsccs void where prohibited. int where not declared.
#ifndef disclaimer
/*
#endif
next reply other threads:[~1988-11-11 2:48 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
1988-11-11 2:48 Bob Argyle [this message]
1988-11-14 13:07 ` BUG in Ada compiler? Robert Firth
1988-11-19 17:14 ` Jim Near
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox