fpc/tests/webtbs/tw37508.pp

7 lines
112 B
ObjectPascal

{ %OPT=-O3 }
var a, b : integer;
begin
b := 0;
b := b - a - a { `b := b - a` won't trigger the error }
end.