https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83837
Jakub Jelinek <jakub at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |jakub at gcc dot gnu.org
--- Comment #2 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
Reduced testcase:
subroutine foo (c)
integer, pointer :: c(:), d(:)
d => c
!$omp parallel firstprivate (d)
!$omp atomic
d(1) = d(1) + 1
!$omp end parallel
end subroutine foo
