------- 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
