view gcc/testsuite/gfortran.dg/proc_ptr_26.f90 @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 84e7813d76e9
children
line wrap: on
line source

! { 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