blob: dca4eb15fc644938cc9270bdf6b1636b07f893e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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
|
