t_id
900
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526349118 | 948339 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2065 } { Submitted by "Lavergne Thomas" on 2002-08-01 } { e-mail: thomas.lavergne@laposte.net } program test; {$APPTYPE CONSOLE} {$LONGSTRINGS ON} type TRec = record S: string; P: Pointer; end; const MAX_SIZE = 2; var A: array[0..MAX_SIZE - 1] of TRec; begin WriteLn(A[0].S); end.