From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-patches-return-277124-listarch-gcc-patches=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 9488 invoked by alias); 2 Nov 2010 21:28:36 -0000
Received: (qmail 9468 invoked by uid 22791); 2 Nov 2010 21:28:36 -0000
X-SWARE-Spam-Status: No, hits=-1.8 required=5.0	tests=AWL,BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,FREEMAIL_FROM,RCVD_IN_DNSWL_NONE
X-Spam-Check-By: sourceware.org
Received: from mail-fx0-f47.google.com (HELO mail-fx0-f47.google.com) (209.85.161.47)    by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Tue, 02 Nov 2010 21:28:32 +0000
Received: by fxm3 with SMTP id 3so6252581fxm.20        for <multiple recipients>; Tue, 02 Nov 2010 14:28:29 -0700 (PDT)
MIME-Version: 1.0
Received: by 10.204.112.2 with SMTP id u2mr8090204bkp.5.1288733309712; Tue, 02 Nov 2010 14:28:29 -0700 (PDT)
Received: by 10.204.23.3 with HTTP; Tue, 2 Nov 2010 14:28:28 -0700 (PDT)
In-Reply-To: <20101031215043.8B69A3BE18@mailhost.lps.ens.fr>
References: <20101009134002.157E83BE0F@mailhost.lps.ens.fr>	<AANLkTinUrNM2PSQdAoCb=PGEhNtyvx5-Czke8hKcCbJb@mail.gmail.com>	<20101023202653.2DF9D3BE18@mailhost.lps.ens.fr>	<AANLkTimcyDC-qh43tOCkaWwfsT2_RsW3MfZ3ChQRj3zp@mail.gmail.com>	<4CC47A12.7050504@net-b.de>	<AANLkTi=mxWu9dUeBrvgGeVeTMuB4DD=pEJnnsKxVMaKZ@mail.gmail.com>	<20101031215043.8B69A3BE18@mailhost.lps.ens.fr>
Date: Tue, 02 Nov 2010 21:35:00 -0000
Message-ID: <AANLkTi=Ob=qsjvc1Qip4Qe-diyy3eQLfx0cJd3iqtFP7@mail.gmail.com>
Subject: Re: (Re)allocation of allocatable arrays on assignment - F2003
From: Paul Richard Thomas <paul.richard.thomas@gmail.com>
To: Dominique Dhumieres <dominiq@lps.ens.fr>
Cc: gcc-patches@gcc.gnu.org, fortran@gcc.gnu.org, burnus@net-b.de
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: <gcc-patches.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-patches/>
List-Post: <mailto:gcc-patches@gcc.gnu.org>
List-Help: <mailto:gcc-patches-help@gcc.gnu.org>
Sender: gcc-patches-owner@gcc.gnu.org
X-SW-Source: 2010-11/txt/msg00206.txt.bz2

Dominique,

This one is now fixed (in the version of the patch to come).

Thanks

Paul

On Sun, Oct 31, 2010 at 10:50 PM, Dominique Dhumieres
<dominiq@lps.ens.fr> wrote:
> Paul,
>
> The patch fixes all the problem I know, but for the bounds when
> the size has not changed:
>
> [macbook] f90/bug% cat realloc_bnd.f90
> real :: a(10)=3D1, b(51:60)=3D2
> real, allocatable :: c(:), d(:)
> c=3Da
> print *, lbound(c), ubound(c)
> c=3Db
> print *, lbound(c), ubound(c)
> d=3Db
> print *, lbound(d), ubound(d)
> d=3Da
> print *, lbound(d), ubound(d)
> if (any(lbound(d)/=3D1).or.any(ubound(d)/=3D10)) call abort()
> end
> [macbook] f90/bug% a.out
> =A0 =A0 =A0 =A0 =A0 1 =A0 =A0 =A0 =A0 =A010
> =A0 =A0 =A0 =A0 =A0 1 =A0 =A0 =A0 =A0 =A010
> =A0 =A0 =A0 =A0 =A051 =A0 =A0 =A0 =A0 =A060
> =A0 =A0 =A0 =A0 =A051 =A0 =A0 =A0 =A0 =A060
> Abort
>
> BTW I think the patch should not be delayed by this
> last problem.
>
> Thanks,
>
> Dominique
>



--=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