re PR fortran/49792 (OpenMP workshare: Wrong result with array assignment)
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. From-SVN: r177898
Showing
- gcc/fortran/ChangeLog 10 additions, 0 deletionsgcc/fortran/ChangeLog
- gcc/fortran/trans-expr.c 5 additions, 4 deletionsgcc/fortran/trans-expr.c
- gcc/fortran/trans-openmp.c 3 additions, 3 deletionsgcc/fortran/trans-openmp.c
- libgomp/ChangeLog 6 additions, 0 deletionslibgomp/ChangeLog
- libgomp/testsuite/libgomp.fortran/pr49792-1.f90 18 additions, 0 deletionslibgomp/testsuite/libgomp.fortran/pr49792-1.f90
- libgomp/testsuite/libgomp.fortran/pr49792-2.f90 22 additions, 0 deletionslibgomp/testsuite/libgomp.fortran/pr49792-2.f90
Loading
Please register or sign in to comment