Patchwork [Fortran,testsuite,committed] Add/fix dg-final cleanup-module

login
register
mail settings
Submitter Steve Kargl
Date Aug. 4, 2011, 8:45 p.m.
Message ID <20110804204534.GA23576@troutmask.apl.washington.edu>
Download mbox | patch
Permalink /patch/108565/
State New
Headers show

Comments

Steve Kargl - Aug. 4, 2011, 8:45 p.m.
On Tue, Aug 02, 2011 at 05:34:46PM +0200, Tobias Burnus wrote:
> 
> There might be still some missing or wrong cleanups, but most remaining 
> .mod files are from gfortran.fortran-torture.
> 

Yes, you missed a few.

2011-08-04  Steven G. Kargl  <kargl@gcc.gnu.org>

	* gfortran.dg/trim_optimize_2.f90: Clean up created module(s).
	* gfortran.dg/ldist-pr43023.f90: Ditto.
	* gfortran.dg/vector_subscript_bound_1.f90: Ditto.
	* gfortran.dg/generic_typebound_operator_1.f90: Ditto.
Mikael Morin - Aug. 4, 2011, 9:36 p.m.
On Thursday 04 August 2011 22:45:34 Steve Kargl wrote:
> On Tue, Aug 02, 2011 at 05:34:46PM +0200, Tobias Burnus wrote:
> > There might be still some missing or wrong cleanups, but most remaining
> > .mod files are from gfortran.fortran-torture.
> 
> Yes, you missed a few.

And you missed my two patches from yesterday. ;-)

http://gcc.gnu.org/ml/fortran/2011-08/msg00015.html
http://gcc.gnu.org/ml/fortran/2011-08/msg00017.html

Mikael.

Patch

Index: gcc/testsuite/gfortran.dg/trim_optimize_2.f90
===================================================================
--- gcc/testsuite/gfortran.dg/trim_optimize_2.f90	(revision 177414)
+++ gcc/testsuite/gfortran.dg/trim_optimize_2.f90	(working copy)
@@ -35,3 +35,4 @@  end program main
 ! { dg-final { scan-tree-dump-times "memmove" 4 "original" } }
 ! { dg-final { scan-tree-dump-times "string_trim" 0 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
+! { dg-final { cleanup-modules "faz" } }
Index: gcc/testsuite/gfortran.dg/ldist-pr43023.f90
===================================================================
--- gcc/testsuite/gfortran.dg/ldist-pr43023.f90	(revision 177414)
+++ gcc/testsuite/gfortran.dg/ldist-pr43023.f90	(working copy)
@@ -29,3 +29,4 @@  end do
 END SUBROUTINE NFT_Init
 
 END MODULE NFT_mod
+! { dg-final{ cleanup-modules "nft_mod" } } 
Index: gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90
===================================================================
--- gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90	(revision 177414)
+++ gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90	(working copy)
@@ -17,3 +17,4 @@  CONTAINS
     PRINT *, pw%cr(UBOUND(pw%cr))
   END SUBROUTINE pw_write
 END MODULE
+! { dg-final { cleanup-modules "pw_types" } }
Index: gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90
===================================================================
--- gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90	(revision 177414)
+++ gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90	(working copy)
@@ -17,3 +17,4 @@  module m_sort
     end function gt_cmp
   end interface
 end module m_sort
+! { dg-final { cleanup-modules "m_sort" } }