This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: PATCH: PR fortran/33646: [4.3 Regression] Gcc 4.3 revision 128954 failed tonto in SPEC CPU 2006
- From: "Richard Guenther" <richard dot guenther at gmail dot com>
- To: "H.J. Lu" <hjl at lucon dot org>
- Cc: gcc-patches at gcc dot gnu dot org, fortran at gcc dot gnu dot org
- Date: Thu, 4 Oct 2007 16:05:59 +0200
- Subject: Re: PATCH: PR fortran/33646: [4.3 Regression] Gcc 4.3 revision 128954 failed tonto in SPEC CPU 2006
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=beta; h=domainkey-signature:received:received:message-id:date:from:to:subject:cc:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references; bh=WP6kho//23xYYY+GY9GaqHxsJQpFWSmAGNmeyQxySUQ=; b=NM3x0c/DZXJAHLPF4Yj6iYYkcCA4MsuViF1pWGgLzpE80Uzd4KVyulFO9q1VmjXkTEJpczoNT/LLdx2/j7JtkMBZsYW7juuynCUvY4vLDG0TzpsEUbCQRE97Sfucrk6t5Z5pFsOPXEZ+Z4mRyYWKBZbLf5fQZhZxsZLtdVrE/3w=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta; h=received:message-id:date:from:to:subject:cc:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references; b=hmpBmcwbpqwQVvATKSTaWt+pDGkvpgoBU2cI7qWdfD+GK7Uxh58a1I/deE1xHD/OCZO1hFW+5NY62iHofkWuiG19Bwj0Idp37M6VwtDZQzqRDCRaGp3Z9HZLno8aBKplNFOBvIKJlSv6uKVUwWDIN3fbdW2wGeNnpYbobxnv82Y=
- References: <20071004135735.GA31504@lucon.org>
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" } }
>