1! { dg-do compile } 2 3 SUBROUTINE A27() 4 INTEGER I, A 5!$OMP PARALLEL PRIVATE(A) 6!$OMP PARALLEL DO PRIVATE(A) 7 DO I = 1, 10 8 ! do work here 9 END DO 10!$OMP END PARALLEL DO 11!$OMP END PARALLEL 12 END SUBROUTINE A27 13