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

Subversion Repositories openrisc

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

Go to most recent revision | 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(:)
  integer :: b(48)
  logical :: l
  if (allocated (a)) then
    call abort
    call bla(b)
  end if
!$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			`integer :: b(48)`
7			`logical :: l`
8			`if (allocated (a)) then`
9			`call abort`
10			`call bla(b)`
11			`end if`
12			`!$omp parallel private (a) reduction (.or.:l)`
13			`do i = 1, 7`
14			`end do`
15			`!$omp end parallel`
16			`end`

Browse

Tools

Subversion Repositories openrisc

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