mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
16 lines
247 B
ObjectPascal
16 lines
247 B
ObjectPascal
{ %fail }
|
|
|
|
{ Source provided for Free Pascal Bug Report 2657 }
|
|
{ Submitted by "Mazen NEIFER" on 2003-08-28 }
|
|
{ e-mail: mazen.neifer.01@supaero.org }
|
|
program test;
|
|
type
|
|
LongInt=record
|
|
x,y:cardinal;
|
|
end;
|
|
var
|
|
t:longint;
|
|
begin
|
|
t:=1;
|
|
end.
|