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.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.31.2.f90] - Rev 581
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
SUBROUTINE A31_2 (A, B, X, Y, N)
INTEGER N
REAL X(*), Y(*), A, B, A_P, B_P
!$OMP PARALLEL SHARED(X, Y, N, A, B) PRIVATE(A_P, B_P)
A_P = 0.0
B_P = HUGE(B_P)
!$OMP DO PRIVATE(I)
DO I=1,N
A_P = A_P + X(I)
B_P = MIN(B_P, Y(I))
ENDDO
!$OMP END DO
!$OMP CRITICAL
A = A + A_P
B = MIN(B, B_P)
!$OMP END CRITICAL
!$OMP END PARALLEL
END SUBROUTINE A31_2
Go to most recent revision | Compare with Previous | Blame | View Log