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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [workshare1.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`function foo ()`	`function foo ()`
`integer :: foo`	`integer :: foo`
`logical :: foo_seen`	`logical :: foo_seen`
`common /foo_seen/ foo_seen`	`common /foo_seen/ foo_seen`
`foo_seen = .true.`	`foo_seen = .true.`
`foo = 3`	`foo = 3`
`end`	`end`
`function bar ()`	`function bar ()`
`integer :: bar`	`integer :: bar`
`logical :: bar_seen`	`logical :: bar_seen`
`common /bar_seen/ bar_seen`	`common /bar_seen/ bar_seen`
`bar_seen = .true.`	`bar_seen = .true.`
`bar = 3`	`bar = 3`
`end`	`end`
`integer :: a (10), b (10), foo, bar`	`integer :: a (10), b (10), foo, bar`
`logical :: foo_seen, bar_seen`	`logical :: foo_seen, bar_seen`
`common /foo_seen/ foo_seen`	`common /foo_seen/ foo_seen`
`common /bar_seen/ bar_seen`	`common /bar_seen/ bar_seen`

`foo_seen = .false.`	`foo_seen = .false.`
`bar_seen = .false.`	`bar_seen = .false.`
`!$omp parallel workshare if (foo () .gt. 2) num_threads (bar () + 1)`	`!$omp parallel workshare if (foo () .gt. 2) num_threads (bar () + 1)`
`a = 10`	`a = 10`
`b = 20`	`b = 20`
`a(1:5) = max (a(1:5), b(1:5))`	`a(1:5) = max (a(1:5), b(1:5))`
`!$omp end parallel workshare`	`!$omp end parallel workshare`
`if (any (a(1:5) .ne. 20)) call abort`	`if (any (a(1:5) .ne. 20)) call abort`
`if (any (a(6:10) .ne. 10)) call abort`	`if (any (a(6:10) .ne. 10)) call abort`
`if (.not. foo_seen .or. .not. bar_seen) call abort`	`if (.not. foo_seen .or. .not. bar_seen) call abort`
`end`	`end`