graphics/xd3d: Unbreak build with GCC 10
rP541206
Actions

Description

graphics/xd3d: Unbreak build with GCC 10

gspopup.f:324:23:

324 |       call x11facette2(ixzone,iyzone,ilar,ihau)
    |                       1

......

596 |         call x11facette2(ixbrow,iybrow,ilarbrow,ihaubrow)
    |                         2

Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
gspopup.f:187:45:

187 |      &                ,chainesav,longq,longc,lfichiers,idir,inum,0
    |                                             1

Error: Rank mismatch in argument 'lfichiers' at (1) (rank-1 and scalar)
gspopup.f:306:45:

306 |      &                ,chainesav,longq,longc,lfichiers,idir,inum,0
    |                                             1

Error: Rank mismatch in argument 'lfichiers' at (1) (rank-1 and scalar)
gspopup.f:561:61:

561 |      &                  ,fichiers,longq,longc,lfichiers,idir,inum
    |                                                             1

Error: Rank mismatch in argument 'inum' at (1) (rank-1 and scalar)

Provenance

tobik

Authored on

Parents

rP541205: science/xtb: Unbreak build with GCC 10

Branches

Unknown

Tags

Unknown

Path

Size

head/

graphics/

xd3d/