c78b528f99
When creating a temporary for conflicting LHS and RHS we have to deep copy
the dynamic (allocatable, automatic) components from RHS to the temp.
Otherwise, the conflict may still be present between LHS and temp.
gfortran/regression/alloc_comp_assign_1.f90 is an example where the current
runtime code produces wrong result:
7b5b5dcbf9/Fortran/gfortran/regression/alloc_comp_assign_1.f90 (L50)
Reviewed By: klausler, tblah
Differential Revision: https://reviews.llvm.org/D156364
40 lines
1.4 KiB
C++
40 lines
1.4 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_
|
|
|
|
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).
|
|
int Initialize(const Descriptor &, const typeInfo::DerivedType &, Terminator &,
|
|
bool hasStat = false, const Descriptor *errMsg = nullptr);
|
|
|
|
// Call FINAL subroutines, if any
|
|
void Finalize(const Descriptor &, const typeInfo::DerivedType &derived);
|
|
|
|
// Call FINAL subroutines, deallocate allocatable & automatic components.
|
|
// Does not deallocate the original descriptor.
|
|
void Destroy(const Descriptor &, bool finalize, const typeInfo::DerivedType &);
|
|
|
|
// Return true if the passed descriptor is for a derived type
|
|
// entity that has a dynamic (allocatable, automatic) component.
|
|
bool HasDynamicComponent(const Descriptor &);
|
|
|
|
} // namespace Fortran::runtime
|
|
#endif // FORTRAN_RUNTIME_DERIVED_H_
|