diff --git a/flang/runtime/allocatable.cpp b/flang/runtime/allocatable.cpp --- a/flang/runtime/allocatable.cpp +++ b/flang/runtime/allocatable.cpp @@ -86,10 +86,6 @@ void RTNAME(AllocatableApplyMold)( Descriptor &descriptor, const Descriptor &mold, int rank) { - if (descriptor.IsAllocated()) { - // 9.7.1.3 Return so the error can be emitted by AllocatableAllocate. - return; - } descriptor = mold; descriptor.set_base_addr(nullptr); descriptor.raw().attribute = CFI_attribute_allocatable;