[flang] Add TODO for derived types with final procedure
Finalization is F2003 and although the runtime supports it already, lowering is not ensuring all the derived type are finalized properly when they should. This will require surveying the places where lowering needs to call it. Add a hard TODO for now. This patch is part of the upstreaming effort from fir-dev branch. Reviewed By: jeanPerier Differential Revision: https://reviews.llvm.org/D129069 Co-authored-by: Jean Perier <jperier@nvidia.com>
This commit is contained in:
parent
bf89d24f53
commit
740633ff08
|
|
@ -288,6 +288,10 @@ struct TypeBuilder {
|
|||
const Fortran::semantics::Symbol &typeSymbol = tySpec.typeSymbol();
|
||||
if (mlir::Type ty = getTypeIfDerivedAlreadyInConstruction(typeSymbol))
|
||||
return ty;
|
||||
|
||||
if (Fortran::semantics::IsFinalizable(tySpec))
|
||||
TODO(converter.genLocation(tySpec.name()), "derived type finalization");
|
||||
|
||||
auto rec = fir::RecordType::get(context,
|
||||
Fortran::lower::mangle::mangleName(tySpec));
|
||||
// Maintain the stack of types for recursive references.
|
||||
|
|
|
|||
Loading…
Reference in New Issue