Subversion Repositories openrisc

! { dg-require-effective-target tls_native }

      module omp_threadprivate1

        common /T/ a

      end module omp_threadprivate1

      subroutine bad1

        use omp_threadprivate1

!$omp threadprivate (/T/)       ! { dg-error "not found" }

      end subroutine bad1

      subroutine bad2

        common /S/ b

!$omp threadprivate (/S/)

      contains

        subroutine bad3

!$omp parallel copyin (/T/)     ! { dg-error "not found" }

!$omp end parallel              ! { dg-error "" }

        end subroutine bad3

      end subroutine bad2

! { dg-final { cleanup-modules "omp_threadprivate1" } }