We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 53c1584 commit 66a871bCopy full SHA for 66a871b
flang/lib/Evaluate/tools.cpp
@@ -1380,7 +1380,7 @@ bool IsSaved(const Symbol &original) {
1380
} else if (const auto *object{symbol.detailsIf<ObjectEntityDetails>()};
1381
object && object->init()) {
1382
return true;
1383
- } else if (IsProcedurePointer(symbol) &&
+ } else if (IsProcedurePointer(symbol) && symbol.has<ProcEntityDetails>() &&
1384
symbol.get<ProcEntityDetails>().init()) {
1385
1386
} else if (scope.hasSAVE()) {
0 commit comments