t_id
1197
t_adddate
2003/11/11
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022553259 | 1027349 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2780 } { Submitted by "Johannes Berg" on 2003-11-10 } { e-mail: bugs@johannes.sipsolutions.de } program ifdef; const a = 1; begin {$IF NOT DECLARED(a)} writeln('a not declared'); {$ELSE} writeln('a declared, a = ',a); {$ENDIF} {$IF NOT DECLARED(b)} writeln('b not declared'); {$ELSE} writeln('b declared, b = ',b); {$ENDIF} end.