[Octave-bug-tracker] [bug #54390] liboctave/external incompatibilities with upcoming Fortran 2018

[Mike Miller]

URL:
  <http://savannah.gnu.org/bugs/?54390>

                 Summary: liboctave/external incompatibilities with upcoming
Fortran 2018
                 Project: GNU Octave
            Submitted by: mtmiller
            Submitted on: Thu 26 Jul 2018 12:39:20 PM PDT
                Category: Libraries
                Severity: 2 - Minor
                Priority: 5 - Normal
              Item Group: Other
                  Status: None
             Assigned to: None
         Originator Name: 
        Originator Email: 
             Open/Closed: Open
         Discussion Lock: Any
                 Release: dev
        Operating System: GNU/Linux

    _______________________________________________________

Details:

Several Fortran routines built into Octave in the liboctave/external directory
use Fortran constructs which are now deleted features in the Fortran 2018
language revision.

These source files do still compile with gfortran 9 (development snapshot),
but a warning message is printed for each occurrence of a Fortran 2018 deleted
feature.

The full list of warnings is attached. In summary, the source files affected
are

* liboctave/external/daspk/datv.f
* liboctave/external/daspk/ddaspk.f
* liboctave/external/daspk/ddstp.f
* liboctave/external/daspk/ddwnrm.f
* liboctave/external/daspk/dinvwt.f
* liboctave/external/daspk/dlinsd.f
* liboctave/external/daspk/dlinsk.f
* liboctave/external/daspk/dmatd.f
* liboctave/external/daspk/dnedd.f
* liboctave/external/daspk/dnedk.f
* liboctave/external/daspk/dnsd.f
* liboctave/external/daspk/dnsk.f
* liboctave/external/daspk/dslvk.f
* liboctave/external/daspk/dspigm.f
* liboctave/external/dasrt/ddasrt.f
* liboctave/external/dasrt/drchek.f
* liboctave/external/dassl/ddaini.f
* liboctave/external/dassl/ddajac.f
* liboctave/external/dassl/ddanrm.f
* liboctave/external/dassl/ddassl.f
* liboctave/external/dassl/ddastp.f
* liboctave/external/dassl/ddatrp.f
* liboctave/external/odepack/cfode.f
* liboctave/external/odepack/dlsode.f
* liboctave/external/odepack/ewset.f
* liboctave/external/odepack/intdy.f
* liboctave/external/odepack/prepj.f
* liboctave/external/odepack/scfode.f
* liboctave/external/odepack/sewset.f
* liboctave/external/odepack/sintdy.f
* liboctave/external/odepack/slsode.f
* liboctave/external/odepack/solsy.f
* liboctave/external/odepack/sprepj.f
* liboctave/external/odepack/ssolsy.f
* liboctave/external/odepack/sstode.f
* liboctave/external/odepack/stode.f
* liboctave/external/odepack/svnorm.f
* liboctave/external/odepack/vnorm.f
* liboctave/external/quadpack/dqagpe.f
* liboctave/external/quadpack/qagpe.f
* liboctave/external/slatec-fn/pchim.f

The used features that are now deleted fall into these three categories

* DO loop that uses a labeled termination statement that is not END DO, for
example, from odepack/dlsode.f:


      DO 95 I = I1,I2
 95     RWORK(I) = 0.0D0


* Shared DO loop labeled termination with nested loops, for example, from
daspk/ddstp.f:


      DO 595 J1=2,KP1
         J=KP1-J1+1
         DO 595 I=1,NEQ
595      PHI(I,J)=PHI(I,J)+PHI(I,J+1)


* Arithmetic IF statement (https://en.wikipedia.org/wiki/Arithmetic_IF), only
used once in slatec-fn/pchim.f:


         IF ( PCHST(DEL1,DEL2) )  42, 41, 45




    _______________________________________________________

File Attachments:


-------------------------------------------------------
Date: Thu 26 Jul 2018 12:39:20 PM PDT  Name: gfortran9warnings.log  Size:
58KiB   By: mtmiller

<http://savannah.gnu.org/bugs/download.php?file_id=44631>

    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?54390>

_______________________________________________
  Message sent via Savannah
  https://savannah.gnu.org/