! { 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)) & | |
STOP 1 | |
end program main |