re PR fortran/37319 (gfortran.dg/function_kinds_5.f90 fails)

	PR fortran/37319
	* parse.c (match_deferred_characteristics): Make sure 'name' is
	initialized before reading it.

From-SVN: r142188

gcc/fortran/ChangeLog

+2008-11-25  Eric Botcazou  <ebotcazou@adacore.com>
+
+	PR fortran/37319
+	* parse.c (match_deferred_characteristics): Make sure 'name' is
+	initialized before reading it.
+
 2008-11-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR fortran/37803

gcc/fortran/parse.c

@@ -2265,8 +2265,9 @@ match_deferred_characteristics (gfc_typespec * ts)
 
   /* Set the function locus correctly.  If we have not found the
      function name, there is an error.  */
-  gfc_match ("function% %n", name);
-  if (m == MATCH_YES && strcmp (name, gfc_current_block ()->name) == 0)
+  if (m == MATCH_YES
+      && gfc_match ("function% %n", name) == MATCH_YES
+      && strcmp (name, gfc_current_block ()->name) == 0)
     {
       gfc_current_block ()->declared_at = gfc_current_locus;
       gfc_commit_symbols ();