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/] [reference2.f90] - Diff between revs 273 and 519

Rev 273	Rev 519
`! { dg-do run }`	`! { dg-do run }`
`real, dimension (5) :: b`	`real, dimension (5) :: b`
`b = 5`	`b = 5`
`call foo (b)`	`call foo (b)`
`contains`	`contains`
`subroutine foo (a)`	`subroutine foo (a)`
`real, dimension (5) :: a`	`real, dimension (5) :: a`
`logical :: l`	`logical :: l`
`l = .false.`	`l = .false.`
`!$omp parallel private (a) reduction (.or.:l)`	`!$omp parallel private (a) reduction (.or.:l)`
`a = 15`	`a = 15`
`l = bar (a)`	`l = bar (a)`
`!$omp end parallel`	`!$omp end parallel`
`if (l) call abort`	`if (l) call abort`
`end subroutine`	`end subroutine`
`function bar (a)`	`function bar (a)`
`real, dimension (5) :: a`	`real, dimension (5) :: a`
`logical :: bar`	`logical :: bar`
`bar = any (a .ne. 15)`	`bar = any (a .ne. 15)`
`end function`	`end function`
`end`	`end`