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