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