URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.36.1.f90] - Rev 316
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
SUBROUTINE DO_BY_16(X, IAM, IPOINTS)
REAL X(*)
INTEGER IAM, IPOINTS
END SUBROUTINE DO_BY_16
SUBROUTINE SUBA36(X, NPOINTS)
INTEGER NPOINTS
REAL X(NPOINTS)
INTEGER IAM, IPOINTS
EXTERNAL OMP_SET_DYNAMIC, OMP_SET_NUM_THREADS
INTEGER OMP_GET_NUM_THREADS, OMP_GET_THREAD_NUM
CALL OMP_SET_DYNAMIC(.FALSE.)
CALL OMP_SET_NUM_THREADS(16)
!$OMP PARALLEL SHARED(X,NPOINTS) PRIVATE(IAM, IPOINTS)
IF (OMP_GET_NUM_THREADS() .NE. 16) THEN
STOP
ENDIF
IAM = OMP_GET_THREAD_NUM()
IPOINTS = NPOINTS/16
CALL DO_BY_16(X,IAM,IPOINTS)
!$OMP END PARALLEL
END SUBROUTINE SUBA36
Go to most recent revision | Compare with Previous | Blame | View Log