t_id
1386
t_adddate
2004/11/01
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950720285 | 1015783 | True | False | Successfully run |
Record count: 1
{ 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.