mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
18 lines
203 B
ObjectPascal
18 lines
203 B
ObjectPascal
{$mode iso}
|
|
|
|
type
|
|
v = ^x;
|
|
x = record
|
|
n: Integer;
|
|
case b: Boolean OF
|
|
True: (x0: Real);
|
|
False: (x1, x2: Integer)
|
|
end;
|
|
|
|
var
|
|
a: v;
|
|
|
|
begin
|
|
New(a, True);
|
|
Dispose(a, True);
|
|
end. |