t_id
1271
t_adddate
2004/03/05
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950529429 | 1015756 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2916 } { Submitted by "Ivo Steinmann" on 2004-01-24 } { e-mail: isteinmann@bluewin.ch } var x :longint; begin {$IF Defined(fpc)} writeln('do_foo'); inc(x); {$ELSEIF Defined(fpc)} writeln('do_bar'); {$ELSEIF Defined(fpc)} writeln('fpc'); {$ELSE} writeln('else'); {$IFEND} {$IF Defined(fpc1)} writeln('do_foo'); {$ELSEIF Defined(fpc)} writeln('do_bar'); inc(x); {$ELSEIF Defined(fpc)} writeln('fpc'); {$ELSE} writeln('else'); {$IFEND} {$IF Defined(fpc1)} writeln('do_foo'); {$ELSEIF Defined(fpc1)} writeln('do_bar'); {$ELSEIF Defined(fpc)} writeln('fpc'); inc(x); {$ELSE} writeln('else'); {$IFEND} {$IF Defined(fpc1)} writeln('do_foo'); {$ELSEIF Defined(fpc1)} writeln('do_bar'); {$ELSEIF Defined(fpc1)} writeln('fpc'); {$ELSE} writeln('else'); inc(x); {$IFEND} if x<>4 then writeln('ERROR!'); end.