t_id
938
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525527098 | 948198 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2306 } { Submitted by "Sergey Kosarevsky" on 2003-01-03 } { e-mail: netsurfer@au.ru } {$H-} Const LONG_STR_SIZE=4096; Type tLongStr=Object // try to change this // to Record LStr:Array[0..LONG_STR_SIZE] Of Char; LLength:Longint; End; Operator := (S:String) R:tLongStr; Begin R.LLength:=Length(S); Move(S[1],R.LStr[1],Length(S)); End; Var T:tLongStr; Begin T:='Hello'; if (T.LLength<>5) or (T.LStr[1]<>'H') or (T.LStr[5]<>'o') then begin writeln('Error!'); halt(1); end; End.