From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 343 invoked by alias); 16 Oct 2011 18:19:23 -0000 Received: (qmail 323 invoked by uid 22791); 16 Oct 2011 18:19:22 -0000 X-SWARE-Spam-Status: No, hits=-2.3 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-ww0-f51.google.com (HELO mail-ww0-f51.google.com) (74.125.82.51) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Sun, 16 Oct 2011 18:19:08 +0000 Received: by wwe32 with SMTP id 32so1160470wwe.8 for ; Sun, 16 Oct 2011 11:19:07 -0700 (PDT) MIME-Version: 1.0 Received: by 10.216.25.196 with SMTP id z46mr5893901wez.16.1318789146926; Sun, 16 Oct 2011 11:19:06 -0700 (PDT) Received: by 10.216.234.3 with HTTP; Sun, 16 Oct 2011 11:19:06 -0700 (PDT) In-Reply-To: References: Date: Sun, 16 Oct 2011 19:21:00 -0000 Message-ID: Subject: Re: [Patch, Fortran] PR 47023: [4.6/4.7 regression] C_Sizeof: Rejects valid code 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-10/txt/msg01435.txt.bz2 Dear Janus, This is OK for trunk. Thanks fo rthe patch. Cheers Paul On Sun, Oct 16, 2011 at 2:58 PM, Janus Weil wrote: > Hi all, > > here is a patch which fixes the regression in comment #2 of the PR in > the subject line. What it does is setting the 'ts.is_c_interop' flag > correctly for constants with kind-parameter specification (such as > '0.0_c_double'), as is already being done for variables. > > Regtested on x86_64-unknown-linux-gnu. Ok for trunk and 4.6? > > Cheers, > Janus > > > 2011-10-16 =A0Janus Weil =A0 > > =A0 =A0 =A0 =A0PR fortran/47023 > =A0 =A0 =A0 =A0* primary.c (match_kind_param): Detect ISO_C_BINDING kinds. > =A0 =A0 =A0 =A0(get_kind): Pass on 'is_iso_c' flag. > =A0 =A0 =A0 =A0(match_integer_constant,match_real_constant,match_logical_= constant): > =A0 =A0 =A0 =A0Set 'ts.is_c_interop'. > > > 2011-10-16 =A0Janus Weil =A0 > > =A0 =A0 =A0 =A0PR fortran/47023 > =A0 =A0 =A0 =A0* gfortran.dg/c_kind_tests_3.f03: 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