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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.35.2.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do compile }
 
      SUBROUTINE WORK1(I,N)
      INTEGER I, N
        INTEGER J
!$OMP DO        ! incorrect nesting of loop regions
        DO J = 1, N
           CALL WORK(I,J)
        END DO
      END SUBROUTINE WORK1
      SUBROUTINE WRONG2(N)
      INTEGER N
        INTEGER I
!$OMP PARALLEL DEFAULT(SHARED)
!$OMP DO
           DO I = 1, N
              CALL WORK1(I,N)
           END DO
!$OMP END PARALLEL
      END SUBROUTINE WRONG2

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2
3			`SUBROUTINE WORK1(I,N)`
4			`INTEGER I, N`
5			`INTEGER J`
6			`!$OMP DO ! incorrect nesting of loop regions`
7			`DO J = 1, N`
8			`CALL WORK(I,J)`
9			`END DO`
10			`END SUBROUTINE WORK1`
11			`SUBROUTINE WRONG2(N)`
12			`INTEGER N`
13			`INTEGER I`
14			`!$OMP PARALLEL DEFAULT(SHARED)`
15			`!$OMP DO`
16			`DO I = 1, N`
17			`CALL WORK1(I,N)`
18			`END DO`
19			`!$OMP END PARALLEL`
20			`END SUBROUTINE WRONG2`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.35.2.f90] - Blame information for rev 694