From aff15ad7572b261f0c62486df8e320a570577de0 Mon Sep 17 00:00:00 2001
From: Petr Cervinka <pcervinka@suse.com>
Date: Mon, 11 Nov 2024 07:53:31 +0100
Subject: [PATCH] hpc: Define library path for mpich in 15-SP3 spack test

---
 tests/hpc/spack_master.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/tests/hpc/spack_master.pm b/tests/hpc/spack_master.pm
index d5294769f35d..24a8827bfeee 100644
--- a/tests/hpc/spack_master.pm
+++ b/tests/hpc/spack_master.pm
@@ -16,6 +16,7 @@ use serial_terminal 'select_serial_terminal';
 use utils;
 use lockapi;
 use Utils::Logging qw(tar_and_upload_log export_logs);
+use version_utils 'is_sle';
 
 our $file = 'tmpresults.xml';
 # xml vars
@@ -62,12 +63,15 @@ sub run ($self) {
 
     # Testing compiled code
     record_info('INFO', 'Run MPI over single machine');
-    $rt = assert_script_run("mpirun $exports_path{'bin'}/$mpi_bin");
+    # Define library path for mpich on 15-SP3
+    my $ld_library_path;
+    $ld_library_path = 'LD_LIBRARY_PATH=/usr/lib64/mpi/gcc/mpich/lib64' if is_sle('=15-SP3');
+    $rt = assert_script_run("${ld_library_path} mpirun $exports_path{'bin'}/$mpi_bin");
     test_case("$mpi_compiler test 0", 'Run in a single node', $compile_rt);
 
     record_info('INFO', 'Run MPI over several nodes');
     my $nodes = join(',', @cluster_nodes);
-    $rt = assert_script_run("mpirun -n 2 --host $nodes $exports_path{'bin'}/$mpi_bin", timeout => 120);
+    $rt = assert_script_run("$ld_library_path mpirun -n 2 --host $nodes $exports_path{'bin'}/$mpi_bin", timeout => 120);
     test_case("$mpi_compiler test 0", 'Run parallel', $compile_rt);
 
     barrier_wait('MPI_RUN_TEST');