[Bug fortran/53796] I/O INQUIRE of RECL: If not specified in OPEN, the default value should be returned (sequential access)

[jb at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=53796

--- Comment #23 from Janne Blomqvist <jb at gcc dot gnu.org> ---
Author: jb
Date: Wed Aug  7 07:34:10 2019
New Revision: 274160

URL: https://gcc.gnu.org/viewcvs?rev=274160&root=gcc&view=rev
Log:
PR 53796 Make inquire(file=, recl=) conform to F2018

In my original patch to fix PR 53796 I forgot to fix the behavior for
unconnected units when inquiring via filename. This patch fixes that.

Regtested on x86_64-pc-linux-gnu, committed as obvious.

libgfortran/ChangeLog:

2019-08-07  Janne Blomqvist  <jb@gcc.gnu.org>

        PR fortran/53796
        * io/inquire.c (inquire_via_filename): Set recl to -1 for
        unconnected units.

gcc/testsuite/ChangeLog:

2019-08-07  Janne Blomqvist  <jb@gcc.gnu.org>

        PR fortran/53796
        * gfortran.dg/inquire_recl_f2018.f90: Test for unconnected unit
        with inquire via filename.

Modified:
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/inquire_recl_f2018.f90
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/inquire.c