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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! PR middle-end/51089
! { dg-do compile }
! { dg-options "-O -fexceptions -fopenmp" }
 
subroutine foo
  real, allocatable, dimension(:) :: s
  real, dimension(:, :, :), pointer :: t
  call fn1 (t, s)
  call fn2 ()
end subroutine foo
subroutine bar
  integer :: i
!$omp parallel do
  do i = 1, 10
  end do
end subroutine bar

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR middle-end/51089`
2			`! { dg-do compile }`
3			`! { dg-options "-O -fexceptions -fopenmp" }`
4
5			`subroutine foo`
6			`real, allocatable, dimension(:) :: s`
7			`real, dimension(:, :, :), pointer :: t`
8			`call fn1 (t, s)`
9			`call fn2 ()`
10			`end subroutine foo`
11			`subroutine bar`
12			`integer :: i`
13			`!$omp parallel do`
14			`do i = 1, 10`
15			`end do`
16			`end subroutine bar`

Browse

Tools

Subversion Repositories openrisc

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