gcc/testsuite/gfortran.dg/proc_ptr_26.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/42597
   4 !
   5 ! Contributed by mrestelli@gmail.com
   6 !
   7
   8 module 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()
  19 end module mod_a
  20
  21 program 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     call abort ()
  29 end program main