t_id
1347
t_adddate
2004/08/28
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950725258 | 1015783 | True | False | Success, compilation failed |
Record count: 1
{ %fail } { Source provided for Free Pascal Bug Report 3253 } { Submitted by "marco" on 2004-08-16 } { e-mail: } PROGRAM TEST; {$R+} {$Q+} CONST Range = 10; { The next line is not possible, the ( expects an enumeration declation } TYPE Sometype = ((-1)*(Range-1))..(Range-1); VAR Somevar: SOMETYPE; BEGIN Somevar := -9; WriteLn(Somevar); END.