# Patches from: https://github.com/jacobwilliams/eiscor

--- src/utilities/u_test_banner.f90.orig	2018-03-12 21:36:39.000000000 +0800
+++ src/utilities/u_test_banner.f90	2023-01-20 01:39:33.000000000 +0800
@@ -14,6 +14,6 @@
   length = length-4
 
   ! print banner
-  write(STDERR,'(a,a,a)',advance='no') FILENAME(1:length),REPEAT(' ',36-length),' ... '
+  write(STDERR,'(a,a,a)',advance='no') FILENAME(1:length),REPEAT(' ',max(1,36-length)),' ... '
   
 end subroutine u_test_banner

--- src/complex_double/z_poly_roots.f90.orig	2018-03-12 21:36:39.000000000 +0800
+++ src/complex_double/z_poly_roots.f90	2023-01-20 01:38:58.000000000 +0800
@@ -53,6 +53,7 @@
   real(8) :: normc
   complex(8) :: sclc
   complex(8), allocatable :: V(:),W(:)
+  integer :: k
   interface
     function l_upr1fact_hess(m,flags)
       logical :: l_upr1fact_hess
@@ -160,7 +161,8 @@
   end if
         
   ! compute residuals
-  call z_poly_residuals(N,COEFFS,ROOTS,0,RESIDUALS)
+  k = 0
+  call z_poly_residuals(N,COEFFS,ROOTS,k,RESIDUALS)
     
   ! free memory
   deallocate(P,ITS,Q,D1,C1,B1,D2,C2,B2,V,W)