[Bug fortran/41827] [Cleanup] Remove SET_EXPR_LOCATION in gfc_trans_code

[janus at gcc dot gnu dot org]

------- Comment #1 from janus at gcc dot gnu dot org  2009-11-17 11:47 -------
Since all regressions are OpenMP related, the following patch works without any
testsuite failures:

Index: gcc/fortran/trans.c
===================================================================
--- gcc/fortran/trans.c (revision 154189)
+++ gcc/fortran/trans.c (working copy)
@@ -1281,7 +1281,7 @@ gfc_trans_code (gfc_code * code)

       if (res != NULL_TREE && ! IS_EMPTY_STMT (res))
        {
-         if (TREE_CODE (res) != STATEMENT_LIST)
+         if (TREE_CODE (res) != STATEMENT_LIST && gfc_option.flag_openmp)
            SET_EXPR_LOCATION (res, input_location);

          /* Add the new statement to the block.  */


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41827