[Bug fortran/49792] OpenMP workshare: Wrong result with array assignment

[jakub at gcc dot gnu.org]

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

--- Comment #1 from Jakub Jelinek <jakub at gcc dot gnu.org> 2011-08-19 13:25:26 UTC ---
Author: jakub
Date: Fri Aug 19 13:25:22 2011
New Revision: 177898

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=177898
Log:
    PR fortran/49792
    * trans-expr.c (gfc_trans_assignment_1): Set OMPWS_SCALARIZER_WS
    bit in ompws_flags only if loop.temp_ss is NULL, and clear it if
    lhs needs reallocation.
    * trans-openmp.c (gfc_trans_omp_workshare): Don't return early if
    code is NULL, emit a barrier if workshare emitted no code at all
    and NOWAIT clause isn't present.

    * testsuite/libgomp.fortran/pr49792-1.f90: New test.
    * testsuite/libgomp.fortran/pr49792-2.f90: New test.

Added:
    trunk/libgomp/testsuite/libgomp.fortran/pr49792-1.f90
    trunk/libgomp/testsuite/libgomp.fortran/pr49792-2.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/fortran/trans-openmp.c
    trunk/libgomp/ChangeLog