libgomp/testsuite/libgomp.fortran/pr71014.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

! PR fortran/71014
! { dg-do run }
! { dg-additional-options "-O0" }

program pr71014
  implicit none
  integer :: i, j
  integer, parameter :: t = 100*101/2
  integer :: s(16)
  s(:) = 0
!$omp parallel do
  do j = 1, 16
    associate (k => j)
      do i = 1, 100
        s(j) = s(j) + i
      end do
    end associate
  end do
  if (any(s /= t)) STOP 1
end program pr71014