OpenCores

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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr51089.f90] - Rev 694

Compare with Previous | Blame | 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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.