trunk/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.23.5.f90

   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