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

["jakub at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #2 from Jakub Jelinek <jakub at gcc dot gnu.org> 2011-08-19 13:26:54 UTC ---
Author: jakub
Date: Fri Aug 19 13:26:50 2011
New Revision: 177900

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=177900
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:
    branches/gcc-4_6-branch/libgomp/testsuite/libgomp.fortran/pr49792-1.f90
    branches/gcc-4_6-branch/libgomp/testsuite/libgomp.fortran/pr49792-2.f90
Modified:
    branches/gcc-4_6-branch/gcc/fortran/ChangeLog
    branches/gcc-4_6-branch/gcc/fortran/trans-expr.c
    branches/gcc-4_6-branch/gcc/fortran/trans-openmp.c
    branches/gcc-4_6-branch/libgomp/ChangeLog