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