OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.35.1.f90] - Blame information for rev 302

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn 
! { dg-do compile }
2 
 
3 
      SUBROUTINE WORK(I, J)
4 
      INTEGER I, J
5 
      END SUBROUTINE WORK
6 
      SUBROUTINE WRONG1(N)
7 
      INTEGER N
8 
        INTEGER I,J
9 
!$OMP PARALLEL DEFAULT(SHARED)
10 
!$OMP DO
11 
          DO I = 1, N
12 
             ! incorrect nesting of loop regions
13 
!$OMP DO     ! { dg-warning "may not be closely nested" }
14 
             DO J = 1, N
15 
                CALL WORK(I,J)
16 
             END DO
17 
          END DO
18 
!$OMP END PARALLEL
19 
      END SUBROUTINE WRONG1

powered by: WebSVN 2.1.0

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