diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-01-05 22:55:15 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-01-05 22:55:15 +0000 |
| commit | 4141316b8ad405e3b326a6e59b5cbfdf9b2ffde8 (patch) | |
| tree | 1cdc37415b6fe7600e23786c4d6d6c1a902a1278 /libgfortran | |
| parent | 167324847472480db2c05426d351aa851944a812 (diff) | |
2009-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/38735
* io/unit.c (get_internal_unit): Set default BLANK= status to NULL for
internal units.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@143102 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/unit.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index aca6e93bfcf..f71521fc32b 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2009-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/38735 + * io/unit.c (get_internal_unit): Set default BLANK= status to NULL for + internal units. + 2008-12-29 John David Anglin <dave.anglin@nrc-cnrc.gc.ca> PR fortran/31832 diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index a5d660c392d..0af002d1a95 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -437,7 +437,7 @@ get_internal_unit (st_parameter_dt *dtp) iunit->flags.access = ACCESS_SEQUENTIAL; iunit->flags.action = ACTION_READWRITE; - iunit->flags.blank = BLANK_UNSPECIFIED; + iunit->flags.blank = BLANK_NULL; iunit->flags.form = FORM_FORMATTED; iunit->flags.pad = PAD_YES; iunit->flags.status = STATUS_UNSPECIFIED; |