[fpc-pascal]BUG 1222: CASE/OF Bug

[Michael Knapp]

I have found a Bug in FPC (1.0.2 [2000/10/12])
I have submitted it as Bug 1222:

this code displays "case failed, but it should not", but it shouldn't

CONST
    c1=$80000000;
    c2=$80000001;
    c3=$80000002;
    c4=$80000003;

VAR v:dword;

BEGIN
  v:=c2;
  CASE v OF
    c1,c2:writeln('case c1,c2');
    c3,c4:writeln('case c3,c4');
    ELSE writeln('case failed, but it should not');
  END;
END.

-----

Michael

-- 
+--------------------------------------------------------------------+
|  Michael Knapp - Mauerbach - Niederösterreich - Austria - Europe   |
|  E-Mail: mknapp at gmx.at                             ICQ: 36542787   |
+--------------------------------------------------------------------+
| G r a p h i X            http://programmierer.freepage.de/graphix/ |
| Graphics Library for Freepascal, Virtual Pascal and Borland Pascal | 
| http://graphix4pascal.cjb.net/    http://www.graphix4pascal.de.vu/ |
+--------------------------------------------------------------------+