freepascal.compiler/tests/tbs/tb0010.pp

{ Old file: tbs0013.pp }
{  }

procedure test(w : word);

  begin
  end;

begin
   test(1234);
end.