Skip to content

GitLab

  • Projects
  • Groups
  • Snippets
  • Help
    • Loading...
  • Help
    • Help
    • Support
    • Community forum
    • Submit feedback
    • Contribute to GitLab
  • Sign in / Register
getdp
getdp
  • Project overview
    • Project overview
    • Details
    • Activity
    • Releases
  • Repository
    • Repository
    • Files
    • Commits
    • Branches
    • Tags
    • Contributors
    • Graph
    • Compare
  • Issues 24
    • Issues 24
    • List
    • Boards
    • Labels
    • Service Desk
    • Milestones
  • Merge Requests 0
    • Merge Requests 0
  • CI/CD
    • CI/CD
    • Pipelines
    • Jobs
    • Schedules
  • Wiki
    • Wiki
  • Members
    • Members
  • Activity
  • Graph
  • Create a new issue
  • Jobs
  • Commits
  • Issue Boards
Collapse sidebar
  • getdp
  • getdpgetdp
  • Issues
  • #61

Closed
Open
Created May 03, 2020 by Marcus Calhoun-Lopez@mcalhoun

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
Assignee
Assign to
None
Milestone
None
Assign milestone
Time tracking
None
Due date
None