comp.lang.ada
 help / color / mirror / Atom feed
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

             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