It seems that not a pointer is transferred but a value in the following case.
Here is the tracking info:
gfortran -g fptr_transfer.f90 -o fptr_transfer && ./fptr_transfer
Segmentation fault (core dumped)gdb fptr_transfer core
[...]
Program terminated with signal 11, Segmentation fault.
#0 0x0000000000400629 in assign_proc_ptr (ptr=0x0, obj1=( 0x40060c <proc>
)) at fptr_transfer.f90:32
32 ptr => obj1%proc
(gdb) where
#0 0x0000000000400629 in assign_proc_ptr (ptr=0x0, obj1=( 0x40060c <proc>
)) at fptr_transfer.f90:32
#1 0x0000000000400687 in transfer_proc_ptr (obj2=( 0 ), obj1=( 0x40060c
<proc> )) at fptr_transfer.f90:26
#2 0x000000000040064c in foo () at fptr_transfer.f90:19
#3 0x00000000004006c2 in main (argc=1, argv=0x7ffff12d2fe4
'./fptr_transfer\000') at fptr_transfer.f90:19
#4 0x00007f1d9cdf0586 in __libc_start_main () from /lib64/libc.so.6
#5 0x0000000000400549 in _start () at ../sysdeps/x86_64/elf/start.S:113
Current language: auto; currently fortran
(gdb)
Here is the corresponding code:
subroutine proc ()
end subroutine proc
program foo
interface
subroutine proc ()
end subroutine proc
end interface
type :: container_t
procedure(proc), nopass, pointer :: proc => null ()
end type container_t
type(container_t), target :: obj1
type(container_t) :: obj2
obj1%proc => proc
call transfer_proc_ptr (obj2, obj1)
contains
subroutine transfer_proc_ptr (obj2, obj1)
type(container_t), intent(out) :: obj2
type(container_t), intent(in), target :: obj1
call assign_proc_ptr (obj2%proc, obj1)
end subroutine transfer_proc_ptr
subroutine assign_proc_ptr (ptr, obj1)
procedure(proc), pointer :: ptr
type(container_t), intent(in), target :: obj1
ptr => obj1%proc
end subroutine assign_proc_ptr
end program foo
--
Summary: [4.5.0] problem with procedure pointers
Product: gcc
Version: 4.5.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: reuter at physik dot uni-freiburg dot de
GCC build triplet: Ref. svn r150253
GCC host triplet: Linux 32bit, 64bit, MAC OS X
GCC target triplet: fortran 4.5.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41022
