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