{ %OPT=-O3 -Oodeadstore } var p : plongint; procedure p2; var i : longint; begin i:=1234; p:=@i; if p^<>1234 then halt(1); end; begin p2; writeln('ok'); end.