From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 3018 invoked by alias); 12 Jan 2009 06:21:55 -0000 Received: (qmail 2989 invoked by uid 48); 12 Jan 2009 06:21:46 -0000 Date: Mon, 12 Jan 2009 06:21:00 -0000 Message-ID: <20090112062146.2988.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/38802] Seg fault for RESULT with allocatable components In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "pault 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-01/txt/msg01174.txt.bz2 ------- Comment #2 from pault at gcc dot gnu dot org 2009-01-12 06:21 ------- This does the job: Index: gcc/fortran/trans-array.c =================================================================== --- gcc/fortran/trans-array.c (revision 143242) +++ gcc/fortran/trans-array.c (working copy) @@ -5733,7 +5733,7 @@ } /* Dummy and use associated variables don't need anything special. */ - if (sym->attr.dummy || sym->attr.use_assoc) + if (sym->attr.dummy || sym->attr.use_assoc || sym->attr.result) { gfc_add_expr_to_block (&fnblock, body); Paul -- pault at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- AssignedTo|unassigned at gcc dot gnu |pault at gcc dot gnu dot org |dot org | Status|UNCONFIRMED |ASSIGNED Ever Confirmed|0 |1 Last reconfirmed|0000-00-00 00:00:00 |2009-01-12 06:21:46 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38802