URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-dev/] [fsf-gcc-snapshot-1-mar-12/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [pr32359.f90] - Diff between revs 735 and 783

Rev 735	Rev 783
`! { dg-do compile }`	`! { dg-do compile }`
`!`	`!`
`! PR fortran/32359`	`! PR fortran/32359`
`! Contributed by Bill Long`	`! Contributed by Bill Long`

`subroutine test`	`subroutine test`
`use omp_lib`	`use omp_lib`
`implicit none`	`implicit none`
`integer, parameter :: NT = 4`	`integer, parameter :: NT = 4`
`integer :: a`	`integer :: a`
`save`	`save`
`!$omp threadprivate(a)`	`!$omp threadprivate(a)`
`a = 1`	`a = 1`

`!$ call omp_set_num_threads(NT)`	`!$ call omp_set_num_threads(NT)`
`!$omp parallel`	`!$omp parallel`
`print *, omp_get_thread_num(), a`	`print *, omp_get_thread_num(), a`
`!$omp end parallel`	`!$omp end parallel`

`end subroutine test`	`end subroutine test`

`! Derived from OpenMP test omp1/F2_6_2_8_5i.f90`	`! Derived from OpenMP test omp1/F2_6_2_8_5i.f90`
`use omp_lib`	`use omp_lib`
`implicit none`	`implicit none`
`integer, parameter :: NT = 4`	`integer, parameter :: NT = 4`
`integer :: a = 1`	`integer :: a = 1`
`!$omp threadprivate(a)`	`!$omp threadprivate(a)`

`!$ call omp_set_num_threads(NT)`	`!$ call omp_set_num_threads(NT)`
`!$omp parallel`	`!$omp parallel`
`print *, omp_get_thread_num(), a`	`print *, omp_get_thread_num(), a`
`!$omp end parallel`	`!$omp end parallel`

`END`	`END`