1! { dg-do run }
2!
3! PR fortran/42597
4!
5! Contributed by mrestelli@gmail.com
6!
7
8module mod_a
9 implicit none
10
11 abstract interface
12  pure function intf(x) result(y)
13   real, intent(in) :: x(:,:)
14   real :: y(size(x,1),size(x,1),size(x,2))
15  end function intf
16 end interface
17
18 procedure(intf), pointer :: p_fun => null()
19end module mod_a
20
21program main
22  use mod_a
23  implicit none
24
25  procedure(intf), pointer :: p_fun2 => null()
26
27  if (associated(p_fun) .or. associated(p_fun2)) &
28    STOP 1
29end program main
30