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

   1 ! { dg-do compile }
   2 ! { dg-require-effective-target tls_native }
   3
   4       SUBROUTINE A22_5_WRONG()
   5         COMMON /T/ A
   6 !$OMP THREADPRIVATE(/T/)
   7         CONTAINS
   8           SUBROUTINE A22_5S_WRONG()
   9 !$OMP PARALLEL COPYIN(/T/)      ! { dg-error "COMMON block" }
  10       !non-conforming because /T/ not declared in A22_5S_WRONG
  11 !$OMP END PARALLEL              ! { dg-error "Unexpected" }
  12           END SUBROUTINE A22_5S_WRONG
  13       END SUBROUTINE A22_5_WRONG