Subversion Repositories openrisc

! { dg-do run }
!
! PR fortran/42597
!
! Contributed by mrestelli@gmail.com
!

module mod_a
 implicit none

 abstract interface
  pure function intf(x) result(y)
   real, intent(in) :: x(:,:)
   real :: y(size(x,1),size(x,1),size(x,2))
  end function intf
 end interface

 procedure(intf), pointer :: p_fun => null()
end module mod_a

program main
  use mod_a
  implicit none

  procedure(intf), pointer :: p_fun2 => null()

  if (associated(p_fun) .or. associated(p_fun2)) &
    call abort ()
end program main

! { dg-final { cleanup-modules "mod_a" } }