t_id
1347
t_adddate
2004/08/28
t_result
0
Flag
t_fail
set
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ %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.