mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
34 lines
682 B
ObjectPascal
34 lines
682 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3327 }
|
|
{ Submitted by "Andreas Dorn" on 2004-09-21 }
|
|
{ e-mail: andreasd1@gmx.de }
|
|
|
|
Program BugReport;
|
|
|
|
Type Type1 = Record
|
|
a: Word;
|
|
b: LongWord;
|
|
End;
|
|
|
|
Type Type2 = Record
|
|
a: Word;
|
|
b: LongWord;
|
|
c: Array[0..1024] Of Char;
|
|
End;
|
|
|
|
Type Type3 = Record
|
|
a: Word;
|
|
b: LongWord;
|
|
c: Array[0..1024] Of LongWord;
|
|
End;
|
|
|
|
Var One: Array [1..100000] Of Type1;
|
|
Two: Type2;
|
|
Three: Type3 absolute two;
|
|
Four: Type1 absolute Three;
|
|
Begin;
|
|
One[1].a:=12;
|
|
Four := One[1];
|
|
if Four.a<>12 then
|
|
halt(1);
|
|
End.
|