mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
25 lines
341 B
ObjectPascal
25 lines
341 B
ObjectPascal
program project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
TConstHolder = class
|
|
public
|
|
const
|
|
C = 10;
|
|
end;
|
|
|
|
TSimple = class
|
|
Arr: array [0..TConstHolder.C] of Integer; //this works
|
|
end;
|
|
|
|
|
|
generic TGeneric <T> = class
|
|
Arr: array [0..T.C] of Integer; //but here is error
|
|
// Can't evaluate constant expression
|
|
|
|
end;
|
|
|
|
begin
|
|
end.
|