1! { dg-do compile }
2! { dg-options "-fimplicit-none" }
3! PR fortran/69603 - segfault with -fimplicit-none and proc_ptr_comp_24.f90
4! Based on reduced testcase by Dominique d'Humieres
5PROGRAM prog
6  implicit none
7  TYPE object
8     PROCEDURE(), POINTER, NOPASS :: f
9  END TYPE object
10  TYPE (object) :: o1
11  CALL set_func(o1%f)
12CONTAINS
13  SUBROUTINE set_func(f)
14    PROCEDURE(), POINTER :: f
15  END SUBROUTINE set_func
16END PROGRAM prog
17