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.5.f90] - Blame information for rev 427

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


! { dg-do compile }
 
      SUBROUTINE WRONG5(N)
      INTEGER N
!$OMP PARALLEL DEFAULT(SHARED)
!$OMP CRITICAL
            CALL WORK(N,1)
! incorrect nesting of barrier region in a critical region
!$OMP BARRIER
            CALL WORK(N,2)
!$OMP END CRITICAL
!$OMP END PARALLEL
      END SUBROUTINE WRONG5

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2
3			`SUBROUTINE WRONG5(N)`
4			`INTEGER N`
5			`!$OMP PARALLEL DEFAULT(SHARED)`
6			`!$OMP CRITICAL`
7			`CALL WORK(N,1)`
8			`! incorrect nesting of barrier region in a critical region`
9			`!$OMP BARRIER`
10			`CALL WORK(N,2)`
11			`!$OMP END CRITICAL`
12			`!$OMP END PARALLEL`
13			`END SUBROUTINE WRONG5`

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.5.f90] - Blame information for rev 427