fpcsrc/tests/tbs/tb0188a.pp


1
2
3
4
5
6
7
8
9
10

{$mode objfpc}

type
  generic TMyArray<T> = array[0..10] of longint;

var
  MyArr: specialize TMyArray<String>;
begin
  MyArr[0] := 1;
end.