--
--  Example of a program that raises Storage_Error
--

procedure E3 is
begin
   E3;
end E3;