https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63553
patnel97269-gfortran at yahoo dot fr changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |patnel97269-gfortran@yahoo.
| |fr
--- Comment #2 from patnel97269-gfortran at yahoo dot fr ---
As I wrote here https://gcc.gnu.org/ml/fortran/2014-10/msg00079.html,
I think this case is also related :
program toto
implicit none
type mother
integer :: i
end type mother
type,extends(mother) :: child
end type child
type(mother) :: tm
type(child) :: tc
class(mother),allocatable :: cm,cm2
class(child),allocatable :: cc
allocate(cm)
allocate(child::cm2)
cm%i=10
select type (cm2)
type is (child)
cm2%mother=cm
end select
print *,'class cm2 is type tm',extends_type_of(cm2,tm)
print *,'class cm2 is class cm',extends_type_of(cm2,cm)
print *,'class cm2 is type tc',extends_type_of(cm2,tc)
print *,'class cm2 is class cc',extends_type_of(cm2,cc)
print *,'cm2=cm', cm%i,cm2%i
end program
