mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
11 lines
172 B
ObjectPascal
11 lines
172 B
ObjectPascal
type
|
|
//BoolDeriv = Boolean; //gives no internal error
|
|
BoolDeriv = false..true;
|
|
|
|
var
|
|
a: array[BoolDeriv] of char;
|
|
|
|
begin
|
|
a[true] := 'a'; //ierror 99080501 here
|
|
end.
|