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