OSDN Git Service

2007-05-21 H.J. Lu <hongjiu.lu@intel.com>
authorhjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 21 May 2007 21:13:03 +0000 (21:13 +0000)
committerhjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 21 May 2007 21:13:03 +0000 (21:13 +0000)
* trans-stmt.c (gfc_trans_do): Fix a typo in comment.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124911 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/trans-stmt.c

index 10886d7..29dd7a3 100644 (file)
@@ -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
index d0af66e..02e8dd2 100644 (file)
@@ -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: