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

Details | Compare with Previous | View Log


! { dg-do compile }
 
         SUBROUTINE WRONG6(N)
         INTEGER N
!$OMP PARALLEL DEFAULT(SHARED)
!$OMP SINGLE
           CALL WORK(N,1)
! incorrect nesting of barrier region in a single region
!$OMP BARRIER   ! { dg-warning "may not be closely nested" }
            CALL WORK(N,2)
!$OMP END SINGLE
!$OMP END PARALLEL
      END SUBROUTINE WRONG6
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2
3			`SUBROUTINE WRONG6(N)`
4			`INTEGER N`
5			`!$OMP PARALLEL DEFAULT(SHARED)`
6			`!$OMP SINGLE`
7			`CALL WORK(N,1)`
8			`! incorrect nesting of barrier region in a single region`
9			`!$OMP BARRIER ! { dg-warning "may not be closely nested" }`
10			`CALL WORK(N,2)`
11			`!$OMP END SINGLE`
12			`!$OMP END PARALLEL`
13			`END SUBROUTINE WRONG6`
14

Browse

Tools

Subversion Repositories openrisc

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