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 <ka...@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.
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" } }
--
Steve
