From c87dbc2da11329cf9bfea98ea60ca52c35f5d977 Mon Sep 17 00:00:00 2001 From: sknepper Date: Mon, 8 Apr 2024 16:12:18 -0700 Subject: [PATCH] [oneMKL] Fix batched linear solver sample page fault (#2281) --- .../lu_solve_omp_offload_optimized.F90 | 6 ------ 1 file changed, 6 deletions(-) diff --git a/Libraries/oneMKL/batched_linear_solver/lu_solve_omp_offload_optimized.F90 b/Libraries/oneMKL/batched_linear_solver/lu_solve_omp_offload_optimized.F90 index 7069bbd1e0..b12df7e76b 100644 --- a/Libraries/oneMKL/batched_linear_solver/lu_solve_omp_offload_optimized.F90 +++ b/Libraries/oneMKL/batched_linear_solver/lu_solve_omp_offload_optimized.F90 @@ -97,9 +97,7 @@ program solve_batched_linear_systems ! Allocate memory for linear algebra computations allocate (a(stride_a, batch_size), b(n, batch_size*nrhs), & -#if !defined(_OPENMP) ipiv(stride_ipiv, batch_size), & -#endif info_rf(batch_size), info_rs(batch_size), & stat = allocstat, errmsg = allocmsg) if (allocstat > 0) stop trim(allocmsg) @@ -188,9 +186,5 @@ program solve_batched_linear_systems print *, 'Total time:', total_time, 'seconds' ! Clean up -#if defined(_OPENMP) - deallocate (a, b, a_orig, b_orig, x, info_rf, info_rs) -#else deallocate (a, b, a_orig, b_orig, x, ipiv, info_rf, info_rs) -#endif end program solve_batched_linear_systems