[flang-commits] [flang] flang: allow EXIT to accept integer arguments of any kind (PR #174610)

[Andre Kuhlenschmidt via flang-commits]

================
@@ -2157,8 +2157,16 @@ std::optional<SpecificCall> IntrinsicInterface::Match(
           semantics::IsTeamType(&type->GetDerivedTypeSpec());
       break;
     case KindCode::defaultIntegerKind:
-      argOk = type->kind() == defaults.GetDefaultKind(TypeCategory::Integer);
-      break;
+  if (name == "exit" && d.keyword == "status" &&
+      type->category() == TypeCategory::Integer) {
+    // GNU / CCE compatibility: allow any integer kind
+    argOk = true;
+  } else {
+    argOk = type->kind() ==
+        defaults.GetDefaultKind(TypeCategory::Integer);
+  }
+  break;
+
----------------
akuhlens wrote:

I think this change is completely unneeded with the change to the table above to AnyInt, correct?

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