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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.21.1.f90] - Blame information for rev 826

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 273 jeremybenn 
! { dg-do compile }
2 
      SUBROUTINE WORK(K)
3 
        INTEGER k
4 
!$OMP ORDERED
5 
        WRITE(*,*) K
6 
!$OMP END ORDERED
7 
      END SUBROUTINE WORK
8 
      SUBROUTINE SUBA21(LB, UB, STRIDE)
9 
        INTEGER LB, UB, STRIDE
10 
        INTEGER I
11 
!$OMP PARALLEL DO ORDERED SCHEDULE(DYNAMIC)
12 
        DO I=LB,UB,STRIDE
13 
          CALL WORK(I)
14 
        END DO
15 
!$OMP END PARALLEL DO
16 
      END SUBROUTINE SUBA21
17 
      PROGRAM A21
18 
        CALL SUBA21(1,100,5)
19 
      END PROGRAM A21

powered by: WebSVN 2.1.0

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