array.c (gfc_match_array_spec): Don't re-initialize cleared struct.

2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>

	* array.c (gfc_match_array_spec): Don't re-initialize cleared struct.
	* symbol.c (gen_shape_param): Ditto.

From-SVN: r165039

gcc/fortran/ChangeLog

 2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
 
+	* array.c (gfc_match_array_spec): Don't re-initialize cleared struct.
+	* symbol.c (gen_shape_param): Ditto.
+
+2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
+
 	* symbol.c (free_entry_list): New function.
 	(gfc_free_namespace): Free list of entries.
 

gcc/fortran/array.c

@@ -439,14 +439,6 @@ gfc_match_array_spec (gfc_array_spec **asp, bool match_dim, bool match_codim)
   int i;
 
   as = gfc_get_array_spec ();
-  as->corank = 0;
-  as->rank = 0;
-
-  for (i = 0; i < GFC_MAX_DIMENSIONS; i++)
-    {
-      as->lower[i] = NULL;
-      as->upper[i] = NULL;
-    }
 
   if (!match_dim)
     goto coarray;

gcc/fortran/symbol.c

@@ -3968,7 +3968,6 @@ gen_shape_param (gfc_formal_arglist **head,
   gfc_symtree *param_symtree = NULL;
   gfc_formal_arglist *formal_arg = NULL;
   const char *shape_param = "gfc_shape_array__";
-  int i;
 
   if (shape_param_name != NULL)
     shape_param = shape_param_name;
@@ -3997,12 +3996,6 @@ gen_shape_param (gfc_formal_arglist **head,
   param_sym->ts.kind = gfc_default_integer_kind;
   param_sym->as = gfc_get_array_spec ();
 
-  /* Clear out the dimension info for the array.  */
-  for (i = 0; i < GFC_MAX_DIMENSIONS; i++)
-    {
-      param_sym->as->lower[i] = NULL;
-      param_sym->as->upper[i] = NULL;
-    }
   param_sym->as->rank = 1;
   param_sym->as->lower[0] = gfc_get_int_expr (gfc_default_integer_kind,
 					      NULL, 1);