mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 22:27:57 +02:00
20 lines
218 B
ObjectPascal
20 lines
218 B
ObjectPascal
program tvrec1;
|
|
|
|
type
|
|
TTestRec = record
|
|
case (A, B) of
|
|
A: (I: Integer);
|
|
B: (D: Double);
|
|
end;
|
|
|
|
var
|
|
rec: TTestRec;
|
|
begin
|
|
if @rec.I=@rec.D then
|
|
begin
|
|
WriteLn('ok');
|
|
halt(0);
|
|
end;
|
|
halt(1);
|
|
end.
|