URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [libgomp/] [testsuite/] [libgomp.fortran/] [allocatable3.f90] - Diff between revs 273 and 338

Rev 273	Rev 338
`! { dg-do run }`	`! { dg-do run }`

`integer, allocatable :: a(:)`	`integer, allocatable :: a(:)`
`integer :: i`	`integer :: i`
`logical :: l`	`logical :: l`
`l = .false.`	`l = .false.`
`if (allocated (a)) call abort`	`if (allocated (a)) call abort`
`!$omp parallel private (a) reduction (.or.:l)`	`!$omp parallel private (a) reduction (.or.:l)`
`allocate (a (-7:-5))`	`allocate (a (-7:-5))`
`l = l.or..not.allocated (a)`	`l = l.or..not.allocated (a)`
`l = l.or.size(a).ne.3.or.size(a,1).ne.3`	`l = l.or.size(a).ne.3.or.size(a,1).ne.3`
`a(:) = 0`	`a(:) = 0`
`!$omp do private (a)`	`!$omp do private (a)`
`do i = 1, 7`	`do i = 1, 7`
`a(:) = i`	`a(:) = i`
`l = l.or.any (a.ne.i)`	`l = l.or.any (a.ne.i)`
`end do`	`end do`
`l = l.or.any (a.ne.0)`	`l = l.or.any (a.ne.0)`
`deallocate (a)`	`deallocate (a)`
`!$omp end parallel`	`!$omp end parallel`
`end`	`end`