We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 7fd1466 commit 3f4bd44Copy full SHA for 3f4bd44
flang/lib/Semantics/resolve-names.cpp
@@ -5648,10 +5648,9 @@ void DeclarationVisitor::Post(const parser::ProcDecl &x) {
5648
const auto &name{std::get<parser::Name>(x.t)};
5649
const Symbol *procInterface{nullptr};
5650
if (interfaceName_) {
5651
- Symbol *ultimate{&interfaceName_->symbol->GetUltimate()};
5652
- procInterface = ultimate->has<GenericDetails>()
5653
- ? ultimate->get<GenericDetails>().specific()
5654
- : ultimate;
+ procInterface = interfaceName_->symbol->has<GenericDetails>()
+ ? interfaceName_->symbol->get<GenericDetails>().specific()
+ : interfaceName_->symbol;
5655
}
5656
auto attrs{HandleSaveName(name.source, GetAttrs())};
5657
DerivedTypeDetails *dtDetails{nullptr};
0 commit comments