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