[flang-commits] [flang] [flang] Allow extended char set in `BIND(C, name="...")` (PR #172457)

[via flang-commits]

================
@@ -3476,13 +3476,18 @@ void CheckHelper::CheckBindC(const Symbol &symbol) {
   if (const std::string * bindName{symbol.GetBindName()};
       bindName) { // has a binding name
     if (!bindName->empty()) {
-      bool ok{bindName->front() == '_' || parser::IsLetter(bindName->front())};
+      if (bindName->front() == '.') {
+        messages_.Say(symbol.name(),
+            "Symbol has a BIND(C) name with leading dot that may have special meaning to the toolchain"_err_en_US);
+        context_.SetError(symbol);
+      }
----------------
foxtran wrote:

`flang -fno-integrated-as` does this check.

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