freepascal.compiler/bugs/bug0032.pp

var
   p : procedure(w : word);

begin
   p(1234);
end.