test: add delphi generic test which checks that both generic and regular type declarations with the same identifier are allowed in a unit

git-svn-id: trunk@16797 -

.gitattributes

@@ -9431,6 +9431,7 @@ tests/test/tgeneric31.pp svneol=native#text/pascal
 tests/test/tgeneric32.pp svneol=native#text/pascal
 tests/test/tgeneric33.pp svneol=native#text/pascal
 tests/test/tgeneric34.pp svneol=native#text/pascal
+tests/test/tgeneric35.pp svneol=native#text/pascal
 tests/test/tgeneric4.pp svneol=native#text/plain
 tests/test/tgeneric5.pp svneol=native#text/plain
 tests/test/tgeneric6.pp svneol=native#text/plain

tests/test/tgeneric35.pp

@@ -0,0 +1,19 @@
+program tgeneric35;
+
+{$mode delphi}
+
+type
+  TSomeRecord = record
+    F: Integer;
+  end;
+
+  TSomeRecord<TData> = record
+    data: TData;
+  end;
+var
+  R1: TSomeRecord;
+  R2: TSomeRecord<Integer>;
+begin
+  R1.F := 2;
+  R2.data := 1;
+end.