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