From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 24874 invoked by alias); 23 Jul 2009 18:10:18 -0000 Received: (qmail 24699 invoked by alias); 23 Jul 2009 18:09:58 -0000 Date: Thu, 23 Jul 2009 18:10:00 -0000 Message-ID: <20090723180958.24698.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/40839] gfortran segmentation fault when a unit number is missing In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "jakub at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2009-07/txt/msg01906.txt.bz2 ------- 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