| ! 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 |