2010-04-25 Steven G. Kargl <kargl@gcc.gnu.org>

	 *gfortran.dg/pr43505.f90: Clean up .mod file.
	 *gfortran.dg/host_assoc_blockdata_1.f90
	 *gfortran.dg/pr41347.f90
	 *gfortran.dg/internal_pack_4.f90
	 *gfortran.dg/proc_decl_23.f90
	 *gfortran.dg/recursive_check_3.f90
	 *gfortran.dg/intent_out_3.f90
	 *gfortran.dg/assignment_2.f90
	 *gfortran.dg/pr41928.f90
	 *gfortran.dg/pr42166.f90
	 *gfortran.dg/private_type_12.f90
	 *gfortran.dg/graphite/pr42185.f90
	 *gfortran.dg/graphite/pr42186.f90
	 *gfortran.dg/graphite/pr40982.f90
	 *gfortran.dg/graphite/id-2.f90
	 *gfortran.dg/graphite/id-4.f90
	 *gfortran.dg/graphite/pr42050.f90
	 *gfortran.dg/graphite/id-18.f90
	 *gfortran.dg/graphite/pr42393-1.f90
	 *gfortran.dg/graphite/pr41924.f90
	 *gfortran.dg/graphite/pr42393.f90
	 *gfortran.dg/graphite/pr37980.f90
	 *gfortran.dg/graphite/pr38953.f90
	 *gfortran.dg/graphite/pr42180.f90
	 *gfortran.dg/graphite/pr42181.f90
	 *gfortran.dg/where_operator_assign_4.f90
	 *gfortran.dg/select_type_4.f90
	 *gfortran.dg/redefined_intrinsic_assignment.f90
	 *gfortran.dg/host_assoc_blockdata_2.f90
	 *gfortran.dg/lto/pr40725_0.f03
	 *gfortran.dg/elemental_args_check_2.f90
	 *gfortran.dg/whole_file_11.f90
	 *gfortran.dg/private_type_11.f90
	 *gfortran.dg/vect/vect-gems.f90
	 *gfortran.dg/vect/fast-math-real8-pr40801.f90

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@158708 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8b8669ef2b4c2b40eb582850f843a7d2b87671b5..f8230622c225ed4c4cf2300bb2ca8bb84b2113c8 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,41 @@
+2010-04-25  Steven G. Kargl  <kargl@gcc.gnu.org>
+ 
+        *gfortran.dg/pr43505.f90: Clean up .mod file.
+        *gfortran.dg/host_assoc_blockdata_1.f90: ditto
+        *gfortran.dg/pr41347.f90: ditto
+        *gfortran.dg/internal_pack_4.f90: ditto
+        *gfortran.dg/proc_decl_23.f90: ditto
+        *gfortran.dg/recursive_check_3.f90: ditto
+        *gfortran.dg/intent_out_3.f90: ditto
+        *gfortran.dg/assignment_2.f90: ditto
+        *gfortran.dg/pr41928.f90: ditto
+        *gfortran.dg/pr42166.f90: ditto
+        *gfortran.dg/private_type_12.f90: ditto
+        *gfortran.dg/graphite/pr42185.f90: ditto
+        *gfortran.dg/graphite/pr42186.f90: ditto
+        *gfortran.dg/graphite/pr40982.f90: ditto
+        *gfortran.dg/graphite/id-2.f90: ditto
+        *gfortran.dg/graphite/id-4.f90: ditto
+        *gfortran.dg/graphite/pr42050.f90: ditto
+        *gfortran.dg/graphite/id-18.f90: ditto
+        *gfortran.dg/graphite/pr42393-1.f90: ditto
+        *gfortran.dg/graphite/pr41924.f90: ditto
+        *gfortran.dg/graphite/pr42393.f90: ditto
+        *gfortran.dg/graphite/pr37980.f90: ditto
+        *gfortran.dg/graphite/pr38953.f90: ditto
+        *gfortran.dg/graphite/pr42180.f90: ditto
+        *gfortran.dg/graphite/pr42181.f90: ditto
+        *gfortran.dg/where_operator_assign_4.f90: ditto
+        *gfortran.dg/select_type_4.f90: ditto
+        *gfortran.dg/redefined_intrinsic_assignment.f90: ditto
+        *gfortran.dg/host_assoc_blockdata_2.f90: ditto
+        *gfortran.dg/lto/pr40725_0.f03: ditto
+        *gfortran.dg/elemental_args_check_2.f90: ditto
+        *gfortran.dg/whole_file_11.f90: ditto
+        *gfortran.dg/private_type_11.f90: ditto
+        *gfortran.dg/vect/vect-gems.f90: ditto
+        *gfortran.dg/vect/fast-math-real8-pr40801.f90: ditto
+
 2010-04-25  H.J. Lu  <hongjiu.lu@intel.com>
 
        * gcc.target/i386/pr43766.c: Scan "lea\[ \t\]" instead of "lea".

diff --git a/gcc/testsuite/gfortran.dg/assignment_2.f90 b/gcc/testsuite/gfortran.dg/assignment_2.f90
index 47e400962cb78246770a98134f7240c75c1e41c3..18f303b368dcc082dc6fe357aae726ded7203287 100644 (file)
--- a/gcc/testsuite/gfortran.dg/assignment_2.f90
+++ b/gcc/testsuite/gfortran.dg/assignment_2.f90
@@ -47,3 +47,4 @@ contains
              END SUBROUTINE
 end module m3
 
+! { dg-final { cleanup-modules "m1 m2 m3" } }

diff --git a/gcc/testsuite/gfortran.dg/elemental_args_check_2.f90 b/gcc/testsuite/gfortran.dg/elemental_args_check_2.f90
index 51e69a49ee463b139fda386c3e4e99b9dc1bf94b..e8b429305e836ec70acaaaf7e7cbecb5f2479f6a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/elemental_args_check_2.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_args_check_2.f90
@@ -17,3 +17,4 @@ CONTAINS
    END INTERFACE
  END SUBROUTINE S1
 END MODULE M1
+! { dg-final { cleanup-modules "m1" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/id-18.f90 b/gcc/testsuite/gfortran.dg/graphite/id-18.f90
index 273e670fcee82c575ac0ca40f2f9dbb48016c706..ed780673655cacccc8e59ea6d1418e5be59d34cf 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/id-18.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/id-18.f90
@@ -23,3 +23,4 @@ CONTAINS
   END SELECT
   END FUNCTION dlegendre
 END MODULE spherical_harmonics
+! { dg-final { cleanup-modules "spherical_harmonics" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/id-2.f90 b/gcc/testsuite/gfortran.dg/graphite/id-2.f90
index 720fff8dd02af27ab727ad1e65615b6e831a048c..2f9f9dbec372899950594fa53c15cef0a89b4a89 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/id-2.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/id-2.f90
@@ -11,3 +11,4 @@ contains
   subroutine fourir(A,ntot,kconjg, E,useold)
   end subroutine fourir
 end module solv_cap
+! { dg-final { cleanup-modules "solv_cap" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/id-4.f90 b/gcc/testsuite/gfortran.dg/graphite/id-4.f90
index b2c6cb04edc50077c5171d8d68b97a699b32b611..83899445de41fe0cf5bebfc5123b0f72b2260593 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/id-4.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/id-4.f90
@@ -30,3 +30,4 @@ CONTAINS
     END IF
   END SUBROUTINE QSORT
 END SUBROUTINE READIN
+! { dg-final { cleanup-modules "vimage vcimage" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr37980.f90 b/gcc/testsuite/gfortran.dg/graphite/pr37980.f90
index 62eccf35ff1dc1c621e3351317757034fbf1d7b3..e964adec1b8ee1163a2314958169f3544ecde43a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr37980.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr37980.f90
@@ -9,3 +9,4 @@ contains
     mat0 = 0.0d0
   end function spher_cartesians
 end module INT_MODULE
+! { dg-final { cleanup-modules "int_module" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr38953.f90 b/gcc/testsuite/gfortran.dg/graphite/pr38953.f90
index 73224764f16d3e7fd437a9a4892f061e2a454873..391549e3cd01b121c909b3c39aa971d8c2e065e4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr38953.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr38953.f90
@@ -113,3 +113,4 @@
       ENDIF
  999  CONTINUE
       END
+! { dg-final { cleanup-modules "main1" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr40982.f90 b/gcc/testsuite/gfortran.dg/graphite/pr40982.f90
index b9641aef0311200fb2b4329e00de0121e590b738..c49def850bf5e0a4c0d1bb15752e302e5d8d837b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr40982.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr40982.f90
@@ -67,3 +67,5 @@ contains
       end subroutine mutual_ind_quad_cir_coil
 
 end module mqc_m
+! { dg-final { cleanup-modules "mqc_m" } }
+

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr41924.f90 b/gcc/testsuite/gfortran.dg/graphite/pr41924.f90
index f8dc8078e5cef21408a2f20821e63dd023427163..2f248d0b89284be8bcf09fcf8fa43203701b5af5 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr41924.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr41924.f90
@@ -13,3 +13,4 @@ SUBROUTINE VOLCALC()
     IF ( WETSCIM ) HRVALD(ITYP) = 0.0
  ENDDO
 END SUBROUTINE VOLCALC
+! { dg-final { cleanup-modules "main1" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42050.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42050.f90
index 09cab6f0f1c690e8f3dc89a8203d01f2c1a5bf77..e019917414c9b38a3cfd516ec216042d667da4bb 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr42050.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42050.f90
@@ -23,3 +23,4 @@ CONTAINS
     CALL test()
   END SUBROUTINE sic_explicit_orbitals
 END MODULE qs_ks_methods
+! { dg-final { cleanup-modules "qs_ks_methods" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42180.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42180.f90
index 523c479e215a58bc79b79b7b6e5375eaf7c5df23..bb5bc0c58db0f283afa8b6938243238f98f1bd3a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr42180.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42180.f90
@@ -20,3 +20,4 @@ contains
     l12 = coefficient * l12
   end subroutine mutual_ind_cir_cir_coils
 end module mcc_m
+! { dg-final { cleanup-modules "mcc_m" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42181.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42181.f90
index dafb63fdc8b1135f52684b671db133ebc1106231..06ce47d9e7f6a951767fec5c67db8b3d67910657 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr42181.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42181.f90
@@ -17,3 +17,4 @@ CONTAINS
     END IF
   END SUBROUTINE newuob
 END MODULE powell
+! { dg-final { cleanup-modules "powell" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42185.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42185.f90
index 0918f72874c457cc8bb4bb48877bda679c4a1f9d..d0e1b01787961d50eeaf00822720c3a43758c2ad 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr42185.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42185.f90
@@ -25,3 +25,4 @@ CONTAINS
     END DO mainloop
   END SUBROUTINE trsapp
 END MODULE powell
+! { dg-final { cleanup-modules "powell" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42186.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42186.f90
index 9e488f4f1893202df8649da8a85d9bf84e892b7b..0e3669bf5e7b8f7bae2bbfdc17474c04f52384c0 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr42186.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42186.f90
@@ -12,3 +12,4 @@ CONTAINS
     END IF
   END SUBROUTINE CALERF
 END MODULE erf_fn
+! { dg-final { cleanup-modules "erf_fn" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90
index fb62e20f45c8d4e7e92f3c4bf6ef10d503d06a65..45c635b761d7cebeafab3df16f0cb1e132b1f3f4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90
@@ -22,3 +22,4 @@ CONTAINS
     fn_val = sum
   END FUNCTION basym
 END MODULE beta_gamma_psi
+! { dg-final { cleanup-modules "beta_gamma_psi" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42393.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42393.f90
index 1fc708ef9673c5d1bd97ced5737227eeb82e54b7..da9a348dd44ded550981b51b71417c21b32607ed 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr42393.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42393.f90
@@ -28,3 +28,4 @@ CONTAINS
     fn_val = e0*t*u*sum
   END FUNCTION basym
 END MODULE beta_gamma_psi
+! { dg-final { cleanup-modules "beta_gamma_psi" } }

diff --git a/gcc/testsuite/gfortran.dg/host_assoc_blockdata_1.f90 b/gcc/testsuite/gfortran.dg/host_assoc_blockdata_1.f90
index 7f24fecb0e00a9a1dcddc48dfc03ab739dda17c4..07f9ed478b2660f2e4a05d663cad07d84472d6f5 100644 (file)
--- a/gcc/testsuite/gfortran.dg/host_assoc_blockdata_1.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_blockdata_1.f90
@@ -9,3 +9,4 @@ END module globals
 BLOCK DATA
    use globals
 END BLOCK DATA
+! { dg-final { cleanup-modules "globals" } }

diff --git a/gcc/testsuite/gfortran.dg/host_assoc_blockdata_2.f90 b/gcc/testsuite/gfortran.dg/host_assoc_blockdata_2.f90
index 3cb4abaedd23b4eafb99cfc446db5be453c6ecf2..40e3ac4d5d402ce3d7fde60a7a89558bdbebe5e6 100644 (file)
--- a/gcc/testsuite/gfortran.dg/host_assoc_blockdata_2.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_blockdata_2.f90
@@ -15,3 +15,4 @@ program main
   use globals
   common /co/ pdm_bps ! { dg-error "already in a COMMON block" }
 end program main
+! { dg-final { cleanup-modules "globals" } }

diff --git a/gcc/testsuite/gfortran.dg/intent_out_3.f90 b/gcc/testsuite/gfortran.dg/intent_out_3.f90
index 7b68a352246e2955c82f1ba668ef1df56ae373b8..7346fd04668e1e66d9d30ca9e613b996b9ee56b5 100644 (file)
--- a/gcc/testsuite/gfortran.dg/intent_out_3.f90
+++ b/gcc/testsuite/gfortran.dg/intent_out_3.f90
@@ -17,3 +17,4 @@ END MODULE M1
 USE M1
 CALL S1(D1%I(3)) ! { dg-error "must be definable" }
 END
+! { dg-final { cleanup-modules "m1" } }

diff --git a/gcc/testsuite/gfortran.dg/internal_pack_4.f90 b/gcc/testsuite/gfortran.dg/internal_pack_4.f90
index 0bcfc799a8e421994cfb54c21948acf203818cd1..5ddc035e9c4884dfa7bb4fb6d103be074707df1b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/internal_pack_4.f90
+++ b/gcc/testsuite/gfortran.dg/internal_pack_4.f90
@@ -29,3 +29,4 @@ END
 ! { dg-final { scan-tree-dump-times "a != 0B \\? \\\(.*\\\) _gfortran_internal_pack" 1 "original" } }
 ! { dg-final { scan-tree-dump-times "if \\(a != 0B &&" 1 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
+! { dg-final { cleanup-modules "m1" } }

diff --git a/gcc/testsuite/gfortran.dg/lto/pr40725_0.f03 b/gcc/testsuite/gfortran.dg/lto/pr40725_0.f03
index 2f33a0f5bf49fd62b0804bfa0da6a883ec0be763..db783159a244d8ebd071b19e63648b6a2aecc84a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/lto/pr40725_0.f03
+++ b/gcc/testsuite/gfortran.dg/lto/pr40725_0.f03
@@ -14,3 +14,4 @@ contains
   end subroutine sub0
 end module bind_c_dts_2
 
+! { dg-final { cleanup-modules "bind_c_dts_2" } }

diff --git a/gcc/testsuite/gfortran.dg/pr41347.f90 b/gcc/testsuite/gfortran.dg/pr41347.f90
index ae48857d50731fe2695bc33eb4a24261f906331b..e8ceef5f7d988303641cc2577e1d44cd61390e44 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr41347.f90
+++ b/gcc/testsuite/gfortran.dg/pr41347.f90
@@ -30,3 +30,4 @@ module hsl_ma41_m
       end subroutine prininfo
 
 end module hsl_ma41_m
+! { dg-final { cleanup-modules "hsl_ma41_m" } }

diff --git a/gcc/testsuite/gfortran.dg/pr41928.f90 b/gcc/testsuite/gfortran.dg/pr41928.f90
index 1438b0c122d3810189a89578fa4037451ba5558f..2805c2d7dab34c4a8b7fb4295f2e9e8a51fc2261 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr41928.f90
+++ b/gcc/testsuite/gfortran.dg/pr41928.f90
@@ -261,3 +261,4 @@ CONTAINS
     END DO
   END SUBROUTINE diff_momop
 END MODULE ai_moments
+! { dg-final { cleanup-modules "ai_moments" } }

diff --git a/gcc/testsuite/gfortran.dg/pr42166.f90 b/gcc/testsuite/gfortran.dg/pr42166.f90
index 5b978153a45b50857f809ed60a9f87e77981be45..910a08c36fcfdf0cfbd49ba32a5619308deb7286 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr42166.f90
+++ b/gcc/testsuite/gfortran.dg/pr42166.f90
@@ -18,3 +18,4 @@ CONTAINS
   END SUBROUTINE newuob
 END MODULE powell
 
+! { dg-final { cleanup-modules "powell" } }

diff --git a/gcc/testsuite/gfortran.dg/pr43505.f90 b/gcc/testsuite/gfortran.dg/pr43505.f90
index bdeb6c538c229ca30211d879dff7dd69a036e500..b912c9ff0dd8f3cfd3202fd754043b11a131046e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr43505.f90
+++ b/gcc/testsuite/gfortran.dg/pr43505.f90
@@ -39,5 +39,6 @@
       end subroutine
 
     END PROGRAM TEST
+! { dg-final { cleanup-modules "main1" } }
 
 

diff --git a/gcc/testsuite/gfortran.dg/private_type_11.f90 b/gcc/testsuite/gfortran.dg/private_type_11.f90
index 53d5f4c705c03e3164a4314f86ddfc639b0d7ece..57c22dd523254ceb4fc7d8392461c934f0c2e9b3 100644 (file)
--- a/gcc/testsuite/gfortran.dg/private_type_11.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_11.f90
@@ -21,3 +21,4 @@ CONTAINS
   TYPE(T1) FUNCTION F2()
   END FUNCTION F2
 END MODULE M1
+! { dg-final { cleanup-modules "m1" } }

diff --git a/gcc/testsuite/gfortran.dg/private_type_12.f90 b/gcc/testsuite/gfortran.dg/private_type_12.f90
index c9867bcf87ba1ce427d4cab37311f227a90e9aad..5bebcf030b7f851c1aa931e74a79d01f6745337e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/private_type_12.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_12.f90
@@ -21,3 +21,4 @@ CONTAINS
   TYPE(T1) FUNCTION F2() ! { dg-error "Fortran 2003: PUBLIC variable 'f2'" }
   END FUNCTION F2
 END MODULE M1
+! { dg-final { cleanup-modules "m1" } }

diff --git a/gcc/testsuite/gfortran.dg/proc_decl_23.f90 b/gcc/testsuite/gfortran.dg/proc_decl_23.f90
index fa50dc13c86eb2d39abcad6f72f70959eda34a7e..66cf5fff736efa6307db9b356666f42fdd464ab6 100644 (file)
--- a/gcc/testsuite/gfortran.dg/proc_decl_23.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_23.f90
@@ -41,3 +41,4 @@ end module m_string
   print *, char1 (["j","k","l"])
 end
 ! { dg-final { cleanup-tree-dump "m_string" } }
+! { dg-final { cleanup-modules "m_string" } }

diff --git a/gcc/testsuite/gfortran.dg/recursive_check_3.f90 b/gcc/testsuite/gfortran.dg/recursive_check_3.f90
index ec358cb12c055a64d1fe0b99b6048e14073bf598..76782861087f0804d8e6469a6aacbcb62173df8c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/recursive_check_3.f90
+++ b/gcc/testsuite/gfortran.dg/recursive_check_3.f90
@@ -20,3 +20,4 @@ recursive recursive subroutine a3(b) ! { dg-error "Duplicate RECURSIVE attribute
   real, intent(in) :: b    ! { dg-error "Unexpected data declaration statement" }
 end subroutine a3          ! { dg-error "Expecting END MODULE" }
 end module m3
+! { dg-final { cleanup-modules "m1 m2 m3" } }

diff --git a/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90 b/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90
index 40a0910b1ed9b15c96ed710627dcedb9fb5c3631..8eb47e19b8113de480f927c4889452300cc50b62 100644 (file)
--- a/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90
+++ b/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90
@@ -16,3 +16,4 @@ CONTAINS
    I=-J
  END SUBROUTINE T1
 END MODULE M1
+! { dg-final { cleanup-modules "m1" } }

diff --git a/gcc/testsuite/gfortran.dg/select_type_4.f90 b/gcc/testsuite/gfortran.dg/select_type_4.f90
index 7e12d935447835a95bc8b02b6e4dc9fb10b0115e..95488e5f72cc968785a67ba6b6bdcc4f2b2aab02 100644 (file)
--- a/gcc/testsuite/gfortran.dg/select_type_4.f90
+++ b/gcc/testsuite/gfortran.dg/select_type_4.f90
@@ -172,3 +172,4 @@ program main
   call destroy_list(list) 
   stop 
 end program main 
+! { dg-final { cleanup-modules "poly_list" } }

diff --git a/gcc/testsuite/gfortran.dg/vect/fast-math-real8-pr40801.f90 b/gcc/testsuite/gfortran.dg/vect/fast-math-real8-pr40801.f90
index eb6330def63efc694e87cc559e55012355c0128d..2d4018049d5e31fac2c4c5ae6a5cf71258da2ce0 100644 (file)
--- a/gcc/testsuite/gfortran.dg/vect/fast-math-real8-pr40801.f90
+++ b/gcc/testsuite/gfortran.dg/vect/fast-math-real8-pr40801.f90
@@ -35,3 +35,4 @@ ENDIF
 END SUBROUTINE ACCONV
 
 ! { dg-final { cleanup-tree-dump "vect" } }
+! { dg-final { cleanup-modules "yomphy0" } }

diff --git a/gcc/testsuite/gfortran.dg/vect/vect-gems.f90 b/gcc/testsuite/gfortran.dg/vect/vect-gems.f90
index 019b41558446d736821fe2ed7ea84da807e474f7..66e878d3deec76e9dda905f325affa12c6a84241 100644 (file)
--- a/gcc/testsuite/gfortran.dg/vect/vect-gems.f90
+++ b/gcc/testsuite/gfortran.dg/vect/vect-gems.f90
@@ -55,3 +55,4 @@ END MODULE UPML_mod
 
 ! { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect"  } }
 ! { dg-final { cleanup-tree-dump "vect" } }
+! { dg-final { cleanup-modules "upml_mod" } }

diff --git a/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90 b/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
index 74ce1ba6ad393a85d7aafb89858f4d8cf25bf25d..e1c479e5f938465c1ae42d1d8518c892d6936e50 100644 (file)
--- a/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
+++ b/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
@@ -28,3 +28,4 @@ END WHERE
 WHERE (I(:)%I>0) J=I       ! { dg-error "Non-ELEMENTAL user-defined assignment in WHERE" }
 
 END
+! { dg-final { cleanup-modules "m1" } }

diff --git a/gcc/testsuite/gfortran.dg/whole_file_11.f90 b/gcc/testsuite/gfortran.dg/whole_file_11.f90
index d01b2100c4bed08eec44c0a2ba29d37ae55849ce..d50e4810704861649492011100554c5949c22bc2 100644 (file)
--- a/gcc/testsuite/gfortran.dg/whole_file_11.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_11.f90
@@ -35,3 +35,5 @@ FUNCTION foo_count()
   USE module_foo, ONLY: foo
   INTEGER :: foo_count
 END FUNCTION
+
+! { dg-final { cleanup-modules "module_foo" } }