OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Bernhard Fischer 2007-01-07 17:40:42 +01:00 committed by Bernhard Reutner-Fischer
parent be58af47f2
commit dbfd1e0108
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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

4
gcc/fortran/trans-array.c
View File

@ -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)