From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 25 Apr 2010 21:29:37 +0000 (+0000)
Subject: 2010-04-25  Steven G. Kargl  <kargl@gcc.gnu.org>
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=313e8bbac03cb09148f35c504704b21b12fd8418;p=thirdparty%2Fgcc.git

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 8b8669ef2b4c..f8230622c225 100644
--- 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 47e400962cb7..18f303b368dc 100644
--- 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 51e69a49ee46..e8b429305e83 100644
--- 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 273e670fcee8..ed780673655c 100644
--- 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 720fff8dd02a..2f9f9dbec372 100644
--- 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 b2c6cb04edc5..83899445de41 100644
--- 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 62eccf35ff1d..e964adec1b8e 100644
--- 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 73224764f16d..391549e3cd01 100644
--- 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 b9641aef0311..c49def850bf5 100644
--- 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 f8dc8078e5ce..2f248d0b8928 100644
--- 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 09cab6f0f1c6..e019917414c9 100644
--- 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 523c479e215a..bb5bc0c58db0 100644
--- 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 dafb63fdc8b1..06ce47d9e7f6 100644
--- 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 0918f72874c4..d0e1b0178796 100644
--- 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 9e488f4f1893..0e3669bf5e7b 100644
--- 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 fb62e20f45c8..45c635b761d7 100644
--- 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 1fc708ef9673..da9a348dd44d 100644
--- 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 7f24fecb0e00..07f9ed478b26 100644
--- 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 3cb4abaedd23..40e3ac4d5d40 100644
--- 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 7b68a352246e..7346fd04668e 100644
--- 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 0bcfc799a8e4..5ddc035e9c48 100644
--- 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 2f33a0f5bf49..db783159a244 100644
--- 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 ae48857d5073..e8ceef5f7d98 100644
--- 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 1438b0c122d3..2805c2d7dab3 100644
--- 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 5b978153a45b..910a08c36fcf 100644
--- 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 bdeb6c538c22..b912c9ff0dd8 100644
--- 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 53d5f4c705c0..57c22dd52325 100644
--- 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 c9867bcf87ba..5bebcf030b7f 100644
--- 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 fa50dc13c86e..66cf5fff736e 100644
--- 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 ec358cb12c05..76782861087f 100644
--- 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 40a0910b1ed9..8eb47e19b811 100644
--- 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 7e12d9354478..95488e5f72cc 100644
--- 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 eb6330def63e..2d4018049d5e 100644
--- 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 019b41558446..66e878d3deec 100644
--- 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 74ce1ba6ad39..e1c479e5f938 100644
--- 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 d01b2100c4be..d50e48107048 100644
--- 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" } }