[Bug fortran/69128] [4.9/5/6 Regression] OpenMP workshare problem with SUM()

[jakub at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69128

--- Comment #3 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
Author: jakub
Date: Fri Jan  8 06:45:18 2016
New Revision: 232151

URL: https://gcc.gnu.org/viewcvs?rev=232151&root=gcc&view=rev
Log:
        PR fortran/69128
        * trans.h (OMPWS_SCALARIZER_BODY): Define.
        (OMPWS_NOWAIT): Renumber.
        * trans-stmt.c (gfc_trans_where_3): Only set OMPWS_SCALARIZER_WS
        if OMPWS_SCALARIZER_BODY is not set already, and set also
        OMPWS_SCALARIZER_BODY until the final loop creation.
        * trans-expr.c (gfc_trans_assignment_1): Likewise.
        * trans-openmp.c (gfc_trans_omp_workshare): Also clear
        OMPWS_SCALARIZER_BODY.
        * trans-array.c (gfc_trans_scalarized_loop_end): Don't create
        OMP_FOR if OMPWS_SCALARIZER_BODY is set.

        * gfortran.dg/gomp/pr69128.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/gomp/pr69128.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-array.c
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/fortran/trans-openmp.c
    trunk/gcc/fortran/trans-stmt.c
    trunk/gcc/fortran/trans.h
    trunk/gcc/testsuite/ChangeLog