1! PR fortran/62131
2! { dg-do compile }
3! { dg-options "-fopenmp" }
4
5program pr62131
6  integer,allocatable :: nerrs(:,:)
7  allocate(nerrs(10,10))
8  nerrs(:,:) = 0
9!$omp parallel do
10  do k=1,10
11    call uperrs(k,1)
12  end do
13contains
14  subroutine uperrs(i,io)
15    integer,intent(in) :: i,io
16!$omp atomic
17    nerrs(i,io)=nerrs(i,io)+1
18  end subroutine
19end
20