Subversion Repositories openrisc_2011-10-31

! { 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" } }