freepascal.compiler/tests/test/tunit5.pp

unit tunit5;

  interface

    uses
       tunit4;

    type
       pr = ^tr;

  implementation

end.