t_id
1043
t_adddate
2003/10/14
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022330208 | 1027314 | False | True | Skipping test run because it is a unit |
Record count: 1
{ Old file: tbs0278.pp } { (* in conditional code is handled wrong for tp,delphi OK 0.99.13 (PFV) } {$ifdef fpc}{$mode tp}{$endif} unit tb0238; interface { a string constant within $IFDEF that contains "(*" causes an error; compile it with "ppc386 test -So" or "-Sd" } var c : char; {$IFDEF not_defined} const c = 'b''(* { $else} var c : char; {$ENDIF} implementation end.