1! { dg-do compile } 2 SUBROUTINE A23_2_GOOD() 3 COMMON /C/ X,Y 4 REAL X, Y 5 INTEGER I 6!$OMP PARALLEL 7!$OMP DO PRIVATE(/C/) 8 DO I=1,1000 9 ! do work here 10 ENDDO 11!$OMP END DO 12! 13!$OMP DO PRIVATE(X) 14 DO I=1,1000 15 ! do work here 16 ENDDO 17!$OMP END DO 18!$OMP END PARALLEL 19 END SUBROUTINE A23_2_GOOD 20