From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 27891 invoked by alias); 9 Jun 2013 11:35:30 -0000 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 Received: (qmail 27872 invoked by uid 89); 9 Jun 2013 11:35:29 -0000 X-Spam-SWARE-Status: No, score=-2.2 required=5.0 tests=AWL,BAYES_00,RCVD_IN_DNSWL_NONE autolearn=ham version=3.3.1 X-Spam-User: qpsmtpd, 2 recipients Received: from mail-out.m-online.net (HELO mail-out.m-online.net) (212.18.0.10) by sourceware.org (qpsmtpd/0.84/v0.84-167-ge50287c) with ESMTP; Sun, 09 Jun 2013 11:35:27 +0000 Received: from frontend1.mail.m-online.net (frontend1.mail.intern.m-online.net [192.168.8.180]) by mail-out.m-online.net (Postfix) with ESMTP id 3bSwQ50zXcz3hhWQ; Sun, 9 Jun 2013 13:35:24 +0200 (CEST) Received: from localhost (dynscan1.mnet-online.de [192.168.6.68]) by mail.m-online.net (Postfix) with ESMTP id 3bSwQ46MZ5zbbff; Sun, 9 Jun 2013 13:35:24 +0200 (CEST) Received: from mail.mnet-online.de ([192.168.8.180]) by localhost (dynscan1.mail.m-online.net [192.168.6.68]) (amavisd-new, port 10024) with ESMTP id D3IYGN7tD0Oq; Sun, 9 Jun 2013 13:35:23 +0200 (CEST) X-Auth-Info: 2L+RgwNMgxPnG2GQ7yxwes+CFKrT4vchAbeQ4TQoF38= Received: from igel.home (ppp-88-217-106-117.dynamic.mnet-online.de [88.217.106.117]) by mail.mnet-online.de (Postfix) with ESMTPA; Sun, 9 Jun 2013 13:35:23 +0200 (CEST) Received: by igel.home (Postfix, from userid 1000) id 46047E4EE5; Sun, 9 Jun 2013 13:35:23 +0200 (CEST) From: Andreas Schwab To: Tobias Burnus Cc: fortran@gcc.gnu.org, gcc patches Subject: Re: *PING* / Re: [Patch, Fortran] Finalize nonallocatables with INTENT(out) References: <51A8D22F.6040801@net-b.de> <51B049CA.80202@net-b.de> X-Yow: I have accepted Provolone into my life! Date: Sun, 09 Jun 2013 11:35:00 -0000 In-Reply-To: <51B049CA.80202@net-b.de> (Tobias Burnus's message of "Thu, 06 Jun 2013 10:35:22 +0200") Message-ID: <87r4gb34as.fsf@igel.home> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-SW-Source: 2013-06/txt/msg00471.txt.bz2 Tobias Burnus writes: > --- /dev/null 2013-06-06 09:52:08.544104880 +0200 > +++ gcc/gcc/testsuite/gfortran.dg/finalize_10.f90 2013-06-03 12:32:38.763008261 +0200 > @@ -0,0 +1,39 @@ > +! { dg-do compile } > +! { dg-options "-fdump-tree-original" } > +! > +! PR fortran/37336 > +! > +! Finalize nonallocatable INTENT(OUT) > +! > +module m > + type t > + end type t > + type t2 > + contains > + final :: fini > + end type t2 > +contains > + elemental subroutine fini(var) > + type(t2), intent(inout) :: var > + end subroutine fini > +end module m > + > +subroutine foo(x,y,aa,bb) > + use m > + class(t), intent(out) :: x(:),y > + type(t2), intent(out) :: aa(:),bb > +end subroutine foo > + > +! Finalize CLASS + set default init > +! { dg-final { scan-tree-dump-times "y->_vptr->_final \\(&desc.\[0-9\]+, y->_vptr->_size, 0\\);" 1 "original" } } > +! { dg-final { scan-tree-dump-times "__builtin_memcpy \\(\\(void .\\) y->_data, \\(void .\\) y->_vptr->_def_init, \\(unsigned long\\) y->_vptr->_size\\);" 1 "original" } } That doesn't match. (void) __builtin_memcpy ((void *) y->_data, (void *) y->_vptr->_def_init, (character(kind=4)) y->_vptr->_size); Appears to be a 32/64 bit issue. Andreas. -- Andreas Schwab, schwab@linux-m68k.org GPG Key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5 "And now for something completely different."