mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 06:19:32 +02:00
11 lines
250 B
ObjectPascal
11 lines
250 B
ObjectPascal
{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.
|