mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 01:08:07 +02:00
15 lines
238 B
ObjectPascal
15 lines
238 B
ObjectPascal
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.
|
|
|