trans-stmt.c (gfc_trans_do): Fix a typo in comment.

2007-05-21  H.J. Lu  <hongjiu.lu@intel.com>

	* trans-stmt.c (gfc_trans_do): Fix a typo in comment.

From-SVN: r124911

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 10886d736dfaaa27113aa3d1c73498357f04821a..29dd7a34da3d34e0b2bb597fb672fa1848840da7 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2007-05-21  H.J. Lu  <hongjiu.lu@intel.com>
+
+       * trans-stmt.c (gfc_trans_do): Fix a typo in comment.
+
 2007-05-21  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/31867

diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c
index d0af66e60b46b4081621f41c2298fa50885dd437..02e8dd26b84f7ab762e87d95e65d372bfd4f4062 100644 (file)
--- a/gcc/fortran/trans-stmt.c
+++ b/gcc/fortran/trans-stmt.c
@@ -818,8 +818,8 @@ gfc_trans_simple_do (gfc_code * code, stmtblock_t *pblock, tree dovar,
        body;
 cycle_label:
        dovar += step
-       countm1--;
        if (countm1 ==0) goto exit_label;
+       countm1--;
      }
 exit_label: