gcc/testsuite/gfortran.dg/gomp/appendix-a/a.22.4.f90

   1 ! { dg-do compile }
   2 ! { dg-require-effective-target tls_native }
   3
   4       MODULE A22_MODULE
   5       COMMON /T/ A
   6       END MODULE A22_MODULE
   7       SUBROUTINE A22_4_WRONG()
   8         USE A22_MODULE
   9 !$OMP THREADPRIVATE(/T/)        ! { dg-error "COMMON block" }
  10       !non-conforming because /T/ not declared in A22_4_WRONG
  11       END SUBROUTINE A22_4_WRONG
  12 ! { dg-final { cleanup-modules "A22_MODULE" } }