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

[Andre Kuhlenschmidt via flang-commits]

================
@@ -3852,12 +3852,17 @@ void IntrinsicLibrary::genExit(llvm::ArrayRef<fir::ExtendedValue> args) {
                                           EXIT_SUCCESS)
           : fir::getBase(args[0]);
 
-  assert(status.getType() == builder.getDefaultIntegerType() &&
-         "STATUS parameter must be an INTEGER of default kind");
+  mlir::Type defaultIntTy = builder.getDefaultIntegerType();
+
+  // Convert INTEGER(any kind) → default INTEGER
+  if (status.getType() != defaultIntTy) {
+    status = builder.createConvert(loc, defaultIntTy, status);
+  }
 
   fir::runtime::genExit(builder, loc, status);
 }
 
+
----------------
akuhlens wrote:

Random new line, please remove.

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