+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
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;
}
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;
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;
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;