t_id
1265
t_adddate
2004/02/25
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
456446905 | 937022 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2975 } { Submitted by "Michalis Kamburelis" on 2004-02-15 } { e-mail: michalis@camelot.homedns.org } procedure p; const t:array[0..0]of AnsiString = ('blah'); begin Writeln('''', t[0], ''''); if t[0]='' then halt(1); end; begin p; p; end.