1! { dg-do compile }
2SUBROUTINE A7_1(A,N)
3INTEGER OMP_GET_THREAD_NUM
4REAL A(*)
5INTEGER I, MYOFFSET, N
6!$OMP PARALLEL PRIVATE(MYOFFSET)
7       MYOFFSET = OMP_GET_THREAD_NUM()*N
8       DO I = 1, N
9          A(MYOFFSET+I) = FLOAT(I)
10       ENDDO
11!$OMP END PARALLEL
12END SUBROUTINE A7_1
13