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