t_id
1355
t_adddate
2004/09/13
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949668620 | 1015618 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3212 } { Submitted by "Marc Weustink" on 2004-07-15 } { e-mail: marc@freepascal.org } program conststring; {$mode objfpc} {$H+} const C1: String = 'bla'; procedure X; const C: String = 'bla'; begin C:='bla'; C:='bla'+C; WriteLN('"',C,'"'); if C<>'blabla' then halt(1); end; begin X; X; end.