freepascal.compiler/tests/tbf/tb0086.pp

{ %FAIL }

var
  i,j : longint;
begin
  i:=longint;
  j:=i*word+j*shortint;
  j:= 15 +5*i +(i*i)+sqr(word);
end.