freepascal.compiler/tests/webtbs/tw18512.pp

{ %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.