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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! PR tree-optimization/48794
! { dg-do compile }
! { dg-options "-Os -fopenmp -fexceptions -fno-tree-ccp -fno-tree-copy-prop" }
 
  integer, allocatable :: a(:)
  logical :: l
  if (allocated (a)) call abort
!$omp parallel private (a) reduction (.or.:l)
  do i = 1, 7
  end do
!$omp end parallel
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR tree-optimization/48794`
2			`! { dg-do compile }`
3			`! { dg-options "-Os -fopenmp -fexceptions -fno-tree-ccp -fno-tree-copy-prop" }`
4
5			`integer, allocatable :: a(:)`
6			`logical :: l`
7			`if (allocated (a)) call abort`
8			`!$omp parallel private (a) reduction (.or.:l)`
9			`do i = 1, 7`
10			`end do`
11			`!$omp end parallel`
12			`end`

Browse

Tools

Subversion Repositories openrisc

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