Improve the fix

Author: kparzysz

flang/lib/Semantics/resolve-directives.cpp

@@ -2516,11 +2516,11 @@ void OmpAttributeVisitor::ResolveOmpObject(
                 }
                 if (ompFlag == Symbol::Flag::OmpDeclareTarget) {
                   if (symbol->IsFuncResult()) {
-                    if (Scope * container{&currScope()}) {
-                      if (Symbol * func{container->symbol()}) {
-                        func->set(ompFlag);
-                        name->symbol = func;
-                      }
+                    if (Symbol * func{currScope().symbol()}) {
+                      assert(func->IsSubprogram() &&
+                          "Expecting function scope");
+                      func->set(ompFlag);
+                      name->symbol = func;
                     }
                   }
                 }