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.30.1.f90] - Blame information for rev 774

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


! { dg-do compile }
 
      SUBROUTINE A30(N, A, B)
       INTEGER N
       REAL A(*), B(*)
        INTEGER I
!$OMP PARALLEL
!$OMP DO LASTPRIVATE(I)
        DO I=1,N-1
          A(I) = B(I) + B(I+1)
        ENDDO
!$OMP END PARALLEL
        A(I) = B(I)      ! I has the value of N here
      END SUBROUTINE A30

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2
3			`SUBROUTINE A30(N, A, B)`
4			`INTEGER N`
5			`REAL A(), B()`
6			`INTEGER I`
7			`!$OMP PARALLEL`
8			`!$OMP DO LASTPRIVATE(I)`
9			`DO I=1,N-1`
10			`A(I) = B(I) + B(I+1)`
11			`ENDDO`
12			`!$OMP END PARALLEL`
13			`A(I) = B(I) ! I has the value of N here`
14			`END SUBROUTINE A30`

Browse

Tools

Subversion Repositories openrisc

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