PATCH: Fix a comment typo in gfc_trans_do
H. J. Lu
hjl@lucon.org
Mon May 21 20:59:00 GMT 2007
gfc_trans_do has
/* End with the loop condition. Loop until countm1 == 0. */
cond = fold_build2 (EQ_EXPR, boolean_type_node, countm1,
build_int_cst (utype, 0));
...
/* Decrement the loop count. */
tmp = build2 (MINUS_EXPR, utype, countm1, build_int_cst (utype, 1));
gfc_add_modify_expr (&body, countm1, tmp);
Bu comment has
countm1--;
if (countm1 ==0) goto exit_label;
This patch makes comment consistent with actual code.
H.J.
---
2007-05-21 H.J. Lu <hongjiu.lu@intel.com>
* trans-stmt.c (gfc_trans_do): Fix a typo in comment.
--- gcc/fortran/trans-stmt.c.typo 2007-05-16 15:15:36.000000000 -0700
+++ gcc/fortran/trans-stmt.c 2007-05-21 13:52:50.000000000 -0700
@@ -818,8 +818,8 @@ gfc_trans_simple_do (gfc_code * code, st
body;
cycle_label:
dovar += step
- countm1--;
if (countm1 ==0) goto exit_label;
+ countm1--;
}
exit_label:
More information about the Fortran
mailing list