1! { dg-do compile }
2
3      SUBROUTINE A30(N, A, B)
4       INTEGER N
5       REAL A(*), B(*)
6        INTEGER I
7!$OMP PARALLEL
8!$OMP DO LASTPRIVATE(I)
9        DO I=1,N-1
10          A(I) = B(I) + B(I+1)
11        ENDDO
12!$OMP END PARALLEL
13        A(I) = B(I)      ! I has the value of N here
14      END SUBROUTINE A30
15