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

36 files changed, 75 insertions, 0 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8b8669ef2b4..f8230622c22 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 47e400962cb..18f303b368d 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 51e69a49ee4..e8b429305e8 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 273e670fcee..ed780673655 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 720fff8dd02..2f9f9dbec37 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 b2c6cb04edc..83899445de4 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 62eccf35ff1..e964adec1b8 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 73224764f16..391549e3cd0 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 b9641aef031..c49def850bf 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 f8dc8078e5c..2f248d0b892 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 09cab6f0f1c..e019917414c 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 523c479e215..bb5bc0c58db 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 dafb63fdc8b..06ce47d9e7f 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 0918f72874c..d0e1b017879 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 9e488f4f189..0e3669bf5e7 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 fb62e20f45c..45c635b761d 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 1fc708ef967..da9a348dd44 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 7f24fecb0e0..07f9ed478b2 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 3cb4abaedd2..40e3ac4d5d4 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 7b68a352246..7346fd04668 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 0bcfc799a8e..5ddc035e9c4 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 2f33a0f5bf4..db783159a24 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 ae48857d507..e8ceef5f7d9 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 1438b0c122d..2805c2d7dab 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 5b978153a45..910a08c36fc 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 bdeb6c538c2..b912c9ff0dd 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 53d5f4c705c..57c22dd5232 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 c9867bcf87b..5bebcf030b7 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 fa50dc13c86..66cf5fff736 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 ec358cb12c0..76782861087 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 40a0910b1ed..8eb47e19b81 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 7e12d935447..95488e5f72c 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 eb6330def63..2d4018049d5 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 019b4155844..66e878d3dee 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 74ce1ba6ad3..e1c479e5f93 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 d01b2100c4b..d50e4810704 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" } }