From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 6963 invoked by alias); 10 Jan 2011 09:10:44 -0000 Received: (qmail 6952 invoked by uid 22791); 10 Jan 2011 09:10:42 -0000 X-SWARE-Spam-Status: No, hits=-2.9 required=5.0 tests=ALL_TRUSTED,AWL,BAYES_00 X-Spam-Check-By: sourceware.org Received: from localhost (HELO gcc.gnu.org) (127.0.0.1) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Mon, 10 Jan 2011 09:10:38 +0000 From: "burnus at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/47240] segfault with procedure pointer component X-Bugzilla-Reason: CC X-Bugzilla-Type: changed X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Keywords: X-Bugzilla-Severity: normal X-Bugzilla-Who: burnus at gcc dot gnu.org X-Bugzilla-Status: UNCONFIRMED X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: --- X-Bugzilla-Changed-Fields: CC Message-ID: In-Reply-To: References: X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated Content-Type: text/plain; charset="UTF-8" MIME-Version: 1.0 Date: Mon, 10 Jan 2011 09:37:00 -0000 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: 2011-01/txt/msg00872.txt.bz2 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47240 Tobias Burnus changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |burnus at gcc dot gnu.org, | |janus at gcc dot gnu.org --- Comment #1 from Tobias Burnus 2011-01-10 09:10:34 UTC --- Seemingly the TREE generation does not honor that "coefficients%tfunc1(1)%p" is a pointer. If one has: subroutine evaluate_tensor_coefficient (tfunc, ... procedure (dum_tfunc) :: tfunc Using call evaluate_tensor_coefficient (dum_tfunc, ... ) works while call evaluate_tensor_coefficient (coefficients%tfunc1(1)%p, ...) fails. However, if one make the dummy argument a POINTER, it works: subroutine evaluate_tensor_coefficient (tfunc, ... procedure (dum_tfunc), POINTER :: tfunc when calling call evaluate_tensor_coefficient (coefficients%tfunc1(1)%p, ...) One also sees this if one looks at the dump: (*(struct tfunc_p[0:] * restrict) coefficients.tfunc1.data)[coefficients.tfunc1.offset + 1].p = dum_tfunc; Assigns the address of "dum_tfunc" to the function pointer "coefficients%tfunc1(1)%p" but in the call the again the address is taken - rather than passing the pointer as is - the first "&" should only appear if the argument is a function pointer and not just a function. evaluate_tensor_coefficient (&(*(struct tfunc_p[0:] * restrict) coefficients->tfunc1.data)[coefficients->tfunc1.offset + 1].p, &parm.17);