mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
b0670ee34c
ptype.pas, read_named_type.array_dec: * generate a valid range definition if we are inside a generic and the array bounds are not ordinals (Note: the check for "parse_generic" should be improved to really detect erratic indexes that are not related to generics in any way) + added test git-svn-id: trunk@27532 -
20 lines
336 B
ObjectPascal
20 lines
336 B
ObjectPascal
{ %NORUN }
|
|
{ %OPT=-g }
|
|
|
|
program tw25600;
|
|
|
|
{$MODE DELPHI}
|
|
|
|
type
|
|
// maybe related to
|
|
// http://bugs.freepascal.org/view.php?id=25599
|
|
// http://bugs.freepascal.org/view.php?id=24848
|
|
TC<T> = class
|
|
public
|
|
class var F: array[0..T.X] of byte; // for normal fields all is ok
|
|
end;
|
|
|
|
begin // Fatal: Internal error 200601281
|
|
end.
|
|
|