mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
10 lines
188 B
ObjectPascal
10 lines
188 B
ObjectPascal
{ %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. |