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; |
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; |