+ new bug report

tests/webtbf/tw2053.pp

@@ -0,0 +1,44 @@
+{ Source provided for Free Pascal Bug Report 2053 }
+{ Submitted by "Luis Castedo" on  2002-07-24 }
+{ e-mail: [email protected] }
+program tb2;
+
+{$MODE TP}
+{$C+}
+
+type
+
+  TMyRecord = record
+    mr_sglDummy1: array[0..3] of Single;
+    mr_lDummy2  : Longint;
+    mr_iDummy3  : Integer;
+    mr_iDummy4  : Integer;
+  end;
+
+{  TMyRecordArray = array[Integer] of TMyRecord;} { Error }
+  TMyRecordArray = array[Longint] of TMyRecord; { OK }
+  PMyRecordArray = ^TMyRecordArray;
+
+var
+
+  pArray: PMyRecordArray;
+
+begin
+
+  GetMem(pArray, 50 * SizeOf(TMyRecord));
+  Assert(Assigned(pArray));
+
+  WriteLn('pArray = ', Longint(pArray));
+  WriteLn('@(pArray^[0]) = ', Longint(@(pArray^[0])));
+  pArray^[0].mr_lDummy2 := 0;
+
+  FreeMem(pArray, 50 * SizeOf(TMyRecord));
+
+end.
+
+{
+   $Log$
+   Revision 1.1  2002-09-27 21:09:56  carl
+     + new bug report
+
+}