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