URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.35.6.f90] - Blame information for rev 338

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	302	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/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.35.6.f90] - Blame information for rev 338