dependency_26.f90: Add a module to the cleanup directive.

2011-08-04  Mikael Morin  <mikael.morin@sfr.fr>

	* gfortran.dg/dependency_26.f90: Add a module to the cleanup directive.
	* gfortran.dg/trim_optimize_2.f90: Add a module cleanup directive.
	* gfortran.dg/ldist-pr43023.f90: Ditto.
	* gfortran.dg/namelist_52.f90: Ditto.
	* gfortran.dg/interface_proc_end.f90: Ditto.
	* gfortran.dg/vector_subscript_bound_1.f90: Ditto.
	* gfortran.dg/generic_typebound_operator_1.f90: Ditto.

From-SVN: r177415

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9545dc30a8d0bb0a80f0581069ae6fa5e0d3219a..7bebe972efdecb42c5439e45fa7fb2dcda2cc296 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,13 @@
+2011-08-04  Mikael Morin  <mikael.morin@sfr.fr>
+
+       * gfortran.dg/dependency_26.f90: Add a module to the cleanup directive.
+       * gfortran.dg/trim_optimize_2.f90: Add a module cleanup directive.
+       * gfortran.dg/ldist-pr43023.f90: Ditto.
+       * gfortran.dg/namelist_52.f90: Ditto.
+       * gfortran.dg/interface_proc_end.f90: Ditto.
+       * gfortran.dg/vector_subscript_bound_1.f90: Ditto.
+       * gfortran.dg/generic_typebound_operator_1.f90: Ditto.
+
 2011-08-04  Ira Rosen  <ira.rosen@linaro.org>
 
        * gcc.dg/vect/vect-over-widen-1.c: New test.

diff --git a/gcc/testsuite/gfortran.dg/dependency_26.f90 b/gcc/testsuite/gfortran.dg/dependency_26.f90
index 0103d024197588d224a340ef9908404bc2381f9d..e893d992c5de7bc98ab544167f5eb94c13a7df2b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/dependency_26.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_26.f90
@@ -47,7 +47,7 @@ END MODULE M1
   cell%h = reshape ([(real(i), i = 1, 9)], [3, 3])
   call s1 (cell)
 end
-! { dg-final { cleanup-modules "m1" } }
+! { dg-final { cleanup-modules "m1 m2" } }
 ! { dg-final { scan-tree-dump-times "&a" 1 "original" } }
 ! { dg-final { scan-tree-dump-times "pack" 0 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }

diff --git a/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90 b/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90
index 76c15e97baa161cfb06e2c544e4d8e230e01152d..32a17e3bd8a4b49d8e24fea842247666d51477f4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90
+++ b/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90
@@ -17,3 +17,5 @@ module m_sort
     end function gt_cmp
   end interface
 end module m_sort
+
+! { dg-final { cleanup-modules "m_sort" } }

diff --git a/gcc/testsuite/gfortran.dg/interface_proc_end.f90 b/gcc/testsuite/gfortran.dg/interface_proc_end.f90
index 2fc9921df413d0c55fa0c05c843ba71d82fa7f1b..efe5855584a878cbcdca5e13b94bc21a0ef4d2f3 100644 (file)
--- a/gcc/testsuite/gfortran.dg/interface_proc_end.f90
+++ b/gcc/testsuite/gfortran.dg/interface_proc_end.f90
@@ -16,3 +16,5 @@
       END INTERFACE
       end subroutine
       end module
+
+! { dg-final { cleanup-modules "n" } }

diff --git a/gcc/testsuite/gfortran.dg/ldist-pr43023.f90 b/gcc/testsuite/gfortran.dg/ldist-pr43023.f90
index 3e2d04c949017d956eac41666361ea0e528f98f6..7a298ea4b2f977ecfca4c8ce1661021e33e6e45e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/ldist-pr43023.f90
+++ b/gcc/testsuite/gfortran.dg/ldist-pr43023.f90
@@ -29,3 +29,5 @@ end do
 END SUBROUTINE NFT_Init
 
 END MODULE NFT_mod
+
+! { dg-final { cleanup-modules "nft_mod" } }

diff --git a/gcc/testsuite/gfortran.dg/namelist_52.f90 b/gcc/testsuite/gfortran.dg/namelist_52.f90
index 6e31382927f41482298485ca2727290d0a64f8d8..253bd3fc9a1a4346d74528aeefaa78be2e35a19a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_52.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_52.f90
@@ -30,3 +30,5 @@ read(31,nml=info_adjoint)
 if (adjoint%solver_type /= 'direct') call abort
 if (adjoint%screen_io_fs_ntime%begin /= 42) call abort
 end program gfortran_error_2
+
+! { dg-final { cleanup-modules "mod1" } }

diff --git a/gcc/testsuite/gfortran.dg/trim_optimize_2.f90 b/gcc/testsuite/gfortran.dg/trim_optimize_2.f90
index b7ae1e3e533025f15d6a62257a846f9e8a4c7a84..46ae7fb88c4fb975f3cadf80cd07e07f5ba6887b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/trim_optimize_2.f90
+++ b/gcc/testsuite/gfortran.dg/trim_optimize_2.f90
@@ -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" } }

diff --git a/gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90 b/gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90
index f4328504f24dcafc0dec0e3c8f9196c5dc3ab9ba..00e31f9595ff52a735035ccc5232cb97116fa6ad 100644 (file)
--- a/gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90
+++ b/gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90
@@ -17,3 +17,5 @@ CONTAINS
     PRINT *, pw%cr(UBOUND(pw%cr))
   END SUBROUTINE pw_write
 END MODULE
+
+! { dg-final { cleanup-modules "pw_types" } }