gcc/testsuite/gnat.dg/aggr6.adb

   1 --  { dg-do compile }
   2
   3 with aggr5;
   4 procedure aggr6 is
   5    procedure Block is
   6       Wrapper : aliased aggr5.Q_Action_Event'Class
   7         := aggr5.Q_Action_Event'Class (aggr5.Build (0));
   8    begin
   9       null;
  10    end;
  11 begin
  12    null;
  13 end;