unit testu5;

  interface

    uses
       testu4;

    type
       pr = ^tr;

  implementation

end.