<pre style='margin:0'>
Perry E. Metzger (pmetzger) pushed a commit to branch master
in repository macports-ports.

</pre>
<p><a href="https://github.com/macports/macports-ports/commit/54e00450540c9ba40e11cd75062fe535916f7817">https://github.com/macports/macports-ports/commit/54e00450540c9ba40e11cd75062fe535916f7817</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'>     new 54e0045  miriad: fix compilation on gfortran >= 8.1
</span>54e0045 is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 54e00450540c9ba40e11cd75062fe535916f7817
</span>Author: Peter Williams <peter@newton.cx>
AuthorDate: Mon Oct 29 21:15:13 2018 -0400

<span style='display:block; white-space:pre;color:#404040;'>    miriad: fix compilation on gfortran >= 8.1
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    As per https://trac.macports.org/ticket/57434 . The most recent gfortran adds
</span><span style='display:block; white-space:pre;color:#404040;'>    a new error that gets triggered in this package. It is unlikely that we'll
</span><span style='display:block; white-space:pre;color:#404040;'>    see a new upstream release, so we add a new patch to fix the problems.
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Also, register my GitHub username (@pkgw).
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Also, remove the old mm.f2c debugging patch; the problem seems to be solved.
</span><span style='display:block; white-space:pre;color:#404040;'>    At least, I have not heard any reports of problems for literally years.
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Closes: https://trac.macports.org/ticket/57434.
</span>---
 science/miriad/Portfile                         |   9 +-
 science/miriad/files/gcc-8-fixes.patch          | 108 ++++++++++++++++++++++++
 science/miriad/files/patch-src-subs-mm.f2c.diff |  29 -------
 3 files changed, 112 insertions(+), 34 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/science/miriad/Portfile b/science/miriad/Portfile
</span><span style='display:block; white-space:pre;color:#808080;'>index a8c5a99..5eb0723 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/science/miriad/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/science/miriad/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -13,10 +13,10 @@ conflicts        pgplot
</span> set relver       4.3.8
 set tardate      20160322
 version          ${relver}.${tardate}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-revision         1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+revision         2
</span> platforms        darwin
 categories       science
<span style='display:block; white-space:pre;background:#ffe0e0;'>-maintainers      newton.cx:peter openmaintainer
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+maintainers      {newton.cx:peter @pkgw} openmaintainer
</span> description      MIRIAD, an analysis package for radio astronomical data
 long_description MIRIAD, the Multichannel Imaging, Reconstruction, Analysis, \
                  and Display package, is a suite of tools for analyzing radio \
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -93,9 +93,8 @@ minimum_xcodeversions {9 3.1}
</span> 
 worksrcdir      ${name}-${relver}
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-# Patch to print out debugging information in case the mmAlloc bug persists
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-patchfiles      patch-src-subs-mm.f2c.diff
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+patch.pre_args  -p1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+patchfiles      gcc-8-fixes.patch
</span> 
 # Configure settings. Keep the binaries out of ${prefix}/bin to avoid
 # possible conflicts. The automiriad scripts will deal with this correctly.
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/science/miriad/files/gcc-8-fixes.patch b/science/miriad/files/gcc-8-fixes.patch
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 0000000..77b671a
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/science/miriad/files/gcc-8-fixes.patch
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,108 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/borrow/rpfits/code/rpfitsin.f b/borrow/rpfits/code/rpfitsin.f
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 3e5f86da..0be74263 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/borrow/rpfits/code/rpfitsin.f
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/borrow/rpfits/code/rpfitsin.f
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -831,9 +831,9 @@ C-----------------------------------------------------------------------
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+       include 'rpfits.inc'
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ 
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+       logical   ILLPARM
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-      integer   baseline, bin, bufptr, flag, grpptr, i_grphdr(640),
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++      integer   baseline, bin, bufptr, flag, grpptr, i_grphdr(11),
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+      :          iant, if_no, iif, iq, jstat, lun, pcount, sourceno
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-      real      grphdr(640), buffer(640), rbase, u, v, w, ut
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++      real      grphdr(11), buffer(640), rbase, u, v, w, ut
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ 
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ C     First 5 parameters are always there - you hope!
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+       call VAXR4 (grphdr(grpptr),   u)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/src/prog/analysis/velmodel.for b/src/prog/analysis/velmodel.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 06c3f352..0f5ec1ec 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/src/prog/analysis/velmodel.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/src/prog/analysis/velmodel.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -280,7 +280,7 @@ c compute rms velocity along line of sight.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   implicit none
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   integer nstep
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-  real xt,yt,vrot(1),vrad(2),vr(nstep),rstep,vel,radius(1)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++  real xt,yt,vrot(2),vrad(2),vr(nstep),rstep,vel,radius(1)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   real z0,zexp,sini
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   logical dosamp
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c----------------------------------------------------------------------
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/src/prog/sma/smablsrc.for b/src/prog/sma/smablsrc.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index cbd045ec..fd8e8764 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/src/prog/sma/smablsrc.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/src/prog/sma/smablsrc.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -728,7 +728,7 @@ c************************************************************************
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         subroutine avgchn(numpol,bchan,echan,data,flags,nchan,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+      *  bpnspect,bpnschan,maxchan,chnwt,chz,chzwt,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+      *  weight,dochunk)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-        PARAMETER(maxwin=33, maxschan=1024, maxpol=2)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++        PARAMETER(maxschan=1024, maxpol=2)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         integer nchan,bpnspect,maxchan,bpnschan(maxwin)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         integer i,j,numpol,bchan,echan, ipol
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         integer bschan, eschan
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -817,7 +817,7 @@ c************************************************************************
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         subroutine divchz(numpol,data,ndata,nchan,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+      *  bpnspect,bpnschan,maxchan,chnwt,chz,chzwt,weight,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+      *  edge,dochunk)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-        PARAMETER(maxwin=49, maxschan=1024, maxpol=2)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++        PARAMETER(maxschan=1024, maxpol=2)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         PARAMETER(pi=3.14159265358979323846)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         integer nchan,bpnspect,maxchan,bpnschan(maxwin)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         integer i,j,numpol, ipol
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/src/prog/sma/smamfcal.for b/src/prog/sma/smamfcal.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 919e42d3..e58c66fb 100755
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/src/prog/sma/smamfcal.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/src/prog/sma/smamfcal.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -1988,7 +1988,7 @@ c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c************************************************************************
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         subroutine avgchn(numpol,bchan,echan,data,flags,nchan,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+      *  bpnspect,bpnschan,maxchan,chnwt,chz,chzwt,weight,sb,telescop)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-        PARAMETER(maxwin=49, maxpol=2)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++        PARAMETER(maxpol=2)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         integer nchan,bpnspect,maxchan,bpnschan(maxwin),sb(maxwin)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         integer i,j,numpol,bchan,echan, ipol
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         integer bschan, eschan 
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -2116,7 +2116,7 @@ c************************************************************************
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         subroutine divchz(numpol,data,ndata,nchan,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+      *  bpnspect,bpnschan,maxchan,chnwt,chz,chzwt,weight,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+      *  edge)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-        PARAMETER(maxwin=49, maxpol=2)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++        PARAMETER(maxpol=2)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         PARAMETER(pi=3.14159265358979323846)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         integer nchan,bpnspect,maxchan,bpnschan(maxwin)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         integer i,j,numpol,ipol
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/src/prog/vis/uvtriple.for b/src/prog/vis/uvtriple.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 0c105ee5..1ae1c1f9 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/src/prog/vis/uvtriple.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/src/prog/vis/uvtriple.for
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -2041,7 +2041,7 @@ c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+               win(3) = ylo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+               win(4) = yhi
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+             else
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-              call windec (2, str, il, win(3), ok)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++              call windec (2, str, il, win, ok)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+             end if
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+          end if
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+         else
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/src/prog/analysis/Makefile.in b/src/prog/analysis/Makefile.in
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 09a6d270..6b9cd1fc 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/src/prog/analysis/Makefile.in
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/src/prog/analysis/Makefile.in
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -113,7 +113,7 @@ CONFIG_HEADER = $(top_builddir)/config.h \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ CONFIG_CLEAN_FILES =
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ CONFIG_CLEAN_VPATH_FILES =
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ am__EXEEXT_1 = avmaths$(EXEEXT) boxspec$(EXEEXT) boxtest$(EXEEXT) \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-  clfind$(EXEEXT) clplot$(EXEEXT) clstats$(EXEEXT) \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++  clfind$(EXEEXT) clstats$(EXEEXT) \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   colden$(EXEEXT) contsub$(EXEEXT) convol$(EXEEXT) \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   demos$(EXEEXT) deproject$(EXEEXT) ellint$(EXEEXT) \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   ellplt$(EXEEXT) fft$(EXEEXT) gaufit$(EXEEXT) gaufit2$(EXEEXT) \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -792,7 +792,7 @@ prog_libs = \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   $(top_builddir)/borrow/pgplot/libpgplot.la
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ 
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ LDADD = $(prog_libs)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-ftasks = avmaths boxspec boxtest clfind clplot \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ftasks = avmaths boxspec boxtest clfind \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   clstats colden contsub convol demos \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   deproject ellint ellplt fft gaufit gaufit2 \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   hanning hatfft hermes histo imbin \
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/science/miriad/files/patch-src-subs-mm.f2c.diff b/science/miriad/files/patch-src-subs-mm.f2c.diff
</span>deleted file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 09d1da2..0000000
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/science/miriad/files/patch-src-subs-mm.f2c.diff
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,29 +0,0 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- src/subs/mm.f2c.orig   2013-07-03 00:13:28.050984953 -0400
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ src/subs/mm.f2c        2013-07-03 00:15:56.695917500 -0400
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -122,15 +122,17 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   if(s == (fort_integer *)NULL) return;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   offset = s - data.addr;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   t = (fort_ptrdiff)offset;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--#ifdef DEBUG
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--  printf("MM_DEBUG: s=0x%lx  data=0x%lx count=%d\n",s,data.addr,counter++);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--  printf("MM_DEBUG: t=0x%lx  offset=0x%lx size=%d\n",t,offset,size.val);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--  printf("          s=%ld data=%ld offset=%ld\n",s,data.addr,offset);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--  printf("          s=%d data=%d offset=%d\n",s,data.addr,offset);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--  printf("          sizeof(fort_ptrdiff)=%ld sizeof(ptrdiff_t)=%ld sizeof(fort_integer)=%ld\n",
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--                    sizeof(fort_ptrdiff),    sizeof(ptrdiff_t),    sizeof(fort_integer));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--#endif
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--  if(t != offset) bug_c('f',"Some odd form of rounding problem, in mmAlloc");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+  if(t != offset) {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+      /* MacPorts patch: print debugging info if and only if the assertion fails */
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+      printf("MM_DEBUG: s=0x%lx  data=0x%lx count=%d\n",s,data.addr,counter++);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+      printf("MM_DEBUG: t=0x%lx  offset=0x%lx size=%d\n",t,offset,size.val);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+      printf("          s=%ld data=%ld offset=%ld\n",s,data.addr,offset);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+      printf("          s=%d data=%d offset=%d\n",s,data.addr,offset);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+      printf("          sizeof(fort_ptrdiff)=%ld sizeof(ptrdiff_t)=%ld sizeof(fort_integer)=%ld\n",
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+       sizeof(fort_ptrdiff), sizeof(ptrdiff_t), sizeof(fort_integer));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+      bug_c('f',"Some odd form of rounding problem, in mmAlloc");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+  }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   *(ptr.addr) = t+1;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- /************************************************************************/
</span></pre><pre style='margin:0'>

</pre>