URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [omp_threadprivate1.f90] - Rev 516
Compare with Previous | Blame | View Log
! { 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" } }