t_id
399
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
460401875 | 937660 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0191.pp } { missing vecn constant evaluation OK 0.99.11 (PM) } type trec=record a,b : longint; end; prec=^trec; const s : string = 'test'; cfg : array[1..2] of trec=( (a:1;b:2), (a:3;b:4) ); pcfg : prec = @cfg[2]; l : ^longint = @cfg[1].b; { l^ should be 2 } pc : pchar = @s[1]; begin Writeln(' l^ = ',l^); Writeln('pc[0] = ',pc[0]); if (l^<>2) or (pc[0]<>'t') then Begin Writeln('Wrong code generated'); RunError(1); End; end.