diff options
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/unit.c | 8 |
2 files changed, 11 insertions, 3 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index c371f8d..216a0a7 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-11-27 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/25109 + * io/unit.c (init_units): Set default flag to BLANK_NULL per + requirement of F95 standard. Set PAD_YES for stdin. + 2005-11-27 David Edelsohn <edelsohn@gnu.org> * intrinsics/random.c: Include config.h diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 8ac1a7d..1366a9e 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -393,6 +393,7 @@ get_unit (st_parameter_dt *dtp, int do_create) internal_unit.flags.action = ACTION_READWRITE; internal_unit.flags.form = FORM_FORMATTED; internal_unit.flags.delim = DELIM_NONE; + internal_unit.flags.pad = PAD_YES; return &internal_unit; } @@ -453,7 +454,8 @@ init_units (void) u->flags.access = ACCESS_SEQUENTIAL; u->flags.form = FORM_FORMATTED; u->flags.status = STATUS_OLD; - u->flags.blank = BLANK_UNSPECIFIED; + u->flags.blank = BLANK_NULL; + u->flags.pad = PAD_YES; u->flags.position = POSITION_ASIS; u->recl = options.default_recl; @@ -472,7 +474,7 @@ init_units (void) u->flags.access = ACCESS_SEQUENTIAL; u->flags.form = FORM_FORMATTED; u->flags.status = STATUS_OLD; - u->flags.blank = BLANK_UNSPECIFIED; + u->flags.blank = BLANK_NULL; u->flags.position = POSITION_ASIS; u->recl = options.default_recl; @@ -491,7 +493,7 @@ init_units (void) u->flags.access = ACCESS_SEQUENTIAL; u->flags.form = FORM_FORMATTED; u->flags.status = STATUS_OLD; - u->flags.blank = BLANK_UNSPECIFIED; + u->flags.blank = BLANK_NULL; u->flags.position = POSITION_ASIS; u->recl = options.default_recl; |