Subversion Repositories openrisc_2011-10-31

! PR fortran/44036

! { dg-do compile }

! { dg-options "-fopenmp" }

subroutine foo(a, b)

  integer, external :: a

  integer, external, pointer :: b

  integer, external :: c

  integer, external, pointer :: d

  integer :: x

  d => a

!$omp parallel default(none) private (x) firstprivate (b, d)

  x = a(4)

  x = b(5)

  x = c(6)

  x = d(7)

!$omp end parallel

end