unit u5;

uses u7;

procedure p1;
begin
  var a: t2;
  a.p0;
end;

end.