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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.4.1.f90] - Rev 273

Compare with Previous | Blame | View Log

! { dg-do run }
      SUBROUTINE SUBDOMAIN(X, ISTART, IPOINTS)
          INTEGER ISTART, IPOINTS
          REAL X(*)
          INTEGER I
          DO 100 I=1,IPOINTS
             X(ISTART+I) = 123.456
 100      CONTINUE
      END SUBROUTINE SUBDOMAIN
      SUBROUTINE SUB(X, NPOINTS)
          INCLUDE "omp_lib.h"      ! or USE OMP_LIB
          REAL X(*)
          INTEGER NPOINTS
          INTEGER IAM, NT, IPOINTS, ISTART
!$OMP PARALLEL DEFAULT(PRIVATE) SHARED(X,NPOINTS)
          IAM = OMP_GET_THREAD_NUM()
          NT = OMP_GET_NUM_THREADS()
          IPOINTS = NPOINTS/NT
          ISTART = IAM * IPOINTS
          IF (IAM .EQ. NT-1) THEN
              IPOINTS = NPOINTS - ISTART
          ENDIF
          CALL SUBDOMAIN(X,ISTART,IPOINTS)
!$OMP END PARALLEL
      END SUBROUTINE SUB
      PROGRAM A4
          REAL ARRAY(10000)
          CALL SUB(ARRAY, 10000)
      END PROGRAM A4

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.