freepascal.compiler/tests/test/tunit3.pp

unit tunit3;

  interface

    type
       tr = record
       end;

  implementation

end.