1! PR fortran/71014 2! { dg-do run } 3! { dg-additional-options "-O0" } 4 5program pr71014 6 implicit none 7 integer :: i, j 8 integer, parameter :: t = 100*101/2 9 integer :: s(16) 10 s(:) = 0 11!$omp parallel do 12 do j = 1, 16 13 associate (k => j) 14 do i = 1, 100 15 s(j) = s(j) + i 16 end do 17 end associate 18 end do 19 if (any(s /= t)) stop 1 20end program pr71014 21