URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [omp_threadprivate1.f90] - Rev 484
Go to most recent revision | 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" } }
Go to most recent revision | Compare with Previous | Blame | View Log