mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 01:08:09 +02:00
12 lines
220 B
ObjectPascal
12 lines
220 B
ObjectPascal
program bug;
|
|
|
|
{The unfixable bug. Maybe we get an idea when we keep looking at it.
|
|
|
|
Daniel Mantione 5 februari 1998.}
|
|
|
|
var a:1..4=2; {Crash 1.}
|
|
b:set of 1..4=[2,3]; {Also crashes, but is the same bug.}
|
|
|
|
begin
|
|
end.
|