trans-array.c (gfc_trans_create_temp_array, [...]): Commentary typo fix.

fortran/ChangeLog

2007-01-07  Bernhard Fischer  <aldot@gcc.gnu.org>

        * trans-array.c (gfc_trans_create_temp_array, gfc_array_init_size):
        Commentary typo fix.

From-SVN: r120550

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5615d1f91a62877fa23c07a524e3911bd1ecd50a..6b03a759bc182907e2dfb4b35b7aae5197b9b30a 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-07  Bernhard Fischer  <aldot@gcc.gnu.org>
+
+       * trans-array.c (gfc_trans_create_temp_array, gfc_array_init_size):
+       Commentary typo fix.
+
 2007-01-07  Bernhard Fischer  <aldot@gcc.gnu.org>
 
        PR fortran/27698

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 86e565781203c1cabe5a8d2b7605bdadfd9e9bd1..b924a414d8a90b2dae93bd009eb688d88e31ae96 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -680,7 +680,7 @@ gfc_trans_create_temp_array (stmtblock_t * pre, stmtblock_t * post,
 
       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);
 
@@ -3263,7 +3263,7 @@ gfc_array_init_size (tree descriptor, int rank, tree * poffset,
       /* 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)