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