[flang-commits] [flang] [Flang][OpenMP] Fix issue with named constants in SHARED and FIRSTPRIVATE clauses (PR #154335)

[Michael Klemm via flang-commits]

================
@@ -65,6 +65,7 @@ std::optional<parser::CharBlock> GetObjectSource(
 bool IsCommonBlock(const Symbol &sym);
 bool IsExtendedListItem(const Symbol &sym);
 bool IsVariableListItem(const Symbol &sym);
+bool IsNamedConstantListItem(const Symbol &sym);
----------------
mjklemm wrote:

Sort of.  But you still need to make sure that you only permit list items that are named constants at the allowed constructs.  So, we cannot merge this with `IsVariableListItem` (I did that before and abandoned that thought very quickly).

https://github.com/llvm/llvm-project/pull/154335