PR 53796 Make inquire(file=, recl=) conform to F2018
authorJanne Blomqvist <jb@gcc.gnu.org>
Wed, 7 Aug 2019 07:34:10 +0000 (10:34 +0300)
committerJanne Blomqvist <jb@gcc.gnu.org>
Wed, 7 Aug 2019 07:34:10 +0000 (10:34 +0300)
commit4047bab96dfc6bcea64a12b428f40d2f7a77ccbb
tree0786cca348054ae6d664c4a2f3245e43e0f3a07d
parent398e3feb8a47aa00994903f0209c8f45c0b653c3
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.

From-SVN: r274160
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/inquire_recl_f2018.f90
libgfortran/ChangeLog
libgfortran/io/inquire.c