Hello,
While trying to build a linked list of extended types, I came upon the following problem. The association of the next pointer cannot be done directly, but results in a segmentation fault. I have attached an example that demonstrates the problem. All compilations were done with:
Intel Fortran Intel 64 Compiler Professional for applications running on Intel 64, Version 11.1 Build 20091012 Package ID: l_cprof_p_11.1.059
which is the latest version as far as I know.
Any help?
program example
implicit none
type :: p_type
class(p_type),pointer::next=>null()
end type
type, extends(p_type)::pz_type
double complex::z
end type
type, extends(p_type)::pr_type
double precision::r
end type
class(p_type),pointer::p=>null(),cp=>null(),cp2=>null()
allocate(pr_type :: p)
cp=>p
select type(cp)
type is (pr_type)
cp%r=1d0
end select
!like it should work, but doesn't
! cp=>cp%next
!workaround:
cp2=>cp%next
cp=>cp2 !rather useless
end program example
