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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [recursion1.f90] - Blame information for rev 735

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 735 jeremybenn
! { dg-do run }
2
! { dg-options "-fopenmp -fcheck=recursion" }
3
!
4
! PR 42517: Bogus runtime error with -fopenmp -fcheck=recursion
5
!
6
! Contributed by Janus Weil 
7
 
8
implicit none
9
integer :: i,s
10
 
11
s=0
12
!$omp parallel do private(i) shared(s)
13
do i=1,10
14
  call sub(i)
15
end do
16
!$omp end parallel do
17
if (s/=55) call abort()
18
 
19
contains
20
 
21
  subroutine sub (n)
22
    integer :: n
23
!$omp atomic
24
    s = s + n
25
    print '(A,i3)',"loop =",n
26
  end subroutine
27
 
28
end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.