freepascal.compiler/bugs/bug0148.pp

unit test;

interface

Function t(a: Byte): byte;
Function DoT(b: byte): Byte;

implementation

Function t(a: Byte): Byte;
var f: byte;
Begin
  DoT := f;
End;

Function DoT(b: byte): Byte;
Begin
End;

end.