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