User talk:86.156.177.151

with Ada.Text_IO;   --  use Ada.Text_IO; with Stack;           use Stack;

procedure Main is myT : aliased T; begin declare V : aliased T;  begin V.P1; end; Stack.Foo; myT.P1; null; Ada.Text_IO.Put_Line("X"); end Main;