Unchecked_Deallocation and Constraint_Error

[Michal Nowikowski <godfryd@zamek.gda.pl>]

Hello

I've got some code like that:

...
  Cmd : Integer_Array_Access := new Integer_Array(1..1);
...
   Free(Cmd);
   Cmd(1) := 1;
...

Program should throw exception Constraint_Error, but it only
hangs at instruction Cmd(1) := 1; (but doesn't quit). Do you
know whats going on and how to push it to throw exception naturally.

Best Regards
Godfryd

-- 
|  Michal Nowikowski <godfryd@zamek.gda.pl>
|  BOFH excuse #190: Proprietary Information.