t_id
464
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
523855882 | 947922 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0273.pp } { small array pushing to array of char procedure is wrong OK 0.99.13 (PFV) } Program CharArr; Var CharArray : Array[1..4] Of Char; S : String; Begin CharArray:='BUG?'; S:=CharArray; WriteLn(S); { * This is O.K. * } WriteLn(CharArray); { * GENERAL PROTECTION FAULT. * } if CharArray<>'BUG?' then begin Writeln('Error comparing charaay to constant string'); Halt(1); end; End.