mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
10 lines
136 B
ObjectPascal
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.
|