1! { dg-do compile }
2
3        SUBROUTINE A23_4_WRONG()
4        COMMON /C/ X,Y
5! Incorrect because X is a constituent element of C
6!$OMP PARALLEL PRIVATE(/C/), SHARED(X)	! { dg-error "Symbol 'x' present" }
7          ! do work here
8!$OMP END PARALLEL
9      END SUBROUTINE A23_4_WRONG
10