t_id
289
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ Old file: tbs0033.pp } { tests var p : pchar; begin p:='c'; end. OK 0.9.9 } var p1 : pchar; p2 : array[0..10] of char; s : string; c : char; begin p1:='c'; s:='c'; { this isn't allowed p1:=c; } end.