From df6b686bdd457c35909bdab9eda91cc24b18f2e2 Mon Sep 17 00:00:00 2001

From: Vladislav Zavjalov <slazav@altlinux.org>

Date: Thu, 10 Dec 2020 06:01:07 +0000

Subject: [PATCH] contrib/Sparskit/inout.f: fix Rank mismatch error (for

 gcc-10)

---

 getdp/contrib/Sparskit/inout.f | 2 +-

 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/getdp/contrib/Sparskit/inout.f b/getdp/contrib/Sparskit/inout.f

index cde3857..6610822 100644

--- a/getdp/contrib/Sparskit/inout.f

+++ b/getdp/contrib/Sparskit/inout.f

@@ -1,7 +1,7 @@

 c $Id: inout.f,v 1.1 2008-04-11 06:01:06 geuzaine Exp $

 c----------------------------------------------------------------------c

       subroutine psplot (ncol,ja,ia,iunt,mode)

-      integer ja(*),ia(*),iunt,ncol,id,mode

+      integer ja(*),ia(*),iunt,ncol,id(1),mode

       call pspltm (ncol, ncol, mode, ja, ia, ' ',

      &     0, 5.0, "in", 0, id, iunt)

       return

-- 

2.24.1