fpcsrc/tests/webtbs/tw4496.pp


1
2
3
4
5
6
7
8
9
10

type
  //BoolDeriv = Boolean; //gives no internal error
  BoolDeriv = false..true;

var
  a: array[BoolDeriv] of char;

begin
  a[true] := 'a'; //ierror 99080501 here
end.