This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/49792] OpenMP workshare: Wrong result with array assignment
- From: "jakub at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Fri, 19 Aug 2011 13:25:26 +0000
- Subject: [Bug fortran/49792] OpenMP workshare: Wrong result with array assignment
- Auto-submitted: auto-generated
- References: <bug-49792-4@http.gcc.gnu.org/bugzilla/>
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