From ee17607ab3e439efc47957a5498f57eb00c568da Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 28 Nov 2005 00:23:28 +0000 Subject: [PATCH] re PR fortran/25109 (formatted reads with embedded blanks in input fields) 2005-11-27 Jerry DeLisle PR libgfortran/25109 * io/unit.c (init_units): Set default flag to BLANK_NULL per requirement of F95 standard. Set PAD_YES for stdin. From-SVN: r107588 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/unit.c | 8 +++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index c371f8dfe0f..216a0a70f5d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-11-27 Jerry DeLisle + + 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 * intrinsics/random.c: Include config.h diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 8ac1a7d60e4..1366a9e14a8 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;