Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-fopenmp -fcray-pointer" }

!

! PR fortran/43985

subroutine pete(A)

  real(8) :: A

  print *, 'pete got ',A

  if (A /= 3.0) call abort()

end subroutine pete

       subroutine bob()

         implicit none

         real(8) peted

         pointer (ipeted, peted(*))

         integer(4) sz

         ipeted = malloc(5*8)

         peted(1:5) = [ 1.,2.,3.,4.,5.]

         sz = 3

!$omp parallel default(shared)

         call pete(peted(sz))

!$omp end parallel

         return

       end subroutine bob

call bob()

end