freepascal.compiler/tests/tbf/tb0083.pp

{ %FAIL }
{ Old file: tbf0360.pp }
{  }

procedure myproc;
var
  a: word;
  a: word;
  a: word;
  a: word;
  a: word;
begin
  a := 1;
  writeln (a);
end;

begin
  myproc;
end.