diff options
| author | aldot <aldot@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-01-07 16:40:42 +0000 |
|---|---|---|
| committer | aldot <aldot@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-01-07 16:40:42 +0000 |
| commit | 52b365df7c0ce0ab9f42458d53abd6d0f4eb5eb7 (patch) | |
| tree | 8ecea24736a0d6bc68f2b174f876ed5bcebd4126 | |
| parent | 91652ee1a05b0de7c5b35eb3ee17818772d4de5e (diff) | |
| download | ppe42-gcc-52b365df7c0ce0ab9f42458d53abd6d0f4eb5eb7.tar.gz ppe42-gcc-52b365df7c0ce0ab9f42458d53abd6d0f4eb5eb7.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120550 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-array.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5615d1f91a6..6b03a759bc1 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 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 * 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 86e56578120..b924a414d8a 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) |
