From dbfd1e0108ca7e31860b1daf9393e18d9d2e53ed Mon Sep 17 00:00:00 2001 From: Bernhard Fischer Date: Sun, 7 Jan 2007 17:40:42 +0100 Subject: trans-array.c (gfc_trans_create_temp_array, [...]): Commentary typo fix. fortran/ChangeLog 2007-01-07 Bernhard Fischer * trans-array.c (gfc_trans_create_temp_array, gfc_array_init_size): Commentary typo fix. From-SVN: r120550 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-array.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'gcc') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5615d1f..6b03a75 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2007-01-07 Bernhard Fischer + * trans-array.c (gfc_trans_create_temp_array, gfc_array_init_size): + Commentary typo fix. + +2007-01-07 Bernhard Fischer + PR fortran/27698 * match.c (gfc_match_name): Print diagnostics for invalid character in names. diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 86e5657..b924a41 100644 --- 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) -- cgit v1.1