summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbf/tw2657.pp
blob: 3c73c1ac24ebaa238bccf244f8cdc97f5916273e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{ %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.