Code review feedback: display the name of ultimate ALLOCATABLE component

Author: eugeneepshteyn

flang/lib/Semantics/resolve-names.cpp

@@ -7281,8 +7281,8 @@ bool DeclarationVisitor::PassesLocalityChecks(
     if (const DerivedTypeSpec *derived{type->AsDerived()}) { // F'2023 C1130
       if (auto bad{FindAllocatableUltimateComponent(*derived)}) {
         SayWithDecl(name, symbol,
-            "Derived type variable '%s' with ultimate ALLOCATABLE component not allowed in a %s locality-spec"_err_en_US,
-            specName);
+            "Derived type variable '%s' with ultimate ALLOCATABLE component '%s' not allowed in a %s locality-spec"_err_en_US,
+            bad.BuildResultDesignatorName(), specName);
         return false;
       }
     }

flang/test/Semantics/resolve55.f90

@@ -109,7 +109,7 @@ subroutine s9()
   integer sum
 
   sum = 0
-!ERROR: Derived type variable 'v' with ultimate ALLOCATABLE component not allowed in a LOCAL_INIT locality-spec
+!ERROR: Derived type variable 'v' with ultimate ALLOCATABLE component '%l1_2%l2_3%a' not allowed in a LOCAL_INIT locality-spec
   do concurrent (i = 1:10) local_init(v)
     sum = sum + i
   end do