1! { dg-do compile }
2      SUBROUTINE A23_1_GOOD()
3        COMMON /C/ X,Y
4        REAL X, Y
5!$OMP PARALLEL PRIVATE (/C/)
6          ! do work here
7!$OMP END PARALLEL
8!$OMP PARALLEL SHARED (X,Y)
9          ! do work here
10!$OMP END PARALLEL
11      END SUBROUTINE A23_1_GOOD
12