mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 20:09:37 +02:00
14 lines
350 B
ObjectPascal
14 lines
350 B
ObjectPascal
{ 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.
|