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.0rc4/] [libgomp/] [testsuite/] [libgomp.fortran/] [pr27916-1.f90] - Diff between revs 273 and 519

Rev 273	Rev 519
`! PR fortran/27916`	`! PR fortran/27916`
`! Test whether allocatable privatized arrays has "not currently allocated"`	`! Test whether allocatable privatized arrays has "not currently allocated"`
`! status at the start of OpenMP constructs.`	`! status at the start of OpenMP constructs.`
`! { dg-do run }`	`! { dg-do run }`

`program pr27916`	`program pr27916`
`integer :: n, i`	`integer :: n, i`
`logical :: r`	`logical :: r`
`integer, dimension(:), allocatable :: a`	`integer, dimension(:), allocatable :: a`

`r = .false.`	`r = .false.`
`!$omp parallel do num_threads (4) private (n, a, i) &`	`!$omp parallel do num_threads (4) private (n, a, i) &`
`!$omp & reduction (.or.: r) schedule (static)`	`!$omp & reduction (.or.: r) schedule (static)`
`do n = 1, 16`	`do n = 1, 16`
`r = r .or. allocated (a)`	`r = r .or. allocated (a)`
`allocate (a (16))`	`allocate (a (16))`
`r = r .or. .not. allocated (a)`	`r = r .or. .not. allocated (a)`
`do i = 1, 16`	`do i = 1, 16`
`a (i) = i`	`a (i) = i`
`end do`	`end do`
`deallocate (a)`	`deallocate (a)`
`r = r .or. allocated (a)`	`r = r .or. allocated (a)`
`end do`	`end do`
`!$omp end parallel do`	`!$omp end parallel do`
`if (r) call abort`	`if (r) call abort`
`end program pr27916`	`end program pr27916`