From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 16051 invoked by alias); 2 Jul 2011 08:29:44 -0000 Received: (qmail 16029 invoked by uid 22791); 2 Jul 2011 08:29:43 -0000 X-SWARE-Spam-Status: No, hits=-2.2 required=5.0 tests=AWL,BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,FREEMAIL_FROM,RCVD_IN_DNSWL_LOW X-Spam-Check-By: sourceware.org Received: from mail-iw0-f175.google.com (HELO mail-iw0-f175.google.com) (209.85.214.175) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Sat, 02 Jul 2011 08:29:29 +0000 Received: by iwn4 with SMTP id 4so4227608iwn.20 for ; Sat, 02 Jul 2011 01:29:29 -0700 (PDT) MIME-Version: 1.0 Received: by 10.42.162.135 with SMTP id y7mr291665icx.128.1309595368786; Sat, 02 Jul 2011 01:29:28 -0700 (PDT) Received: by 10.42.2.7 with HTTP; Sat, 2 Jul 2011 01:29:28 -0700 (PDT) In-Reply-To: References: Date: Sat, 02 Jul 2011 08:29:00 -0000 Message-ID: Subject: Re: [Patch, Fortran, F08] PR 49562: [4.6/4.7 Regression] [OOP] assigning value to type-bound function From: Paul Richard Thomas To: Janus Weil Cc: gfortran , gcc-patches Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org X-SW-Source: 2011-07/txt/msg00127.txt.bz2 OK for trunk and 4.6. Thanks for the patch Paul On Tue, Jun 28, 2011 at 5:40 PM, Janus Weil wrote: > Hi all, > > here is a patch for a problem which was originally reported as an > ICE-on-invalid regression (assigning to a type-bound function). > > In the course of fixing it, I noticed that it becomes valid according > to F08 if the function is pointer-valued, and modified the patch such > that it will accept this variant. I also adapted the original test > case to be a run-time test of this F08 feature (in fact it is just a > very complicated way of performing an increment from 0 to 1, and would > still segfault without the patch). > > The patch was regtested on x86_64-unknown-linux-gnu. Ok for trunk and 4.6= .2? > > Cheers, > Janus > > > > 2011-06-28 =A0Janus Weil =A0 > > =A0 =A0 =A0 =A0PR fortran/49562 > =A0 =A0 =A0 =A0* expr.c (gfc_check_vardef_context): Handle type-bound pro= cedures. > > > 2011-06-28 =A0Janus Weil =A0 > > =A0 =A0 =A0 =A0PR fortran/49562 > =A0 =A0 =A0 =A0* gfortran.dg/typebound_proc_23.f90: New. > --=20 The knack of flying is learning how to throw yourself at the ground and mis= s. =A0 =A0 =A0=A0 --Hitchhikers Guide to the Galaxy