3 ! PR 60232: [OOP] The rank of the element in the structure constructor does not match that of the component
5 ! Contributed by Antony Lewis <antony@cosmologist.info>
12 procedure
:: ArrayItem
17 function ArrayItem(L
) result(P
)
18 Class(TObjectList
) :: L
19 Class(TObjectList
), pointer :: P(:)
28 Type, extends(TObjectList
):: TSampleList
33 subroutine TSampleList_ConfidVal(L
)
34 Class(TSampleList
) :: L