mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
21 lines
282 B
ObjectPascal
21 lines
282 B
ObjectPascal
{$mode objfpc}{$H+}
|
|
uses Classes, SysUtils;
|
|
|
|
type
|
|
generic TFoo<SomeEnum> = class
|
|
m: array[SomeEnum] of integer;
|
|
end;
|
|
|
|
TEnum = (e0, e1);
|
|
|
|
var
|
|
a: specialize TFoo<TEnum>;
|
|
|
|
begin
|
|
if low(a.m)<>e0 then
|
|
halt(1);
|
|
if high(a.m)<>e1 then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|