* test for trunk only

git-svn-id: branches/fixes_2_0@2583 -

.gitattributes

@@ -5342,7 +5342,6 @@ tests/test/tfpu3.pp svneol=native#text/plain
 tests/test/tfpu4.pp svneol=native#text/plain
 tests/test/tfpu5.pp svneol=native#text/plain
 tests/test/tfpuover.pp svneol=native#text/plain
-tests/test/tgeneric6.pp svneol=native#text/plain
 tests/test/tgoto.pp svneol=native#text/plain
 tests/test/theap.pp svneol=native#text/plain
 tests/test/thintdir.pp svneol=native#text/plain

tests/test/tgeneric6.pp

@@ -1,50 +0,0 @@
-{$mode objfpc}
-
-type
-   generic PListItem<_T>=^specialize TListItem<_T>;
-   generic TListItem<_T>=record
-     data : _T;
-     next : specialize PListItem<_T>;
-   end;
-
-   generic TList<_T>=class(TObject)
-     first : specialize PListItem<_T>;
-     procedure Add(item: _T);
-   end;
-
-procedure TList.Add(data: _T);
-var
-  newitem : specialize PListItem<_T>;
-begin
-  new(newitem);
-  newitem.data:=data;
-  newitem.next:=first;
-end;
-
-type
-  TMyIntList = specialize TList<integer>;
-  TMyStringList = specialize TList<string>;
-
-var
-  ilist : TMyIntList;
-  slist : TMyStringList;
-  someInt : integer;
-begin
-  someInt:=10;
-  ilist := TMyIntList.Create;
-  ilist.Add(someInt);
-  ilist.Add(someInt+1);
-  writeln(ilist.first^.data);
-  if ilist.data<>10 then
-    halt(1);
-  writeln(ilist.first^.next^.data);
-  if ilist.data<>11 then
-    halt(1);
-
-  slist := TMyStringList.Create;
-  slist.Add('Test1');
-  slist.Add('Test2');
-  writeln(slist.data);
-  if slist.data<>'Test1' then
-    halt(1);
-end.