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

Details | Compare with Previous | View Log


! { dg-do compile }
      SUBROUTINE A23_2_GOOD()
         COMMON /C/ X,Y
         REAL X, Y
         INTEGER I
!$OMP PARALLEL
!$OMP DO PRIVATE(/C/)
           DO I=1,1000
             ! do work here
           ENDDO
!$OMP END DO
!
!$OMP DO PRIVATE(X)
           DO I=1,1000
             ! do work here
           ENDDO
!$OMP END DO
!$OMP END PARALLEL
       END SUBROUTINE A23_2_GOOD

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`SUBROUTINE A23_2_GOOD()`
3			`COMMON /C/ X,Y`
4			`REAL X, Y`
5			`INTEGER I`
6			`!$OMP PARALLEL`
7			`!$OMP DO PRIVATE(/C/)`
8			`DO I=1,1000`
9			`! do work here`
10			`ENDDO`
11			`!$OMP END DO`
12			`!`
13			`!$OMP DO PRIVATE(X)`
14			`DO I=1,1000`
15			`! do work here`
16			`ENDDO`
17			`!$OMP END DO`
18			`!$OMP END PARALLEL`
19			`END SUBROUTINE A23_2_GOOD`

Browse

Tools

Subversion Repositories openrisc

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