GetDP fails with GCC 10
Building GetDP fails with GCC 10 with the following error:
getdp-3.3.0-source/contrib/Sparskit/inout.f:6:28:
6 | & 0, 5.0, "in", 0, id, iunt)
| 1
Error: Rank mismatch in argument 'lines' at (1) (rank-1 and scalar)The build was successful with the following patch:
-- contrib/Sparskit/inout.f.orig 2018-07-31 09:28:16.000000000 -0700
+++ contrib/Sparskit/inout.f 2020-05-03 09:12:01.000000000 -0700
@@ -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(0),mode
call pspltm (ncol, ncol, mode, ja, ia, ' ',
& 0, 5.0, "in", 0, id, iunt)
return