diff --git a/science/openmolcas/files/patch-src_linalg__util_linalg__mod.F90 b/science/openmolcas/files/patch-src_linalg__util_linalg__mod.F90
new file mode 100644
index 000000000000..35291e6a2177
--- /dev/null
+++ b/science/openmolcas/files/patch-src_linalg__util_linalg__mod.F90
@@ -0,0 +1,21 @@
+- workaround for https://gitlab.com/Molcas/OpenMolcas/-/issues/370
+
+--- src/linalg_util/linalg_mod.F90.orig	2022-08-20 17:37:29 UTC
++++ src/linalg_util/linalg_mod.F90
+@@ -341,11 +341,11 @@ subroutine determine_eigenspaces(lambda,dimensions)
+   integer(kind=iwp) :: i, low
+   integer(kind=iwp) :: n_spaces
+ 
+-# ifdef _ADDITIONAL_RUNTIME_CHECK_
+-  if (any(lambda(2:) < lambda(:size(lambda)-1))) then
+-    call abort_('Eigenvalues not sorted in'//__FILE__)
+-  end if
+-# endif
++!># ifdef _ADDITIONAL_RUNTIME_CHECK_
++!>  if (any(lambda(2:) < lambda(:size(lambda)-1))) then
++!>    call abort_('Eigenvalues not sorted in'//__FILE__)
++!>  end if
++!># endif
+ 
+   call mma_allocate(d_buffer,size(lambda))
+   d_buffer(:) = 0