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