1! { dg-do compile } 2 3 SUBROUTINE A23_5_WRONG() 4 COMMON /C/ X,Y 5! Incorrect: common block C cannot be declared both 6! shared and private 7!$OMP PARALLEL PRIVATE (/C/), SHARED(/C/) 8 ! { dg-error "Symbol 'y' present" "" { target *-*-* } 7 } 9 ! { dg-error "Symbol 'x' present" "" { target *-*-* } 7 } 10 ! do work here 11!$OMP END PARALLEL 12 END SUBROUTINE A23_5_WRONG 13