From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-patches-return-205261-listarch-gcc-patches=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 20642 invoked by alias); 4 Oct 2007 14:06:30 -0000
Received: (qmail 20494 invoked by uid 22791); 4 Oct 2007 14:06:06 -0000
X-Spam-Check-By: sourceware.org
Received: from nz-out-0506.google.com (HELO nz-out-0506.google.com) (64.233.162.227)     by sourceware.org (qpsmtpd/0.31) with ESMTP; Thu, 04 Oct 2007 14:06:02 +0000
Received: by nz-out-0506.google.com with SMTP id s1so174775nze         for <gcc-patches@gcc.gnu.org>; Thu, 04 Oct 2007 07:06:00 -0700 (PDT)
Received: by 10.64.21.6 with SMTP id 6mr13549550qbu.1191506759499;         Thu, 04 Oct 2007 07:05:59 -0700 (PDT)
Received: by 10.65.203.7 with HTTP; Thu, 4 Oct 2007 07:05:59 -0700 (PDT)
Message-ID: <84fc9c000710040705k1f7c3e26wfc28b578e1392772@mail.gmail.com>
Date: Thu, 04 Oct 2007 14:06:00 -0000
From: "Richard Guenther" <richard.guenther@gmail.com>
To: "H.J. Lu" <hjl@lucon.org>
Subject: Re: PATCH: PR fortran/33646: [4.3 Regression] Gcc 4.3 revision 128954 failed tonto in SPEC CPU 2006
Cc: gcc-patches@gcc.gnu.org, fortran@gcc.gnu.org
In-Reply-To: <20071004135735.GA31504@lucon.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
References: <20071004135735.GA31504@lucon.org>
X-IsSubscribed: yes
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: 2007-10/txt/msg00246.txt.bz2

On 10/4/07, H.J. Lu <hjl@lucon.org> wrote:
> This patch adds a testcase for PR fortran/33646. OK to install?

Yes, testcases for fixed PRs are obvious.

Richard.

>
> H.J.
> ----
> 2007-10-04  H.J. Lu  <hongjiu.lu@intel.com>
>
>         PR fortran/33646
>         * gfortran.dg/pr33646.f90: New file.
>
> --- gcc/testsuite/gfortran.dg/pr33646.f90.pr33646       2007-10-04 06:51:58.000000000 -0700
> +++ gcc/testsuite/gfortran.dg/pr33646.f90       2007-10-04 06:51:34.000000000 -0700
> @@ -0,0 +1,59 @@
> +! { dg-do compile }
> +! PR fortran/33646
> +!
> +!
> +
> +module BAR_MODULE
> +   implicit none
> +   private
> +   public    create_
> +   interface create_
> +      module procedure create
> +   end interface
> +   type system_type
> +       integer(kind=kind(1)) :: max_memory_used
> +   end type
> +
> +contains
> +
> +   subroutine create(self)
> +    type(system_type) :: self
> +      pointer :: self
> +      allocate(self)
> +   end subroutine
> +
> +end
> +
> +module FOO_MODULE
> +   use BAR_MODULE
> +   implicit none
> +   private
> +   public    create_
> +   interface create_
> +      module procedure create
> +   end interface
> +
> +   public    create_copy_
> +   interface create_copy_
> +      module procedure create_copy
> +   end interface
> +contains
> +
> +   subroutine create(self)
> +    character(*) :: self
> +      pointer :: self
> +      nullify(self)
> +      allocate(self)
> +
> +      self = " "
> +   end subroutine
> +
> +   subroutine create_copy(self,s)
> +    character(*) :: self
> +      pointer :: self
> +      character(*) :: s
> +      call create_(self)
> +   end subroutine
> +end
> +
> +! { dg-final { cleanup-modules "BAR_MODULE FOO_MODULE" } }
>