1fcb6a9754
Allocatable members of privatized derived types must be allocated, with the same bounds as the original object, whenever that member is also allocated in it, but Flang was not performing such initialization. The `Initialize` runtime function can't perform this task unless its signature is changed to receive an additional parameter, the original object, that is needed to find out which allocatable members, with their bounds, must also be allocated in the clone. As `Initialize` is used not only for privatization, sometimes this other object won't even exist, so this new parameter would need to be optional. Because of this, it seemed better to add a new runtime function: `InitializeClone`. To avoid unnecessary calls, lowering inserts a call to it only for privatized items that are derived types with allocatable members. Fixes https://github.com/llvm/llvm-project/issues/114888 Fixes https://github.com/llvm/llvm-project/issues/114889
52 lines
1.9 KiB
C++
52 lines
1.9 KiB
C++
//===-- runtime/derived.h -------------------------------------------------===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
// Internal runtime utilities for derived type operations.
|
|
|
|
#ifndef FORTRAN_RUNTIME_DERIVED_H_
|
|
#define FORTRAN_RUNTIME_DERIVED_H_
|
|
|
|
#include "flang/Common/api-attrs.h"
|
|
|
|
namespace Fortran::runtime::typeInfo {
|
|
class DerivedType;
|
|
}
|
|
|
|
namespace Fortran::runtime {
|
|
class Descriptor;
|
|
class Terminator;
|
|
|
|
// Perform default component initialization, allocate automatic components.
|
|
// Returns a STAT= code (0 when all's well).
|
|
RT_API_ATTRS int Initialize(const Descriptor &, const typeInfo::DerivedType &,
|
|
Terminator &, bool hasStat = false, const Descriptor *errMsg = nullptr);
|
|
|
|
// Initializes an object clone from the original object.
|
|
// Each allocatable member of the clone is allocated with the same bounds as
|
|
// in the original object, if it is also allocated in it.
|
|
// Returns a STAT= code (0 when all's well).
|
|
RT_API_ATTRS int InitializeClone(const Descriptor &, const Descriptor &,
|
|
const typeInfo::DerivedType &, Terminator &, bool hasStat = false,
|
|
const Descriptor *errMsg = nullptr);
|
|
|
|
// Call FINAL subroutines, if any
|
|
RT_API_ATTRS void Finalize(
|
|
const Descriptor &, const typeInfo::DerivedType &derived, Terminator *);
|
|
|
|
// Call FINAL subroutines, deallocate allocatable & automatic components.
|
|
// Does not deallocate the original descriptor.
|
|
RT_API_ATTRS void Destroy(const Descriptor &, bool finalize,
|
|
const typeInfo::DerivedType &, Terminator *);
|
|
|
|
// Return true if the passed descriptor is for a derived type
|
|
// entity that has a dynamic (allocatable, automatic) component.
|
|
RT_API_ATTRS bool HasDynamicComponent(const Descriptor &);
|
|
|
|
} // namespace Fortran::runtime
|
|
#endif // FORTRAN_RUNTIME_DERIVED_H_
|