Subversion Repositories openrisc

! { dg-do compile }

!

! TARGET actual to POINTER dummy with INTENT(IN)

!

program test

  implicit none

  integer, target :: a

  integer :: b

  call foo(a) ! OK

  call foo(b) ! { dg-error "must be a pointer" }

  call bar(a) ! { dg-error "must be a pointer" }

  call bar(b) ! { dg-error "must be a pointer" }

contains

  subroutine foo(p)

    integer, pointer, intent(in) :: p

  end subroutine foo

  subroutine bar(p)

    integer, pointer :: p

  end subroutine bar

end program test