summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/tbs/tb0080.pp
blob: f109b8ddf40a3e87aa957c648b392824ec561d22 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
{ Old file: tbs0092.pp }
{ The unfixable bugs. Maybe we find a solution one day.  OK 0.99.6 (FK) }

{The unfixable bug. Maybe we get an idea when we keep looking at it.
 Daniel Mantione 5 februari 1998.}

const
        a:1..4=2;               {Crash 1.}
        b:set of 1..4=[2,3];    {Also crashes, but is the same bug.}

begin
   writeln(a);
end.