aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/io/open.c
diff options
context:
space:
mode:
authorJerry DeLisle <jvdelisle@gcc.gnu.org>2006-11-22 07:32:09 +0000
committerJerry DeLisle <jvdelisle@gcc.gnu.org>2006-11-22 07:32:09 +0000
commitb0c6db58adfcdd39c80ea0b1895d1b7d255fe633 (patch)
treea44192f26db743063df6208c3b6faf5ddfa0bb62 /libgfortran/io/open.c
parent50bc8a4d6ee1190691ad47cc7fd9b32f0d3fd7f8 (diff)
downloadgcc-b0c6db58adfcdd39c80ea0b1895d1b7d255fe633.zip
gcc-b0c6db58adfcdd39c80ea0b1895d1b7d255fe633.tar.gz
gcc-b0c6db58adfcdd39c80ea0b1895d1b7d255fe633.tar.bz2
io.h (unit_flags): Add new flag has_recl.
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. From-SVN: r119087
Diffstat (limited to 'libgfortran/io/open.c')
-rw-r--r--libgfortran/io/open.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c
index ce7d4dd..9b4f0cd 100644
--- a/libgfortran/io/open.c
+++ b/libgfortran/io/open.c
@@ -406,9 +406,13 @@ new_unit (st_parameter_open *opp, gfc_unit *u, unit_flags * flags)
/* Unspecified recl ends up with a processor dependent value. */
if ((opp->common.flags & IOPARM_OPEN_HAS_RECL_IN))
- u->recl = opp->recl_in;
+ {
+ u->flags.has_recl = 1;
+ u->recl = opp->recl_in;
+ }
else
{
+ u->flags.has_recl = 0;
switch (compile_options.record_marker)
{
case 0: