[flang-commits] [flang] [flang] Better handling of ALLOCATED(pointer) error (PR #186622)

[Peter Klausler via flang-commits]

================
@@ -3802,6 +3802,21 @@ std::optional<SpecificCall> IntrinsicProcTable::Implementation::Probe(
       return HandleC_Devloc(arguments, context);
     } else if (call.name == "null") {
       return HandleNull(arguments, context);
+    } else if (call.name == "allocated") {
+      if (context.languageFeatures().IsEnabled(
+              common::LanguageFeature::AllocatedForAssociated) &&
+          arguments.size() == 1 && arguments[0].has_value()) {
+        auto &arg{*arguments[0]};
----------------
klausler wrote:

`ALLOCATED(POINTER=)` wouldn't get this far.  I'll ensure that there's no other keyword.

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