TP3/shell/tests/fixtures/t13_proc.pas

program t13;
var
  x : integer ;
procedure show (a : integer) ;
begin
  x := a
end ;
begin
  show (3)
end.