32 lines
555 B
Fortran
32 lines
555 B
Fortran
! { 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" } }
|