! PR fortran/62131 | |
! { dg-do compile } | |
! { dg-options "-fopenmp" } | |
program pr62131 | |
integer,allocatable :: nerrs(:,:) | |
allocate(nerrs(10,10)) | |
nerrs(:,:) = 0 | |
!$omp parallel do | |
do k=1,10 | |
call uperrs(k,1) | |
end do | |
contains | |
subroutine uperrs(i,io) | |
integer,intent(in) :: i,io | |
!$omp atomic | |
nerrs(i,io)=nerrs(i,io)+1 | |
end subroutine | |
end |