From 9fdf0800f54c0f298bac96a4417a9e7e77f384bf Mon Sep 17 00:00:00 2001
From: Ayan Das <bvits@riseup.net>
Date: Tue, 29 Jul 2025 09:48:13 +0530
Subject: [PATCH] gnu: python-pytorch: Fix build with GCC 14.

Fixes guix/guix#1593.

* gnu/packages/machine-learning.scm (python-pytorch)[arguments]: Add
missing <algorithm> header in 'use-system-libraries phase to fix
std::for_each compilation error with GCC 14.

Signed-off-by: Danny Milosavljevic <dannym@friendly-machines.com>
---
 gnu/packages/machine-learning.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gnu/packages/machine-learning.scm b/gnu/packages/machine-learning.scm
index b08a27ffe78..54bc87dfd8d 100644
--- a/gnu/packages/machine-learning.scm
+++ b/gnu/packages/machine-learning.scm
@@ -5152,6 +5152,10 @@ PyTorch.")
               (substitute* "aten/src/ATen/native/vulkan/api/Allocator.h"
                 (("<include/vk_mem_alloc.h>")
                  "<vk_mem_alloc.h>"))
+              ;; Fix missing <algorithm> header for std::for_each in Vulkan API
+              (substitute* "aten/src/ATen/native/vulkan/api/QueryPool.cpp"
+                (("#include <utility>" all)
+                 (string-append all "\n#include <algorithm>")))
               ;; For Vulkan
               (substitute* "CMakeLists.txt"
                 (("append_cxx_flag.*-Werror=(return-type|range-loop-construct).*") ""))