2004-10-30 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>

	* trans.c (gfc_trans_code): Set global locus after recursing. Fix
	comment typo.

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c950f8c..b66bc3e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-30  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       * trans.c (gfc_trans_code): Set global locus after recursing. Fix
+       comment typo.
+
 2004-10-30  Canqun Yang  <canqun@nudt.edu.cn>
 
        * check.c (gfc_check_rand): Allow missing optional argument. 

diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c
index 8005b32..3510543 100644 (file)
--- a/gcc/fortran/trans.c
+++ b/gcc/fortran/trans.c
@@ -479,8 +479,6 @@ gfc_trans_code (gfc_code * code)
      the end of this gfc_code branch.  */
   for (; code; code = code->next)
     {
-      gfc_set_backend_locus (&code->loc);
-
       if (code->here != 0)
        {
          res = gfc_trans_label_here (code);
@@ -625,14 +623,16 @@ gfc_trans_code (gfc_code * code)
          internal_error ("gfc_trans_code(): Bad statement code");
        }
 
+      gfc_set_backend_locus (&code->loc);
+
       if (res != NULL_TREE && ! IS_EMPTY_STMT (res))
        {
          if (TREE_CODE (res) == STATEMENT_LIST)
            annotate_all_with_locus (&res, input_location);
          else
            SET_EXPR_LOCATION (res, input_location);
-
-         /* Add the new statemment to the block.  */
+           
+         /* Add the new statement to the block.  */
          gfc_add_expr_to_block (&block, res);
        }
     }