pr43505.f90: Clean up .mod file.

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

From-SVN: r158708

36 files changed, 75 insertions, 0 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8b8669e..f823062 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 47e4009..18f303b 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 51e69a4..e8b4293 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 273e670..ed78067 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 720fff8..2f9f9db 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 b2c6cb0..8389944 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 62eccf3..e964ade 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 7322476..391549e 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 b9641ae..c49def8 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 f8dc807..2f248d0b 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 09cab6f..e019917 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 523c479..bb5bc0c 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 dafb63f..06ce47d 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 0918f72..d0e1b01 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 9e488f4..0e3669b 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 fb62e20..45c635b 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 1fc708e..da9a348 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 7f24fec..07f9ed4 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 3cb4aba..40e3ac4 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 7b68a35..7346fd0 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 0bcfc79..5ddc035 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 2f33a0f..db78315 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 ae48857..e8ceef5 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 1438b0c..2805c2d 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 5b97815..910a08c 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 bdeb6c5..b912c9f 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 53d5f4c..57c22dd 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 c9867bc..5bebcf0 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 fa50dc1..66cf5ff 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 ec358cb..7678286 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 40a0910..8eb47e1 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 7e12d93..95488e5 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 eb6330d..2d40180 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 019b415..66e878d 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 74ce1ba..e1c479e 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 d01b210..d50e481 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" } }