diff options
Diffstat (limited to 'libgfortran/io/open.c')
| -rw-r--r-- | libgfortran/io/open.c | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c index 02c3f5a..06fd594 100644 --- a/libgfortran/io/open.c +++ b/libgfortran/io/open.c @@ -332,17 +332,13 @@ new_unit (st_parameter_open *opp, gfc_unit *u, unit_flags * flags) /* Checks. */ - if (flags->delim == DELIM_UNSPECIFIED) - flags->delim = DELIM_NONE; - else + if (flags->delim != DELIM_UNSPECIFIED + && flags->form == FORM_UNFORMATTED) { - if (flags->form == FORM_UNFORMATTED) - { - generate_error (&opp->common, LIBERROR_OPTION_CONFLICT, - "DELIM parameter conflicts with UNFORMATTED form in " - "OPEN statement"); - goto fail; - } + generate_error (&opp->common, LIBERROR_OPTION_CONFLICT, + "DELIM parameter conflicts with UNFORMATTED form in " + "OPEN statement"); + goto fail; } if (flags->blank == BLANK_UNSPECIFIED) |