This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: *PING* / Re: [Patch, Fortran] Finalize nonallocatables with INTENT(out)
- From: Tobias Burnus <burnus at net-b dot de>
- To: Dominique Dhumieres <dominiq at lps dot ens dot fr>
- Cc: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Wed, 12 Jun 2013 15:29:21 +0200
- Subject: Re: *PING* / Re: [Patch, Fortran] Finalize nonallocatables with INTENT(out)
- References: <20130609104620 dot A97DF3BE1B at mailhost dot lps dot ens dot fr> <51B87535 dot 7030606 at net-b dot de>
Tobias Burnus wrote:
Dominique Dhumieres wrote:
I have tried to weaken the test by not using any target and using a
regexp
of the kind "(int|long)", but I did not succeeded.
Ups, I missed that Dominique's and Andreas' 32bit dumps are different
("unsigned int" vs. "character(kind=4)"). Thus, the new pattern accepts
either version. Committed as 200006.
Tobias
Index: gcc/testsuite/ChangeLog
===================================================================
--- gcc/testsuite/ChangeLog (Revision 200003)
+++ gcc/testsuite/ChangeLog (Arbeitskopie)
@@ -1,7 +1,11 @@
2013-06-12 Tobias Burnus <burnus@net-b.de>
+
+ * gfortran.dg/finalize_10.f90: Update scan-tree-dump.
+
+2013-06-12 Tobias Burnus <burnus@net-b.de>
Dominique d'Humieres <dominiq@lps.ens.fr>
- * gfortran.dg/finalize_10.f90: Update dg-dump.
+ * gfortran.dg/finalize_10.f90: Update scan-tree-dump.
2013-06-12 Jakub Jelinek <jakub@redhat.com>
Index: gcc/testsuite/gfortran.dg/finalize_10.f90
===================================================================
--- gcc/testsuite/gfortran.dg/finalize_10.f90 (Revision 200003)
+++ gcc/testsuite/gfortran.dg/finalize_10.f90 (Arbeitskopie)
@@ -26,7 +26,7 @@
! 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 "__builtin_memcpy \\(\\(void .\\) y->_data, \\(void .\\) y->_vptr->_def_init, \\(unsigned (long|int)\\) y->_vptr->_size\\);" "original" } }
+! { dg-final { scan-tree-dump "__builtin_memcpy \\(\\(void .\\) y->_data, \\(void .\\) y->_vptr->_def_init, \\((unsigned long|unsigned int|character\\(kind=4\\))\\) y->_vptr->_size\\);" "original" } }
! { dg-final { scan-tree-dump-times "x->_vptr->_final \\(&x->_data, x->_vptr->_size, 0\\);" 1 "original" } }
! { dg-final { scan-tree-dump-times "x->_vptr->_copy \\(x->_vptr->_def_init, &x->_data\\);" 1 "original" } }