re PR fortran/29459 (Spurious warnings about anonymous variables)

	PR fortran/29459
	* trans.c (gfc_create_var_np): Do not emit warnings for
	anonymous variables.

From-SVN: r127513

gcc/fortran/ChangeLog

 2007-08-15  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
+	PR fortran/29459
+	* trans.c (gfc_create_var_np): Do not emit warnings for
+	anonymous variables.
+
+2007-08-15  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
 	PR fortran/33066
 	* decl.c (gfc_get_type_attr_spec): Fix whitespace.
 	(gfc_match_derived_decl): Fix logic.

gcc/fortran/trans.c

@@ -102,7 +102,15 @@ remove_suffix (char *name, int len)
 tree
 gfc_create_var_np (tree type, const char *prefix)
 {
-  return create_tmp_var_raw (type, prefix);
+  tree t;
+  
+  t = create_tmp_var_raw (type, prefix);
+
+  /* No warnings for anonymous variables.  */
+  if (prefix == NULL)
+    TREE_NO_WARNING (t) = 1;
+
+  return t;
 }