* several fixes which improve the behaviour of nested generics, resolves #15077

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14176 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 23 insertions, 0 deletions

diff --git a/tests/test/tgeneric18.pp b/tests/test/tgeneric18.pp
new file mode 100644
index 0000000000..cda5aaff13
--- /dev/null
+++ b/tests/test/tgeneric18.pp
@@ -0,0 +1,23 @@
+program tgeneric18;
+
+{$mode objfpc}{$H+}
+
+type
+
+  { TFirstGeneric }
+
+  generic TFirstGeneric<T> = class(TObject)
+  end;
+
+  { TSecondGeneric }
+
+  generic TSecondGeneric<T> = class(TObject)
+  type public
+    TFirstGenericType = specialize TFirstGeneric<T>;
+  end;
+
+var
+  Second: specialize TSecondGeneric<string>;
+begin
+end.
+