[Bug fortran/40839] gfortran segmentation fault when a unit number is missing

[jakub at gcc dot gnu dot org]

------- Comment #2 from jakub at gcc dot gnu dot org  2009-07-23 18:09 -------
Subject: Bug 40839

Author: jakub
Date: Thu Jul 23 18:09:43 2009
New Revision: 150021

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=150021
Log:
        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.

Added:
    trunk/gcc/testsuite/gfortran.dg/pr40839.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/io.c
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40839