Ticket #57434: gcc-8-fixes.patch

File gcc-8-fixes.patch, 4.2 KB (added by pkgw (Peter Williams), 6 years ago)

Compile fixes for GCC 8.1

  • borrow/rpfits/code/rpfitsin.f 

    diff --git a/borrow/rpfits/code/rpfitsin.f b/borrow/rpfits/code/rpfitsin.f
index 3e5f86da..0be74263 100644
    a b C----------------------------------------------------------------------- 
    831831      include 'rpfits.inc'
    832832
    833833      logical   ILLPARM
    834       integer   baseline, bin, bufptr, flag, grpptr, i_grphdr(640),
     834      integer   baseline, bin, bufptr, flag, grpptr, i_grphdr(11),
    835835     :          iant, if_no, iif, iq, jstat, lun, pcount, sourceno
    836       real      grphdr(640), buffer(640), rbase, u, v, w, ut
     836      real      grphdr(11), buffer(640), rbase, u, v, w, ut
    837837
    838838C     First 5 parameters are always there - you hope!
    839839      call VAXR4 (grphdr(grpptr),   u)

  • src/prog/analysis/Makefile.am 

    diff --git a/src/prog/analysis/Makefile.am b/src/prog/analysis/Makefile.am
index 1e944f8a..34d5dbfe 100644
    a b include $(top_srcdir)/mircommon.mak 
    66
    77LDADD = $(prog_libs)
    88
    9 ftasks = avmaths boxspec boxtest clfind clplot \
     9ftasks = avmaths boxspec boxtest clfind \
    1010  clstats colden contsub convol demos \
    1111  deproject ellint ellplt fft gaufit gaufit2 \
    1212  hanning hatfft hermes histo imbin \

  • src/prog/analysis/velmodel.for 

    diff --git a/src/prog/analysis/velmodel.for b/src/prog/analysis/velmodel.for
index 06c3f352..0f5ec1ec 100644
    a b c compute rms velocity along line of sight. 
    280280c
    281281        implicit none
    282282        integer nstep
    283         real xt,yt,vrot(1),vrad(2),vr(nstep),rstep,vel,radius(1)
     283        real xt,yt,vrot(2),vrad(2),vr(nstep),rstep,vel,radius(1)
    284284        real z0,zexp,sini
    285285        logical dosamp
    286286c----------------------------------------------------------------------

  • src/prog/sma/smablsrc.for 

    diff --git a/src/prog/sma/smablsrc.for b/src/prog/sma/smablsrc.for
index cbd045ec..fd8e8764 100644
    a b c************************************************************************ 
    728728        subroutine avgchn(numpol,bchan,echan,data,flags,nchan,
    729729     *  bpnspect,bpnschan,maxchan,chnwt,chz,chzwt,
    730730     *  weight,dochunk)
    731         PARAMETER(maxwin=33, maxschan=1024, maxpol=2)
     731        PARAMETER(maxschan=1024, maxpol=2)
    732732        integer nchan,bpnspect,maxchan,bpnschan(maxwin)
    733733        integer i,j,numpol,bchan,echan, ipol
    734734        integer bschan, eschan
    … … c************************************************************************ 
    817817        subroutine divchz(numpol,data,ndata,nchan,
    818818     *  bpnspect,bpnschan,maxchan,chnwt,chz,chzwt,weight,
    819819     *  edge,dochunk)
    820         PARAMETER(maxwin=49, maxschan=1024, maxpol=2)
     820        PARAMETER(maxschan=1024, maxpol=2)
    821821        PARAMETER(pi=3.14159265358979323846)
    822822        integer nchan,bpnspect,maxchan,bpnschan(maxwin)
    823823        integer i,j,numpol, ipol

  • src/prog/sma/smamfcal.for 

    diff --git a/src/prog/sma/smamfcal.for b/src/prog/sma/smamfcal.for
index 919e42d3..e58c66fb 100755
    a b c 
    19881988c************************************************************************
    19891989        subroutine avgchn(numpol,bchan,echan,data,flags,nchan,
    19901990     *  bpnspect,bpnschan,maxchan,chnwt,chz,chzwt,weight,sb,telescop)
    1991         PARAMETER(maxwin=49, maxpol=2)
     1991        PARAMETER(maxpol=2)
    19921992        integer nchan,bpnspect,maxchan,bpnschan(maxwin),sb(maxwin)
    19931993        integer i,j,numpol,bchan,echan, ipol
    19941994        integer bschan, eschan
    … … c************************************************************************ 
    21162116        subroutine divchz(numpol,data,ndata,nchan,
    21172117     *  bpnspect,bpnschan,maxchan,chnwt,chz,chzwt,weight,
    21182118     *  edge)
    2119         PARAMETER(maxwin=49, maxpol=2)
     2119        PARAMETER(maxpol=2)
    21202120        PARAMETER(pi=3.14159265358979323846)
    21212121        integer nchan,bpnspect,maxchan,bpnschan(maxwin)
    21222122        integer i,j,numpol,ipol

  • src/prog/vis/uvtriple.for 

    diff --git a/src/prog/vis/uvtriple.for b/src/prog/vis/uvtriple.for
index 0c105ee5..1ae1c1f9 100644
    a b c 
    20412041              win(3) = ylo
    20422042              win(4) = yhi
    20432043            else
    2044               call windec (2, str, il, win(3), ok)
     2044              call windec (2, str, il, win, ok)
    20452045            end if
    20462046         end if
    20472047        else