Merged revisions 8122 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
r8122 | florian | 2007-07-21 23:49:59 +0200 (Sat, 21 Jul 2007) | 2 lines

* give proper error location if something is wrong with the type argument list, resolves #9112

........

git-svn-id: branches/fixes_2_2@8237 -

compiler/ptype.pas

@@ -145,6 +145,9 @@ implementation
                 pt2.free;
               end;
           end;
+        { force correct error location if too much type parameters are passed }
+        if token<>_RSHARPBRACKET then
+          consume(_RSHARPBRACKET);
         { Reparse the original type definition }
         if not err then
           begin