diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-11-28 00:23:28 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-11-28 00:23:28 +0000 |
| commit | ee17607ab3e439efc47957a5498f57eb00c568da (patch) | |
| tree | f309ea9167c5d813d6126e23e443491b04f4ddcc /libgfortran | |
| parent | fbd4d5e840cb987f2d10b8594fda690c951ddf3e (diff) | |
| download | gcc-ee17607ab3e439efc47957a5498f57eb00c568da.zip gcc-ee17607ab3e439efc47957a5498f57eb00c568da.tar.gz gcc-ee17607ab3e439efc47957a5498f57eb00c568da.tar.bz2 | |
re PR fortran/25109 (formatted reads with embedded blanks in input fields)
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.
From-SVN: r107588
Diffstat (limited to 'libgfortran')
| -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; |