mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 19:08:18 +02:00
16 lines
188 B
ObjectPascal
16 lines
188 B
ObjectPascal
{ %OPT=-Sew -Oodfa }
|
|
program Project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
TRec = record a : Integer; end;
|
|
PRec = ^TRec;
|
|
|
|
var
|
|
p : PRec;
|
|
|
|
begin
|
|
writeln( sizeof(p^.a)); // warning here!
|
|
end.
|