fpcsrc/tests/test/tgeneric26.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %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.