fpc/tests/webtbs/tw39957.pp

10 lines
136 B
ObjectPascal

{ %opt=-O4 -Oodeadstore -Oonoregvar }
var
src: array[0 .. 9] of int32;
srcp: pInt32;
begin
srcp := pInt32(src);
srcp[0] := 1;
end.