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