trans-array.c (gfc_trans_static_array_pointer, [...]): Fix comment and formatting typos.

* trans-array.c (gfc_trans_static_array_pointer,
get_array_ctor_var_strlen, gfc_conv_array_index_offset): Fix
comment and formatting typos.

From-SVN: r96635

gcc/fortran/ChangeLog

+2005-03-17  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	* trans-array.c (gfc_trans_static_array_pointer,
+	get_array_ctor_var_strlen, gfc_conv_array_index_offset): Fix
+	comment and formatting typos.
+
 2005-03-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	* invoke.texi: Fix typos.

gcc/fortran/trans-array.c

@@ -391,7 +391,7 @@ gfc_trans_static_array_pointer (gfc_symbol * sym)
   gcc_assert (TREE_STATIC (sym->backend_decl));
   /* Just zero the data member.  */
   type = TREE_TYPE (sym->backend_decl);
-  DECL_INITIAL (sym->backend_decl) =gfc_build_null_descriptor (type);
+  DECL_INITIAL (sym->backend_decl) = gfc_build_null_descriptor (type);
 }
 
 
@@ -996,7 +996,7 @@ get_array_ctor_var_strlen (gfc_expr * expr, tree * len)
       switch (ref->type)
 	{
 	case REF_ARRAY:
-	  /* Array references don't change teh sting length.  */
+	  /* Array references don't change the string length.  */
 	  break;
 
 	case COMPONENT_REF:
@@ -1526,7 +1526,7 @@ gfc_conv_array_index_offset (gfc_se * se, gfc_ss_info * info, int dim, int i,
 	  /* Scalarized dimension.  */
 	  gcc_assert (info && se->loop);
 
-          /* Multiply the loop variable by the stride and dela.  */
+          /* Multiply the loop variable by the stride and delta.  */
 	  index = se->loop->loopvar[i];
 	  index = fold (build2 (MULT_EXPR, gfc_array_index_type, index,
 				info->stride[i]));