From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 3040 invoked by alias); 16 Jun 2008 17:55:30 -0000 Received: (qmail 1784 invoked by uid 48); 16 Jun 2008 17:54:46 -0000 Date: Mon, 16 Jun 2008 17:55:00 -0000 Message-ID: <20080616175446.1779.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/36276] [4.3/4.4 Regression] possible issue with opening fortran files? In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "burnus 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: 2008-06/txt/msg01008.txt.bz2 ------- Comment #7 from burnus at gcc dot gnu dot org 2008-06-16 17:54 ------- Better patch. I'm not sure whether we are ever freeing the memory, but I think even if not, it is not a big problem. Index: scanner.c =================================================================== --- scanner.c (Revision 136838) +++ scanner.c @@ -1654,7 +1654,8 @@ preprocessor_line (gfc_char_t *c) if (strcmp (current_file->filename, filename) != 0) { - gfc_free (current_file->filename); + /* The current_file->filename may not be freed here as it still needs to + be accessible by lookup_line. */ current_file->filename = gfc_getmem (strlen (filename) + 1); strcpy (current_file->filename, filename); } -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36276