[patch] commentary typo fix

[patch] commentary typo fix

[Bernhard Fischer]

[-- Attachment #1: Type: text/plain, Size: 497 bytes --]

Hi,

I intend to commit the attached patch as obvious in a day or two.

There is also a comment that talks about a SUB_FLAG where the actual
code is in lowercase which i'd like to correct too. That patch must be
on a different machine, though, since i can't find it here. I'll follow
up on this later.

2006-11-20  Bernhard Fischer  <aldot@gcc.gnu.org>

        * data.c (gfc_assign_data_value): Fix whitespace.
        * trans-array.c (gfc_trans_create_temp_array): Commentary typo fix.

thanks,

[-- Attachment #2: gcc.gfortran-4.3.misc.diff --]
[-- Type: text/plain, Size: 1465 bytes --]

Index: gcc-4.3/gcc/fortran/trans-array.c
===================================================================
--- gcc-4.3/gcc/fortran/trans-array.c	(revision 119010)
+++ gcc-4.3/gcc/fortran/trans-array.c	(working copy)
@@ -671,7 +671,7 @@ gfc_trans_create_temp_array (stmtblock_t
 
       if (function)
 	{
-	  /* Check wether the size for this dimension is negative.  */
+	  /* Check whether the size for this dimension is negative.  */
 	  cond = fold_build2 (LE_EXPR, boolean_type_node, tmp,
 			  gfc_index_zero_node);
 
@@ -3189,7 +3189,7 @@ gfc_array_init_size (tree descriptor, in
       /* Calculate the size of this dimension.  */
       size = fold_build2 (PLUS_EXPR, gfc_array_index_type, se.expr, size);
 
-      /* Check wether the size for this dimension is negative.  */
+      /* Check whether the size for this dimension is negative.  */
       cond = fold_build2 (LE_EXPR, boolean_type_node, size,
 			  gfc_index_zero_node);
       if (n == 0)
Index: gcc-4.3/gcc/fortran/data.c
===================================================================
--- gcc-4.3/gcc/fortran/data.c	(revision 119010)
+++ gcc-4.3/gcc/fortran/data.c	(working copy)
@@ -386,7 +386,7 @@ gfc_assign_data_value (gfc_expr * lvalue
 		    init : rvalue;
 #endif
 	  gfc_notify_std (GFC_STD_GNU, "Extension: re-initialization "
-			  "of '%s' at %L",  symbol->name, &expr->where);
+			  "of '%s' at %L", symbol->name, &expr->where);
 	}
 
       expr = gfc_copy_expr (rvalue);

[patch, fortran, committed] commentary typo fix

[Bernhard Fischer]

On Mon, Nov 20, 2006 at 03:33:32PM +0100, Bernhard Fischer wrote:
>Hi,
>
>I intend to commit the attached patch as obvious in a day or two.
>
>2006-11-20  Bernhard Fischer  <aldot@gcc.gnu.org>
>
>        * trans-array.c (gfc_trans_create_temp_array): Commentary typo fix.
>
>thanks,

Applied to trunk as r120550.

>Index: gcc-4.3/gcc/fortran/trans-array.c
>===================================================================
>--- gcc-4.3/gcc/fortran/trans-array.c	(revision 119010)
>+++ gcc-4.3/gcc/fortran/trans-array.c	(working copy)
>@@ -671,7 +671,7 @@ gfc_trans_create_temp_array (stmtblock_t
> 
>       if (function)
> 	{
>-	  /* Check wether the size for this dimension is negative.  */
>+	  /* Check whether the size for this dimension is negative.  */
> 	  cond = fold_build2 (LE_EXPR, boolean_type_node, tmp,
> 			  gfc_index_zero_node);
> 
>@@ -3189,7 +3189,7 @@ gfc_array_init_size (tree descriptor, in
>       /* Calculate the size of this dimension.  */
>       size = fold_build2 (PLUS_EXPR, gfc_array_index_type, se.expr, size);
> 
>-      /* Check wether the size for this dimension is negative.  */
>+      /* Check whether the size for this dimension is negative.  */
>       cond = fold_build2 (LE_EXPR, boolean_type_node, size,
> 			  gfc_index_zero_node);
>       if (n == 0)