140       sprintf (buffer, "INTEGER(%d)", ts->kind);  in gfc_typename()
143       sprintf (buffer, "REAL(%d)", ts->kind);  in gfc_typename()
146       sprintf (buffer, "COMPLEX(%d)", ts->kind);  in gfc_typename()
149       sprintf (buffer, "LOGICAL(%d)", ts->kind);  in gfc_typename()
154 	  sprintf (buffer, "CHARACTER(%d)", ts->kind);  in gfc_typename()
161 	sprintf (buffer, "CHARACTER(" HOST_WIDE_INT_PRINT_DEC ")", length);  in gfc_typename()
163 	sprintf (buffer, "CHARACTER(" HOST_WIDE_INT_PRINT_DEC ",%d)", length,  in gfc_typename()
167       sprintf (buffer, "HOLLERITH");  in gfc_typename()
170       sprintf (buffer, "UNION(%s)", ts->u.derived->name);  in gfc_typename()
175 	  sprintf (buffer, "invalid type");  in gfc_typename()
178       sprintf (buffer, "TYPE(%s)", ts->u.derived->name);  in gfc_typename()
183 	  sprintf (buffer, "invalid class");  in gfc_typename()
188 	sprintf (buffer, "CLASS(*)");  in gfc_typename()
190 	sprintf (buffer, "CLASS(%s)", ts->u.derived->name);  in gfc_typename()
193       sprintf (buffer, "TYPE(*)");  in gfc_typename()
233 	  sprintf (buffer, "CHARACTER(:,%d)", ex->ts.kind);  in gfc_typename()
240 	  sprintf (buffer, "CHARACTER(*,%d)", ex->ts.kind);  in gfc_typename()
248 	  sprintf (buffer, "CHARACTER(KIND=%d)", ex->ts.kind);  in gfc_typename()
254 	sprintf (buffer, "CHARACTER(" HOST_WIDE_INT_PRINT_DEC ")", length);  in gfc_typename()
256 	sprintf (buffer, "CHARACTER(" HOST_WIDE_INT_PRINT_DEC ",%d)", length,  in gfc_typename()
284 	    sprintf(buffer, "CHARACTER(*)");  in gfc_dummy_typename()
286 	    sprintf(buffer, "CHARACTER(*,%d)", ts->kind);  in gfc_dummy_typename()
288 	    sprintf(buffer, "CHARACTER(*,?)");  in gfc_dummy_typename()