(j3.2006) Parent component of extension of abstract type
Van Snyder
Van.Snyder
Thu Nov 12 16:32:00 EST 2015
It seems a bit strange that I can't access the parent component of an
object of a type that is an extension of an abstract type, but I can
access components of the parent component. Is this what we intended?
program P
type, abstract :: T0
integer :: N = 42
end type T0
type, extends(t0) :: T1
end type T1
type(t1) :: V1, V2
print '(a,i0)', 'V1 ', v1
print '(a,i0)', 'V1%T0 ', v1%t0 ! Prohibited
print '(a,i0)', 'V1%T0%n ', v1%t0%n
v2 = v1
v2%t0 = v1%t0 ! Prohibited
v2%t0%n = v1%t0%n
end program P
More information about the J3
mailing list