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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.1.1.f90] - Blame information for rev 154

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
      SUBROUTINE A1(N, A, B)
      INTEGER I, N
      REAL B(N), A(N)
!$OMP PARALLEL DO !I is private by default
      DO I=2,N
          B(I) = (A(I) + A(I-1)) / 2.0
      ENDDO
!$OMP END PARALLEL DO
      END SUBROUTINE A1

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`SUBROUTINE A1(N, A, B)`
3			`INTEGER I, N`
4			`REAL B(N), A(N)`
5			`!$OMP PARALLEL DO !I is private by default`
6			`DO I=2,N`
7			`B(I) = (A(I) + A(I-1)) / 2.0`
8			`ENDDO`
9			`!$OMP END PARALLEL DO`
10			`END SUBROUTINE A1`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.1.1.f90] - Blame information for rev 154