1! { dg-do compile }
2      SUBROUTINE A23_2_GOOD()
3         COMMON /C/ X,Y
4         REAL X, Y
5         INTEGER I
6!$OMP PARALLEL
7!$OMP DO PRIVATE(/C/)
8           DO I=1,1000
9             ! do work here
10           ENDDO
11!$OMP END DO
12!
13!$OMP DO PRIVATE(X)
14           DO I=1,1000
15             ! do work here
16           ENDDO
17!$OMP END DO
18!$OMP END PARALLEL
19       END SUBROUTINE A23_2_GOOD
20