1! { dg-do compile } 2 SUBROUTINE A1(N, A, B) 3 INTEGER I, N 4 REAL B(N), A(N) 5!$OMP PARALLEL DO !I is private by default 6 DO I=2,N 7 B(I) = (A(I) + A(I-1)) / 2.0 8 ENDDO 9!$OMP END PARALLEL DO 10 END SUBROUTINE A1 11