[Debian-med-packaging] gfortran-10 issue in raster3d

[Ethan A Merritt]

On Tuesday, 29 September 2020 07:38:18 PDT Andreas Tille wrote:
> Hi,
> 
> I tried to update the raster3d package in Debian[1] but it fails to
> build with:
> 
> gfortran -g -w -O2 -Wno-tabs -ffixed-line-length-132  -c -o render.o render.f
> render.f:1078:13:

Yes.
To build with gfortran version>10.0 requires 
   compiler flag -std=legacy
   inverted sense of flag -Wtabs  (what were they thinking of?!)
   modified octal constants in source

I have put an updated package on the upstream distribution site.

distribution: 
   http://skuld.bmsc.washington.edu/raster3d/raster3d.html
updated tarball:
   http://skuld.bmsc.washington.edu/raster3d/Raster3D_3.0-7.tar.gz

	cheers,
		Ethan

> 
>  1078 |       IERR = LOCAL(1, NAX, NAY, OTMODE, QUALITY)
>       |             1
> Error: More actual than formal arguments in procedure call at (1)
> render.f:1079:22:
> 
>  1077 |       IERR = LOCAL(5, IBKGND(1), IBKGND(2), IBKGND(3))
>       |                      2
>  1078 |       IERR = LOCAL(1, NAX, NAY, OTMODE, QUALITY)
>  1079 |       IERR = LOCAL(4, TITLE)
>       |                      1
> Error: Type mismatch between actual argument at (1) and actual argument at (2) (CHARACTER(132)/INTEGER(4)).
> render.f:4402:22:
> 
>  1077 |       IERR = LOCAL(5, IBKGND(1), IBKGND(2), IBKGND(3))
>       |                      2
> ......
>  4402 |  IERR = LOCAL(2, OUTBUF(K+1,1), OUTBUF(K+1,2), OUTBUF(K+1,3),
>       |                      1
> Error: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(2)/INTEGER(4)).
> render.f:4430:13:
> 
>  4430 |       IERR = LOCAL(3)
>       |             1
> Error: Missing actual argument for argument '_formal_4' at (1)
> make[2]: *** [<builtin>: render.o] Error 1
> 
> 
> Any help would be welcome.
> 
> Kind regards
> 
>     Andreas.
> 
> [1] https://salsa.debian.org/med-team/raster3d
> 
> 


-- 
Ethan A Merritt
Biomolecular Structure Center,  K-428 Health Sciences Bldg
MS 357742,   University of Washington, Seattle 98195-7742