blob: f878ebdb96260a65dbc3dfbb970e6ae8271787e3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ %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.
|
