fpcsrc/tests/webtbs/tw18512.pp


1
2
3
4
5
6
7
8
9
10

{ %norun }
program tw18152;
{$TypedAddress on}
var
    p: ^integer;
    c: char;
begin
    // test that addr return untyped pointer inspite of $TypedAddress directive
    p := addr(c)
end.