fpcsrc/tests/webtbf/tw12075.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ %fail }
{ %opt=-Sew -vw-}

{$mode macpas}
program popwarnings;
var
    p: Pointer;
    offs: PtrInt;
    a: array[ 1..100] of integer;
begin
{$warnings on}
    p:= @a;
{$push}
{$warnings off}
{$pop}
    PtrUInt(p):=PtrUInt(p) + offs;
end.