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

Details | Compare with Previous | View Log


! { dg-do compile }
      SUBROUTINE A11_7(AA, BB, CC, N)
      INTEGER N
      REAL AA(N), BB(N), CC(N)
!$OMP PARALLEL
!$OMP WORKSHARE
            AA(1:50) = BB(11:60)
            CC(11:20) = AA(1:10)
!$OMP END WORKSHARE
!$OMP END PARALLEL
      END SUBROUTINE A11_7

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`SUBROUTINE A11_7(AA, BB, CC, N)`
3			`INTEGER N`
4			`REAL AA(N), BB(N), CC(N)`
5			`!$OMP PARALLEL`
6			`!$OMP WORKSHARE`
7			`AA(1:50) = BB(11:60)`
8			`CC(11:20) = AA(1:10)`
9			`!$OMP END WORKSHARE`
10			`!$OMP END PARALLEL`
11			`END SUBROUTINE A11_7`

Browse

Tools

Subversion Repositories openrisc

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