Fix bug when type name is overloaded with generic.

In the
    <declaration> ::= TYPE <opt type spec> <opt attr> <pgm> <id> <opt tpsl>
production, if <id> is a ST_USERGENERIC, then we need to obtain a new symbol
for the derived type ST_TYPEDEF object and assign it to the generic's GTYPE
field. This permits a type name to be overloaded by a generic.

Author: tskeith

tools/flang1/flang1exe/semant.c

@@ -3250,7 +3250,14 @@ semant1(int rednum, SST *top)
       dtype = sem.stag_dtype = DTYPEG(sptr);
       DTY(sem.stag_dtype + 2) = 1; /* size */
     } else {
-      sptr = declsym(sptr, ST_TYPEDEF, TRUE);
+      if (STYPEG(sptr) == ST_USERGENERIC) {
+        int origSym = sptr;
+        sptr = insert_sym(sptr);
+        STYPEP(sptr, ST_TYPEDEF);
+        GTYPEP(origSym, sptr);
+      } else {
+        sptr = declsym(sptr, ST_TYPEDEF, TRUE);
+      }
       dtype = sem.stag_dtype = get_type(6, TY_DERIVED, NOSYM);
       DTYPEP(sptr, sem.stag_dtype);
       DTY(sem.stag_dtype + 2) = 1; /* size */