[flang-commits] [flang] [flang] Implement SECOND intrinsic (PR #98881)

[Tom Eccles via flang-commits]

================
@@ -6140,6 +6144,27 @@ IntrinsicLibrary::genScan(mlir::Type resultType,
   return readAndAddCleanUp(resultMutableBox, resultType, "SCAN");
 }
 
+// SECOND
+fir::ExtendedValue
+IntrinsicLibrary::genSecond(std::optional<mlir::Type> resultType,
+                            mlir::ArrayRef<fir::ExtendedValue> args) {
+  assert(args.size() == 1 && !resultType || args.empty() && resultType);
----------------
tblah wrote:

Thanks. See https://github.com/llvm/llvm-project/pull/99306

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