! { dg-do compile }
! { dg-options "-fimplicit-none" }
! PR fortran/69603 - segfault with -fimplicit-none and proc_ptr_comp_24.f90
! Based on reduced testcase by Dominique d'Humieres
PROGRAM prog
  implicit none
  TYPE object
     PROCEDURE(), POINTER, NOPASS :: f
  END TYPE object
  TYPE (object) :: o1
  CALL set_func(o1%f)
CONTAINS
  SUBROUTINE set_func(f)
    PROCEDURE(), POINTER :: f
  END SUBROUTINE set_func
END PROGRAM prog