]> git.ipfire.org Git - thirdparty/gcc.git/commit
projects / thirdparty / gcc.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 93d7c99) | patch
re PR fortran/40839 (gfortran segmentation fault when a unit number is missing)
authorJakub Jelinek <jakub@redhat.com>
Thu, 23 Jul 2009 18:09:43 +0000 (20:09 +0200)
committerJakub Jelinek <jakub@gcc.gnu.org>
Thu, 23 Jul 2009 18:09:43 +0000 (20:09 +0200)
commit88e18fedad6803c5f9abdbcf1c4a51c25e12706c
treee2355295ba4f503f046c98f919798986a5d39dbdtree
parent93d7c9943f56fa9b69647433a5ca89a70a19a601commit | diff
re PR fortran/40839 (gfortran segmentation fault when a unit number is missing)

PR fortran/40839
* io.c (gfc_resolve_dt): Add LOC argument.  Fail if
dt->io_unit is NULL.  Return FAILURE after issuing error about
negative UNIT number.
(match_io_element): Don't segfault if current_dt->io_unit is NULL.
* gfortran.h (gfc_resolve_dt): Adjust prototype.
* resolve.c (resolve_code): Adjust caller.

* gfortran.dg/pr40839.f90: New test.

From-SVN: r150021
gcc/fortran/ChangeLog diff | blob | blame | history
gcc/fortran/gfortran.h diff | blob | blame | history
gcc/fortran/io.c diff | blob | blame | history
gcc/fortran/resolve.c diff | blob | blame | history
gcc/testsuite/ChangeLog diff | blob | blame | history
gcc/testsuite/gfortran.dg/pr40839.f90 [new file with mode: 0644] blob
Mirror of https://gcc.gnu.org/git/gcc.git