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

Rev 273	Rev 519
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-fopenmp -fcheck=recursion" }`	`! { dg-options "-fopenmp -fcheck=recursion" }`
`!`	`!`
`! PR 42517: Bogus runtime error with -fopenmp -fcheck=recursion`	`! PR 42517: Bogus runtime error with -fopenmp -fcheck=recursion`
`!`	`!`
`! Contributed by Janus Weil`	`! Contributed by Janus Weil`

`implicit none`	`implicit none`
`integer :: i,s`	`integer :: i,s`

`s=0`	`s=0`
`!$omp parallel do private(i) shared(s)`	`!$omp parallel do private(i) shared(s)`
`do i=1,10`	`do i=1,10`
`call sub(i)`	`call sub(i)`
`end do`	`end do`
`!$omp end parallel do`	`!$omp end parallel do`
`if (s/=55) call abort()`	`if (s/=55) call abort()`

`contains`	`contains`

`subroutine sub (n)`	`subroutine sub (n)`
`integer :: n`	`integer :: n`
`!$omp atomic`	`!$omp atomic`
`s = s + n`	`s = s + n`
`print '(A,i3)',"loop =",n`	`print '(A,i3)',"loop =",n`
`end subroutine`	`end subroutine`

`end`	`end`