2008-01-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 20 Jan 2008 06:33:49 +0000 (06:33 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 20 Jan 2008 06:33:49 +0000 (06:33 +0000)
commit2e1fa72795f221d1655b2c25faeb576b44cdf4e1
treededbc43dcc55e290acd9a5c365727c56e2e2ac08
parenta2d4095d7342552e60389ff71824dcc67432831a
2008-01-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

* io/inquire.c (inquire_via_unit): If a unit is opened, return values
according to the open action for DIRECT, FORMATTED, and UNFORMATTED.
(inquire_via_filename): Return "UNKNOWN" for SEQUENTIAL, DIRECT,
FORAMATTED, and UNFORMATTED inquiries.
* io/unix.c (inquire_sequential): Return "UNKNOWN" when appropriate
for files that are not opened. (inquire_direct): Same.
(inquire_formatted): Same.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131672 138bc75d-0d04-0410-961f-82ee72b054a4
libgfortran/ChangeLog
libgfortran/io/inquire.c
libgfortran/io/unix.c