blob: 8e88cd70bcc01d1060b4aa00bdb07b75aac98d65 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! 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
|