trans-array.c (gfc_free_ss): Don't free beyond ss rank.

2010-07-17  Mikael Morin  <mikael@gcc.gnu.org>

	* trans-array.c (gfc_free_ss): Don't free beyond ss rank.
	Access subscript through the "dim" field index.
	(gfc_trans_create_temp_array): Access ss info through the "dim" field
	index.
	(gfc_conv_array_index_offset): Ditto.
	(gfc_conv_loop_setup): Ditto.
	(gfc_conv_expr_descriptor): Ditto.
	(gfc_conv_ss_startstride): Ditto.  Update call to
	gfc_conv_section_startstride.
	(gfc_conv_section_startstride): Set values along the array dimension.
	Get array dimension directly from the argument.

From-SVN: r162276

gcc/fortran/ChangeLog

+2010-07-17  Mikael Morin  <mikael@gcc.gnu.org>
+
+	* trans-array.c (gfc_free_ss): Don't free beyond ss rank.
+	Access subscript through the "dim" field index.
+	(gfc_trans_create_temp_array): Access ss info through the "dim" field
+	index.
+	(gfc_conv_array_index_offset): Ditto.
+	(gfc_conv_loop_setup): Ditto.
+	(gfc_conv_expr_descriptor): Ditto.
+	(gfc_conv_ss_startstride): Ditto.  Update call to
+	gfc_conv_section_startstride.
+	(gfc_conv_section_startstride): Set values along the array dimension.
+	Get array dimension directly from the argument.
+
 2010-07-15  Jakub Jelinek  <jakub@redhat.com>
 
 	* trans.h (gfc_string_to_single_character): New prototype.
@@ -75,7 +89,7 @@
 
 	* trans-array.c (gfc_conv_section_upper_bound): Remove
 	(gfc_conv_section_startstride): Don't set the upper bound in the 
-	vector subscript case. 
+	vector subscript case.
 	(gfc_conv_loop_setup): Don't use gfc_conv_section_upper_bound
 
 2010-07-14  Janus Weil  <janus@gcc.gnu.org>
@@ -200,11 +214,11 @@
 	* trans-stmt.c (ADD_FIELD): Ditto.
 	* trans-types.c
 	(gfc_get_derived_type): Ditto. Don't create backend_decl for C_PTR's
-	C_ADDRESS field. 
+	C_ADDRESS field.
 	(gfc_add_field_to_struct_1): Set TYPE_FIELDS(context) instead of
 	fieldlist, remove fieldlist from argument list.
 	(gfc_add_field_to_struct): Update call to gfc_add_field_to_struct_1
-	and remove fieldlist from argument list. 
+	and remove fieldlist from argument list.
 	(gfc_get_desc_dim_type, gfc_get_array_descriptor_base,
 	gfc_get_mixed_entry_union): Move setting
 	TYPE_FIELDS to gfc_add_field_to_struct_1 and update calls to it.

gcc/fortran/trans.h

@@ -114,8 +114,8 @@ typedef struct gfc_ss_info
   tree stride[GFC_MAX_DIMENSIONS];
   tree delta[GFC_MAX_DIMENSIONS];
 
-  /* Translation from scalarizer dimensions to actual dimensions.
-     actual = dim[scalarizer]  */
+  /* Translation from loop dimensions to actual dimensions.
+     actual_dim = dim[loop_dim]  */
   int dim[GFC_MAX_DIMENSIONS];
 }
 gfc_ss_info;