diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-09 23:49:14 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-09 23:49:14 +0000 |
| commit | 72eb8e780fe462a0f5e4f5f2c77cf2a1ff0454d4 (patch) | |
| tree | cb5f8205498d179ee6a5784f4ee00cfa8758cb08 | |
| parent | 899b398116b48b9bcc8ab00f56a01569ddd2f554 (diff) | |
| download | gcc-72eb8e780fe462a0f5e4f5f2c77cf2a1ff0454d4.zip gcc-72eb8e780fe462a0f5e4f5f2c77cf2a1ff0454d4.tar.gz gcc-72eb8e780fe462a0f5e4f5f2c77cf2a1ff0454d4.tar.bz2 | |
re PR fortran/88205 (ICE in gfc_wide_strncasecmp, at fortran/scanner.c:249)
2018-12-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88205
* io.c (gfc_match_open): Move NEWUNIT checks to after STATUS checks.
2018-12-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88205
* gfortran.dg/pr88205.f90: New unit.
From-SVN: r266936
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 54 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr88205.f90 | 14 |
4 files changed, 51 insertions, 27 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f5c2f01..031a988 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2018-12-09 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/88205 + * io.c (gfc_match_open): Move NEWUNIT checks to after STATUS checks. + +2018-12-09 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/88206 * match.c (gfc_match_type_spec): REAL can be an intrinsic function. diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 0aa31bb..8008f92 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -2150,33 +2150,6 @@ gfc_match_open (void) warn = (open->err || open->iostat) ? true : false; - /* Checks on NEWUNIT specifier. */ - if (open->newunit) - { - if (open->unit) - { - gfc_error ("UNIT specifier not allowed with NEWUNIT at %C"); - goto cleanup; - } - - if (!open->file && open->status) - { - if (open->status->expr_type == EXPR_CONSTANT - && gfc_wide_strncasecmp (open->status->value.character.string, - "scratch", 7) != 0) - { - gfc_error ("NEWUNIT specifier must have FILE= " - "or STATUS='scratch' at %C"); - goto cleanup; - } - } - } - else if (!open->unit) - { - gfc_error ("OPEN statement at %C must have UNIT or NEWUNIT specified"); - goto cleanup; - } - /* Checks on the ACCESS specifier. */ if (open->access && open->access->expr_type == EXPR_CONSTANT) { @@ -2501,6 +2474,33 @@ gfc_match_open (void) } } + /* Checks on NEWUNIT specifier. */ + if (open->newunit) + { + if (open->unit) + { + gfc_error ("UNIT specifier not allowed with NEWUNIT at %C"); + goto cleanup; + } + + if (!open->file && open->status) + { + if (open->status->expr_type == EXPR_CONSTANT + && gfc_wide_strncasecmp (open->status->value.character.string, + "scratch", 7) != 0) + { + gfc_error ("NEWUNIT specifier must have FILE= " + "or STATUS='scratch' at %C"); + goto cleanup; + } + } + } + else if (!open->unit) + { + gfc_error ("OPEN statement at %C must have UNIT or NEWUNIT specified"); + goto cleanup; + } + /* Things that are not allowed for unformatted I/O. */ if (open->form && open->form->expr_type == EXPR_CONSTANT && (open->delim || open->decimal || open->encoding || open->round diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 043c5ea..7b90d56 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2018-12-09 Steven G. Kargl <kargl@gcc.gnu.org> + + PR fortran/88205 + * gfortran.dg/pr88205.f90: New unit. + 2018-12-09 Iain Buclaw <ibuclaw@gdcproject.org> PR d/88039 diff --git a/gcc/testsuite/gfortran.dg/pr88205.f90 b/gcc/testsuite/gfortran.dg/pr88205.f90 new file mode 100644 index 0000000..d9e0806 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr88205.f90 @@ -0,0 +1,14 @@ +! { dg-do compile } +! PR fortran/88205 +subroutine s1 + real, parameter :: status = 0 + open (newunit=n, status=status) ! { dg-error "STATUS requires" } +end +subroutine s2 + complex, parameter :: status = 0 + open (newunit=n, status=status) ! { dg-error "STATUS requires" } +end +program p + logical, parameter :: status = .false. + open (newunit=a, status=status) ! { dg-error "STATUS requires" } +end |