t_id
1502
t_adddate
2005/03/05
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022632505 | 1027364 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3683 } { Submitted by "Christian Iversen" on 2005-02-22 } { e-mail: chrivers@iversen-net.dk } program test; type foo = (a, b); const {$ifdef use2byte} T=a; {$else} T=b; {$endif} {$if T = a} {$message 'T = a'} {$else} {$message 'T = b'} {$ifend} begin end.