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.13.1.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do compile }
        SUBROUTINE A13(X, Y)
        REAL X(*), Y(*)
        INTEGER IX_NEXT, IY_NEXT
!$OMP PARALLEL SHARED(X, Y) PRIVATE(IX_NEXT, IY_NEXT)
!$OMP CRITICAL(XAXIS)
        CALL DEQUEUE(IX_NEXT, X)
!$OMP END CRITICAL(XAXIS)
        CALL WORK(IX_NEXT, X)
!$OMP CRITICAL(YAXIS)
        CALL DEQUEUE(IY_NEXT,Y)
!$OMP END CRITICAL(YAXIS)
        CALL WORK(IY_NEXT, Y)
!$OMP END PARALLEL
      END SUBROUTINE A13
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`SUBROUTINE A13(X, Y)`
3			`REAL X(), Y()`
4			`INTEGER IX_NEXT, IY_NEXT`
5			`!$OMP PARALLEL SHARED(X, Y) PRIVATE(IX_NEXT, IY_NEXT)`
6			`!$OMP CRITICAL(XAXIS)`
7			`CALL DEQUEUE(IX_NEXT, X)`
8			`!$OMP END CRITICAL(XAXIS)`
9			`CALL WORK(IX_NEXT, X)`
10			`!$OMP CRITICAL(YAXIS)`
11			`CALL DEQUEUE(IY_NEXT,Y)`
12			`!$OMP END CRITICAL(YAXIS)`
13			`CALL WORK(IY_NEXT, Y)`
14			`!$OMP END PARALLEL`
15			`END SUBROUTINE A13`
16

Browse

Tools

Subversion Repositories openrisc

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