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.6.1.f90] - Blame information for rev 827

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


! { dg-do compile }
 
      SUBROUTINE WORK(I, J)
      INTEGER I,J
      END SUBROUTINE WORK
      SUBROUTINE A6_GOOD()
        INTEGER I, J
        REAL A(1000)
        DO 100 I = 1,10
!$OMP DO
           DO 100 J = 1,10
              CALL WORK(I,J)
            100     CONTINUE        ! !$OMP ENDDO implied here
!$OMP DO
        DO 200 J = 1,10
200        A(I) = I + 1
!$OMP ENDDO
!$OMP DO
        DO 300 I = 1,10
           DO 300 J = 1,10
              CALL WORK(I,J)
300     CONTINUE
!$OMP ENDDO
      END SUBROUTINE A6_GOOD

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2
3			`SUBROUTINE WORK(I, J)`
4			`INTEGER I,J`
5			`END SUBROUTINE WORK`
6			`SUBROUTINE A6_GOOD()`
7			`INTEGER I, J`
8			`REAL A(1000)`
9			`DO 100 I = 1,10`
10			`!$OMP DO`
11			`DO 100 J = 1,10`
12			`CALL WORK(I,J)`
13			`100 CONTINUE ! !$OMP ENDDO implied here`
14			`!$OMP DO`
15			`DO 200 J = 1,10`
16			`200 A(I) = I + 1`
17			`!$OMP ENDDO`
18			`!$OMP DO`
19			`DO 300 I = 1,10`
20			`DO 300 J = 1,10`
21			`CALL WORK(I,J)`
22			`300 CONTINUE`
23			`!$OMP ENDDO`
24			`END SUBROUTINE A6_GOOD`

Browse

Tools

Subversion Repositories openrisc

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