I experience unexpected behavior when allocating a polymorphic array from a part of another polymorphic array. I have added a fully working program demonstrating the problem.
In both cases, I would have expected to get a TargetItems array with 5 elements. But in the first case, I get an array with 10 elements, i.e. the full size of the SourceItems array.
I have seen this behavior with the latest IVF 17.0.0.109 as well as several previous versions.
Another issue: In the debugger (using IVF 17 and VS 2015 Update 3), all arrays are shown as undefined even after the allocate...
Best regards,
Thomas
program AllocateSourceIssueWithArraySlice
implicit none
type :: baseType
integer aValue
end type
class (baseType), ALLOCATABLE :: SourceItems(:)
class (baseType), ALLOCATABLE :: TargetItems(:)
ALLOCATE( baseType::SourceItems(10))
print *, 'Allocating with arrayslice in SOURCE= statement'
ALLOCATE( TargetItems, SOURCE=SourceItems(1:5) )
print *, 'Size SourceItems (expected 10): ', SIZE(SourceItems)
print *, 'Size TargetItems (expected 5): ', SIZE(TargetItems)
DEALLOCATE(TargetItems)
print *, 'Allocating with arrayslice via assosciate construct'
ASSOCIATE (Source => SourceItems(1:5))
ALLOCATE( TargetItems, SOURCE=Source )
END ASSOCIATE
print *, 'Size SourceItems (expected 10): ', SIZE(SourceItems)
print *, 'Size TargetItems (expected 5): ', SIZE(TargetItems)
end program
