OpenCores
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 302

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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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