mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 19:29:24 +02:00
16 lines
248 B
ObjectPascal
16 lines
248 B
ObjectPascal
{ %fail }
|
|
program tgeneric26;
|
|
|
|
{$mode objfpc}{$H+}
|
|
type
|
|
generic TRecArr<T> = array[0..1] of record
|
|
case enum:(one, two, three) of
|
|
one: (F: T); // can't use type parameter here
|
|
two: (Z: T);
|
|
three: (Y: T);
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|