2006-11-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
commitf88c47bea82f0ece38a76a3fb236d3e49080c9dc
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 22 Nov 2006 07:32:09 +0000 (22 07:32 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 22 Nov 2006 07:32:09 +0000 (22 07:32 +0000)
treea44192f26db743063df6208c3b6faf5ddfa0bb62
parent3ba26e4d6853b4bd4675b1b8add56a221f7550fb
2006-11-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

* io/io.h (unit_flags): Add new flag has_recl.
* io.open.c (new_unit): Set flag if RECL= was specified.
* io/transfer.c (us_write): If flag set, leave recl as initialized by
new_unit.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119087 138bc75d-0d04-0410-961f-82ee72b054a4
libgfortran/ChangeLog
libgfortran/io/io.h
libgfortran/io/open.c
libgfortran/io/transfer.c