gcc/testsuite/gfortran.dg/gomp/omp_threadprivate1.f90

   1 ! { dg-require-effective-target tls_native }
   2       module omp_threadprivate1
   3         common /T/ a
   4       end module omp_threadprivate1
   5       subroutine bad1
   6         use omp_threadprivate1
   7 !$omp threadprivate (/T/)       ! { dg-error "not found" }
   8       end subroutine bad1
   9       subroutine bad2
  10         common /S/ b
  11 !$omp threadprivate (/S/)
  12       contains
  13         subroutine bad3
  14 !$omp parallel copyin (/T/)     ! { dg-error "not found" }
  15 !$omp end parallel              ! { dg-error "" }
  16         end subroutine bad3
  17       end subroutine bad2
  18 ! { dg-final { cleanup-modules "omp_threadprivate1" } }