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

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_WRONG
        INTEGER I, J
        DO 100 I = 1,10
!$OMP DO
        DO 100 J = 1,10
        CALL WORK(I,J)
        100      CONTINUE
!$OMP ENDDO     ! { dg-error "Unexpected ..OMP END DO statement" }
        END SUBROUTINE A6_WRONG

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2
3			`SUBROUTINE WORK(I, J)`
4			`INTEGER I,J`
5			`END SUBROUTINE WORK`
6
7			`SUBROUTINE A6_WRONG`
8			`INTEGER I, J`
9			`DO 100 I = 1,10`
10			`!$OMP DO`
11			`DO 100 J = 1,10`
12			`CALL WORK(I,J)`
13			`100 CONTINUE`
14			`!$OMP ENDDO ! { dg-error "Unexpected ..OMP END DO statement" }`
15			`END SUBROUTINE A6_WRONG`

Browse

Tools

Subversion Repositories openrisc

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