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

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

with Agpl.Smart_Access;

procedure T008_poif is
   type Ia is access all Integer;
   package Blah is new Agpl.Smart_Access (Integer, Ia);
begin
   null;
exception
   when E : others =>
      Put_Line ("Exception: " & Exception_Information (E));
end T008_poif;