OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr43337.f90] - Rev 316

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

! PR middle-end/43337
! { dg-do compile }
! { dg-options "-fopenmp -O2 -g" }

subroutine pr43337
  integer :: a, b(10)
  call foo (b)
  call bar (b)
contains
  subroutine foo (b)
    integer :: b(10)
!$omp parallel if (.false.)
!$omp task if (.false.) shared(b)
    do a = 1, 10
      b(a) = 1
    end do
!$omp end task
!$omp end parallel
  end subroutine foo
  subroutine bar (b)
    integer :: b(10)
!$omp parallel if (.false.)
!$omp parallel if (.false.)
    do a = 1, 10
      b(a) = 1
    end do
!$omp end parallel
!$omp end parallel
  end subroutine bar
end subroutine pr43337

Go to most recent revision | 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.