agpl_1.0.0_b5da3320/src/tests/t004_graphmem.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
with Text_Io; use Text_Io;
with Ada.Exceptions; use Ada.Exceptions;

procedure T004_GraphMem is
begin
   null;
exception
   when E : others =>
      Put_Line ("Exception: " & Exception_Information (E));
end T004_GraphMem;