[flang] Fix crash in IsSaved()

[klausler]

Summary

Code was accessing ProcEntityDetails in a symbol that didn't have them.

flang/lib/Evaluate/tools.cpp

if (symbol.has<AssocEntityDetails>()) {
     // -fno-automatic/-save/-Msave option applies to all objects in executable
     // main programs and subprograms unless they are explicitly RECURSIVE.
     return true;
   } else if (symbol.test(Symbol::Flag::InDataStmt)) {
     return true;
   } else if (const auto *object{symbol.detailsIf<ObjectEntityDetails>()};
              object && object->init()) {
     return true;
-  } else if (IsProcedurePointer(symbol) &&
+  } else if (IsProcedurePointer(symbol) && symbol.has<ProcEntityDetails>() &&
       symbol.get<ProcEntityDetails>().init()) {
     return true;
   } else if (scope.hasSAVE()) {
     return true; // bare SAVE statement
   } else if (const Symbol * block{FindCommonBlockContaining(symbol)};
              block && block->attrs().test(Attr::SAVE)) {
     return true; // in COMMON with SAVE
   } else {