Remove now redundant manual cleanup-modules directive.

2012-05-15  Bernhard Reutner-Fischer  <aldot@gcc.gnu.org>

	* gfortran.dg/*.f90: Remove now redundant manual
	cleanup-modules directive.

From-SVN: r187521

964 files changed, 5 insertions, 1648 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7fc8f0e..9980ad7 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-15  Bernhard Reutner-Fischer  <aldot@gcc.gnu.org>
+
+	* gfortran.dg/*.f90: Remove now redundant manual
+	cleanup-modules directive.
+
 2012-05-14  Uros Bizjak  <ubizjak@gmail.com>
 
 	* gcc.target/i386/avx256-unaligned-load-[1234].c: Update scan strings.
diff --git a/gcc/testsuite/gfortran.dg/abstract_type_1.f90 b/gcc/testsuite/gfortran.dg/abstract_type_1.f90
index d0cd432..09757b1 100644
--- a/gcc/testsuite/gfortran.dg/abstract_type_1.f90
+++ b/gcc/testsuite/gfortran.dg/abstract_type_1.f90
@@ -11,4 +11,3 @@ MODULE m
   END TYPE t ! { dg-error "END MODULE" }
 
 END MODULE m
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/abstract_type_2.f03 b/gcc/testsuite/gfortran.dg/abstract_type_2.f03
index 2583f1f..b261ce2 100644
--- a/gcc/testsuite/gfortran.dg/abstract_type_2.f03
+++ b/gcc/testsuite/gfortran.dg/abstract_type_2.f03
@@ -11,4 +11,3 @@ MODULE m
   END TYPE error_t ! { dg-error "END MODULE" }
 
 END MODULE m
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/abstract_type_3.f03 b/gcc/testsuite/gfortran.dg/abstract_type_3.f03
index 79bc131..e7a9d9b 100644
--- a/gcc/testsuite/gfortran.dg/abstract_type_3.f03
+++ b/gcc/testsuite/gfortran.dg/abstract_type_3.f03
@@ -49,4 +49,3 @@ CONTAINS
   END SUBROUTINE impl
 
 END MODULE m
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/abstract_type_4.f03 b/gcc/testsuite/gfortran.dg/abstract_type_4.f03
index a6e5de2..dd0b0ab 100644
--- a/gcc/testsuite/gfortran.dg/abstract_type_4.f03
+++ b/gcc/testsuite/gfortran.dg/abstract_type_4.f03
@@ -26,4 +26,3 @@ PROGRAM main
   ! See if constructing the extending type works.
   conc = concrete_t (1, 2)
 END PROGRAM main
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/abstract_type_5.f03 b/gcc/testsuite/gfortran.dg/abstract_type_5.f03
index 42ac963..6e72882 100644
--- a/gcc/testsuite/gfortran.dg/abstract_type_5.f03
+++ b/gcc/testsuite/gfortran.dg/abstract_type_5.f03
@@ -43,4 +43,3 @@ CONTAINS
   END SUBROUTINE test
 
 END MODULE m
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/abstract_type_6.f03 b/gcc/testsuite/gfortran.dg/abstract_type_6.f03
index de1cea3..e4abd79 100644
--- a/gcc/testsuite/gfortran.dg/abstract_type_6.f03
+++ b/gcc/testsuite/gfortran.dg/abstract_type_6.f03
@@ -50,4 +50,3 @@ SUBROUTINE bottom_c(obj)
    ! other stuff
 END SUBROUTINE bottom_c 
 end module
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/abstract_type_7.f03 b/gcc/testsuite/gfortran.dg/abstract_type_7.f03
index 3ea0fdc..382cf9e 100644
--- a/gcc/testsuite/gfortran.dg/abstract_type_7.f03
+++ b/gcc/testsuite/gfortran.dg/abstract_type_7.f03
@@ -15,4 +15,3 @@ module ice_module
   end type c_type
 end module ice_module
  
-! { dg-final { cleanup-modules "ice_module" } }
diff --git a/gcc/testsuite/gfortran.dg/abstract_type_8.f03 b/gcc/testsuite/gfortran.dg/abstract_type_8.f03
index c924aba..edcb37a 100644
--- a/gcc/testsuite/gfortran.dg/abstract_type_8.f03
+++ b/gcc/testsuite/gfortran.dg/abstract_type_8.f03
@@ -25,5 +25,3 @@ abstract interface
     end subroutine generic_desc
 end interface
 end module factory_pattern
-
-! { dg-final { cleanup-modules "factory_pattern" } }
diff --git a/gcc/testsuite/gfortran.dg/access_spec_1.f90 b/gcc/testsuite/gfortran.dg/access_spec_1.f90
index 2c080c9..8bebd11 100644
--- a/gcc/testsuite/gfortran.dg/access_spec_1.f90
+++ b/gcc/testsuite/gfortran.dg/access_spec_1.f90
@@ -15,4 +15,3 @@ module mod
     integer, private :: z  ! Fortran 2003
   end type
 end module
-! { dg-final { cleanup-modules "mod" } }
diff --git a/gcc/testsuite/gfortran.dg/access_spec_2.f90 b/gcc/testsuite/gfortran.dg/access_spec_2.f90
index 7b67e6c..ccb56e2 100644
--- a/gcc/testsuite/gfortran.dg/access_spec_2.f90
+++ b/gcc/testsuite/gfortran.dg/access_spec_2.f90
@@ -37,4 +37,3 @@ program x
   public  :: i ! { dg-error "only allowed in the specification part of a module" }
   integer,public :: j ! { dg-error "not allowed outside of the specification part of a module" }
 end program x
-! { dg-final { cleanup-modules "test mod" } }
diff --git a/gcc/testsuite/gfortran.dg/access_spec_3.f90 b/gcc/testsuite/gfortran.dg/access_spec_3.f90
index 9a076b6..838b47b 100644
--- a/gcc/testsuite/gfortran.dg/access_spec_3.f90
+++ b/gcc/testsuite/gfortran.dg/access_spec_3.f90
@@ -31,4 +31,3 @@ program user
         bint = 8
         write(*,*) aint
 end program
-! { dg-final { cleanup-modules "base a b c" } }
diff --git a/gcc/testsuite/gfortran.dg/actual_array_constructor_1.f90 b/gcc/testsuite/gfortran.dg/actual_array_constructor_1.f90
index 69bfcd0..1caf652 100644
--- a/gcc/testsuite/gfortran.dg/actual_array_constructor_1.f90
+++ b/gcc/testsuite/gfortran.dg/actual_array_constructor_1.f90
@@ -78,5 +78,3 @@ contains
   end subroutine option_stopwatch_a
 
 end program main
-! { dg-final { cleanup-modules "global my_module" } }
-
diff --git a/gcc/testsuite/gfortran.dg/actual_array_result_1.f90 b/gcc/testsuite/gfortran.dg/actual_array_result_1.f90
index cf79315..04c7e67 100644
--- a/gcc/testsuite/gfortran.dg/actual_array_result_1.f90
+++ b/gcc/testsuite/gfortran.dg/actual_array_result_1.f90
@@ -68,4 +68,3 @@ program main
   n = 5
   if(any (foo3(n) /= [ 0,1,2,3,0 ])) call abort()
 end program
-! { dg-final { cleanup-modules "one" } }
diff --git a/gcc/testsuite/gfortran.dg/actual_array_vect_1.f90 b/gcc/testsuite/gfortran.dg/actual_array_vect_1.f90
index cbee226..8b4d6f4 100644
--- a/gcc/testsuite/gfortran.dg/actual_array_vect_1.f90
+++ b/gcc/testsuite/gfortran.dg/actual_array_vect_1.f90
@@ -31,5 +31,3 @@ call bb(w(2:4))
 call bb(w((/3,2,1/))) ! { dg-error "vector subscript" }
 write(*,*)w
 end
-
-! { dg-final { cleanup-modules "mod" } }
diff --git a/gcc/testsuite/gfortran.dg/actual_procedure_1.f90 b/gcc/testsuite/gfortran.dg/actual_procedure_1.f90
index 5327cb7..4a7f3d8 100644
--- a/gcc/testsuite/gfortran.dg/actual_procedure_1.f90
+++ b/gcc/testsuite/gfortran.dg/actual_procedure_1.f90
@@ -69,4 +69,3 @@ function proc_ext (arg, chr)
   proc_ext = arg
   chr = "proc_ext"
 end function
-! { dg-final { cleanup-modules "m" } }
\ No newline at end of file
diff --git a/gcc/testsuite/gfortran.dg/aliasing_array_result_1.f90 b/gcc/testsuite/gfortran.dg/aliasing_array_result_1.f90
index d8899d2..ddfba01 100644
--- a/gcc/testsuite/gfortran.dg/aliasing_array_result_1.f90
+++ b/gcc/testsuite/gfortran.dg/aliasing_array_result_1.f90
@@ -161,4 +161,3 @@ contains
     get_d = d
   end function get_d
 end program test
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/aliasing_dummy_5.f90 b/gcc/testsuite/gfortran.dg/aliasing_dummy_5.f90
index 379fbd7..cc52456 100644
--- a/gcc/testsuite/gfortran.dg/aliasing_dummy_5.f90
+++ b/gcc/testsuite/gfortran.dg/aliasing_dummy_5.f90
@@ -51,5 +51,3 @@ contains
     CALL foobar (x)
   end subroutine bar
 END subroutine test
-
-! { dg-final { cleanup-modules "m m2" } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_alloc_expr_3.f90 b/gcc/testsuite/gfortran.dg/alloc_alloc_expr_3.f90
index 13b2230..e7a5ff2 100644
--- a/gcc/testsuite/gfortran.dg/alloc_alloc_expr_3.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_alloc_expr_3.f90
@@ -21,5 +21,3 @@ function func2()
 end function
 
 end module foo
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_assign_10.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_assign_10.f90
index c85edea..808a289 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_assign_10.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_assign_10.f90
@@ -57,5 +57,3 @@ program tao_program
   deallocate (u%design, u%model)
   deallocate (s%u)
 end program
-
-! { dg-final { cleanup-modules "test_struct" } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_assign_12.f03 b/gcc/testsuite/gfortran.dg/alloc_comp_assign_12.f03
index b44769d..ea8067d 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_assign_12.f03
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_assign_12.f03
@@ -40,5 +40,3 @@ program main2
   call o%make(u)
   if (any (int (o%disp()) .ne. [1,2])) call abort
 end program main2
-! { dg-final { cleanup-modules "foo" } }
-
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_assign_6.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_assign_6.f90
index 4e8edc2..c388276 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_assign_6.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_assign_6.f90
@@ -51,5 +51,3 @@ program VST28
     call abort ()
   end if
 end program VST28
-
-! { dg-final { cleanup-modules "iso_varying_string" } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_assign_7.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_assign_7.f90
index c7e9b757..08e98c2 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_assign_7.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_assign_7.f90
@@ -36,5 +36,3 @@ end module PrettyPix_module
     if (this%look_at_path%r(i)%y2(1) .ne. x(i)) call abort
   end do
 end
-
-! { dg-final { cleanup-modules "prettypix_module" } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_assign_8.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_assign_8.f90
index ab4868d..655ef85 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_assign_8.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_assign_8.f90
@@ -46,5 +46,3 @@ end module
   if (t1%a .ne. -0.5d0) call abort
   if (any(t1%b .ne. [-1d0, -2d0])) call abort
 end
-
-! { dg-final { cleanup-modules "typemodule" } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_auto_array_2.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_auto_array_2.f90
index c8945cf..c4c4ae2 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_auto_array_2.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_auto_array_2.f90
@@ -38,4 +38,3 @@ end module grid_io
   call read_grid_header
 end
 ! { dg-final { cleanup-tree-dump "grid_io" } }
-! { dg-final { cleanup-modules "grid_io" } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90
index e53112c..9b08129 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90
@@ -141,4 +141,3 @@ contains
 end program alloc
 ! { dg-final { scan-tree-dump-times "builtin_free" 18 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "alloc_m" } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_basics_4.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_basics_4.f90
index 508d567..9877d3b 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_basics_4.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_basics_4.f90
@@ -21,5 +21,3 @@ MODULE globals_m
   USE types_m
   TYPE(grib_t) g_dest           ! output field
 END MODULE
-! { dg-final { cleanup-modules "types_m globals_m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_basics_5.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_basics_5.f90
index 99cd9e0..9dd4e97 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_basics_5.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_basics_5.f90
@@ -43,5 +43,3 @@ program tsave
   if (info .ne. 10) call abort ()
   
 end program tsave
-
-! { dg-final { cleanup-modules "bar_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_class_1.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_class_1.f90
index c783f49..8add2c7 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_class_1.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_class_1.f90
@@ -30,4 +30,3 @@ contains
     type(d_sparse_mat), intent(out) :: a
   end subroutine bug14
 end
-! { dg-final { cleanup-modules "d_mat_mod " } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90
index e2b609a..787f30a6 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90
@@ -18,4 +18,3 @@ module cell
     return
   end subroutine cell_output
 end module cell
-! { dg-final { cleanup-modules "cell" } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_initializer_1.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_initializer_1.f90
index 1976509..ac37fd6 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_initializer_1.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_initializer_1.f90
@@ -68,4 +68,3 @@ contains
     end subroutine p_bld
 
 end program foo
-! { dg-final { cleanup-modules "p_type_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_result_1.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_result_1.f90
index 90f6d97..34f25c0 100644
--- a/gcc/testsuite/gfortran.dg/alloc_comp_result_1.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_result_1.f90
@@ -30,4 +30,3 @@ program test
   x = a_fun(0)
   if (any (x(1)%mons%coeff .ne. 99)) call abort
 end program test
-! { dg-final { cleanup-modules "mod_a" } }
diff --git a/gcc/testsuite/gfortran.dg/allocatable_function_1.f90 b/gcc/testsuite/gfortran.dg/allocatable_function_1.f90
index fc3b983..05e0be0 100644
--- a/gcc/testsuite/gfortran.dg/allocatable_function_1.f90
+++ b/gcc/testsuite/gfortran.dg/allocatable_function_1.f90
@@ -109,4 +109,3 @@ contains
 end program alloc_fun
 ! { dg-final { scan-tree-dump-times "free" 10 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/allocatable_function_5.f90 b/gcc/testsuite/gfortran.dg/allocatable_function_5.f90
index 087100c..8e7d49b 100644
--- a/gcc/testsuite/gfortran.dg/allocatable_function_5.f90
+++ b/gcc/testsuite/gfortran.dg/allocatable_function_5.f90
@@ -46,5 +46,3 @@ contains
     bar = carg(1:12)
   end function
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/allocatable_module_1.f90 b/gcc/testsuite/gfortran.dg/allocatable_module_1.f90
index 47f1000..36671fe 100644
--- a/gcc/testsuite/gfortran.dg/allocatable_module_1.f90
+++ b/gcc/testsuite/gfortran.dg/allocatable_module_1.f90
@@ -15,4 +15,3 @@ program fred
 use fred1
 use fred2
 end program fred
-! { dg-final { cleanup-modules "fred1 fred2" } }
diff --git a/gcc/testsuite/gfortran.dg/allocatable_scalar_9.f90 b/gcc/testsuite/gfortran.dg/allocatable_scalar_9.f90
index f4c6599..3488c0d 100644
--- a/gcc/testsuite/gfortran.dg/allocatable_scalar_9.f90
+++ b/gcc/testsuite/gfortran.dg/allocatable_scalar_9.f90
@@ -51,5 +51,3 @@ end
 
 ! { dg-final { scan-tree-dump-times "__builtin_free" 32 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/allocate_char_star_scalar_1.f90 b/gcc/testsuite/gfortran.dg/allocate_char_star_scalar_1.f90
index 7e6d7d1..305136c 100644
--- a/gcc/testsuite/gfortran.dg/allocate_char_star_scalar_1.f90
+++ b/gcc/testsuite/gfortran.dg/allocate_char_star_scalar_1.f90
@@ -29,5 +29,3 @@ program hum
     call foo(q)
 
 end program hum
-
-! { dg-final { cleanup-modules "moo" } }
diff --git a/gcc/testsuite/gfortran.dg/allocate_stat.f90 b/gcc/testsuite/gfortran.dg/allocate_stat.f90
index ceddc92..7f9eaf5 100644
--- a/gcc/testsuite/gfortran.dg/allocate_stat.f90
+++ b/gcc/testsuite/gfortran.dg/allocate_stat.f90
@@ -74,4 +74,3 @@ contains
    if(associated(p)) deallocate(p)
  end subroutine sub
 end module test
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/allocate_with_source_1.f90 b/gcc/testsuite/gfortran.dg/allocate_with_source_1.f90
index d386bb3..0069092 100644
--- a/gcc/testsuite/gfortran.dg/allocate_with_source_1.f90
+++ b/gcc/testsuite/gfortran.dg/allocate_with_source_1.f90
@@ -26,4 +26,3 @@ program note7_35
   if (name .ne. 'xxxxxxxxxx') call abort
   if (len (name) .ne. 10 ) call abort
 end program note7_35
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/altreturn_3.f90 b/gcc/testsuite/gfortran.dg/altreturn_3.f90
index daa0901..28fc6a8 100644
--- a/gcc/testsuite/gfortran.dg/altreturn_3.f90
+++ b/gcc/testsuite/gfortran.dg/altreturn_3.f90
@@ -42,4 +42,3 @@ program test
  20 continue
   if (i /= -1) call abort ()
 end
-! { dg-final { cleanup-modules "arswitch" } }
diff --git a/gcc/testsuite/gfortran.dg/altreturn_7.f90 b/gcc/testsuite/gfortran.dg/altreturn_7.f90
index d1786d0..e667ff4 100644
--- a/gcc/testsuite/gfortran.dg/altreturn_7.f90
+++ b/gcc/testsuite/gfortran.dg/altreturn_7.f90
@@ -30,6 +30,3 @@ END MODULE
   CALL ABORT()
 2 CONTINUE
 END
-
-! { dg-final { cleanup-modules "tt" } }
-
diff --git a/gcc/testsuite/gfortran.dg/ambiguous_reference_1.f90 b/gcc/testsuite/gfortran.dg/ambiguous_reference_1.f90
index 93b155e..552118f 100644
--- a/gcc/testsuite/gfortran.dg/ambiguous_reference_1.f90
+++ b/gcc/testsuite/gfortran.dg/ambiguous_reference_1.f90
@@ -47,4 +47,3 @@ end program test
 function x(z)
    x = z
 end function x
-! { dg-final { cleanup-modules "m1 m2 m3 m4 m5 m6" } }
diff --git a/gcc/testsuite/gfortran.dg/ambiguous_reference_2.f90 b/gcc/testsuite/gfortran.dg/ambiguous_reference_2.f90
index 3ffaa14..bb29d84 100644
--- a/gcc/testsuite/gfortran.dg/ambiguous_reference_2.f90
+++ b/gcc/testsuite/gfortran.dg/ambiguous_reference_2.f90
@@ -28,6 +28,3 @@ contains
   end subroutine myRoutine      ! this is not ambiguous !
 
 end module
-
-! { dg-final { cleanup-modules "a1 a2 b" } }
-
diff --git a/gcc/testsuite/gfortran.dg/ambiguous_specific_1.f90 b/gcc/testsuite/gfortran.dg/ambiguous_specific_1.f90
index b5292b2..1097b9f 100644
--- a/gcc/testsuite/gfortran.dg/ambiguous_specific_1.f90
+++ b/gcc/testsuite/gfortran.dg/ambiguous_specific_1.f90
@@ -35,4 +35,3 @@ PROGRAM P
    CALL FOO(10.)
    call bar (foo)  ! { dg-error "is ambiguous" }
 END PROGRAM P
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/ambiguous_specific_2.f90 b/gcc/testsuite/gfortran.dg/ambiguous_specific_2.f90
index 4597b3c..79385db 100644
--- a/gcc/testsuite/gfortran.dg/ambiguous_specific_2.f90
+++ b/gcc/testsuite/gfortran.dg/ambiguous_specific_2.f90
@@ -39,4 +39,3 @@ END PROGRAM P
 SUBROUTINE bar (arg)
   EXTERNAL arg
 END SUBROUTINE bar
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/argument_checking_17.f90 b/gcc/testsuite/gfortran.dg/argument_checking_17.f90
index df8296b..0921a12 100644
--- a/gcc/testsuite/gfortran.dg/argument_checking_17.f90
+++ b/gcc/testsuite/gfortran.dg/argument_checking_17.f90
@@ -22,5 +22,3 @@ contains
     call sub2(a%mdr(GRH_SIZE+1),a%size-GRH_SIZE)
   end subroutine sub1
 end module teststr
-
-! { dg-final { cleanup-modules "teststr" } }
diff --git a/gcc/testsuite/gfortran.dg/argument_checking_8.f90 b/gcc/testsuite/gfortran.dg/argument_checking_8.f90
index 05c94f6..fd1daa6 100644
--- a/gcc/testsuite/gfortran.dg/argument_checking_8.f90
+++ b/gcc/testsuite/gfortran.dg/argument_checking_8.f90
@@ -26,4 +26,3 @@ program test
     if (astr(i:i) /= achar(0)) call abort
   end do    
 end program test
-! { dg-final { cleanup-modules "cyclic" } }
diff --git a/gcc/testsuite/gfortran.dg/array_constructor_20.f90 b/gcc/testsuite/gfortran.dg/array_constructor_20.f90
index 2908edb..32a05a6 100644
--- a/gcc/testsuite/gfortran.dg/array_constructor_20.f90
+++ b/gcc/testsuite/gfortran.dg/array_constructor_20.f90
@@ -18,5 +18,3 @@ CONTAINS
     if (present (j1)) stop
   end subroutine
 END MODULE s_TESTS
-
-! { dg-final { cleanup-modules "m s_tests" } }
diff --git a/gcc/testsuite/gfortran.dg/array_constructor_21.f90 b/gcc/testsuite/gfortran.dg/array_constructor_21.f90
index e24b146..1b92c4e 100644
--- a/gcc/testsuite/gfortran.dg/array_constructor_21.f90
+++ b/gcc/testsuite/gfortran.dg/array_constructor_21.f90
@@ -33,4 +33,3 @@
           UDS0L = SEQ(RESHAPE ( (/ ((CA_T(J1,J2), J1 = 1, 1), J2 = 1, 2)/),(/2/)))
         END SUBROUTINE
       END
-! { dg-final { cleanup-modules "o_type_defs tests" } }
diff --git a/gcc/testsuite/gfortran.dg/array_constructor_22.f90 b/gcc/testsuite/gfortran.dg/array_constructor_22.f90
index 4744dcd..0dcdaea 100644
--- a/gcc/testsuite/gfortran.dg/array_constructor_22.f90
+++ b/gcc/testsuite/gfortran.dg/array_constructor_22.f90
@@ -25,4 +25,3 @@ program len_test
 
    write(*,*) my_string(x) 
 end program len_test
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/array_constructor_26.f03 b/gcc/testsuite/gfortran.dg/array_constructor_26.f03
index 18c08c4..ac5dc90 100644
--- a/gcc/testsuite/gfortran.dg/array_constructor_26.f03
+++ b/gcc/testsuite/gfortran.dg/array_constructor_26.f03
@@ -15,5 +15,3 @@ MODULE WinData
     ! { dg-error "specification expression" "" { target *-*-* } 13 }
   END TYPE TWindowData
 END MODULE WinData
-
-! { dg-final { cleanup-modules "windata" } }
diff --git a/gcc/testsuite/gfortran.dg/array_function_3.f90 b/gcc/testsuite/gfortran.dg/array_function_3.f90
index b1a9cac..3d0ee91 100644
--- a/gcc/testsuite/gfortran.dg/array_function_3.f90
+++ b/gcc/testsuite/gfortran.dg/array_function_3.f90
@@ -44,5 +44,3 @@ ubound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),3)))
 
 return 
 end subroutine write_out_particles
-
-! { dg-final { cleanup-modules "communication_tools" } }
diff --git a/gcc/testsuite/gfortran.dg/array_function_4.f90 b/gcc/testsuite/gfortran.dg/array_function_4.f90
index 20cb2d5..f98b545 100644
--- a/gcc/testsuite/gfortran.dg/array_function_4.f90
+++ b/gcc/testsuite/gfortran.dg/array_function_4.f90
@@ -25,5 +25,3 @@ CONTAINS
     lenf = x(1)
   end function lenf
 END MODULE B1
-
-! { dg-final { cleanup-modules "b1" } }
diff --git a/gcc/testsuite/gfortran.dg/array_memset_2.f90 b/gcc/testsuite/gfortran.dg/array_memset_2.f90
index 7805f7b..28c15ae5 100644
--- a/gcc/testsuite/gfortran.dg/array_memset_2.f90
+++ b/gcc/testsuite/gfortran.dg/array_memset_2.f90
@@ -35,4 +35,3 @@ end program
 
 ! { dg-final { scan-tree-dump-times "= {}" 2 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/array_temporaries_3.f90 b/gcc/testsuite/gfortran.dg/array_temporaries_3.f90
index 929a4c0..909c7ec 100644
--- a/gcc/testsuite/gfortran.dg/array_temporaries_3.f90
+++ b/gcc/testsuite/gfortran.dg/array_temporaries_3.f90
@@ -27,5 +27,3 @@ end module bar
   call xmain
   if (c(1) .ne. "ab") call abort
 end
-! { dg-final { cleanup-modules "bar" } }
-
diff --git a/gcc/testsuite/gfortran.dg/assignment_2.f90 b/gcc/testsuite/gfortran.dg/assignment_2.f90
index 18f303b..a310827 100644
--- a/gcc/testsuite/gfortran.dg/assignment_2.f90
+++ b/gcc/testsuite/gfortran.dg/assignment_2.f90
@@ -46,5 +46,3 @@ contains
                  REAL,INTENT(IN) :: b(:,:)
              END SUBROUTINE
 end module m3
-
-! { dg-final { cleanup-modules "m1 m2 m3" } }
diff --git a/gcc/testsuite/gfortran.dg/assignment_3.f90 b/gcc/testsuite/gfortran.dg/assignment_3.f90
index cdaaa8c..d843c32 100644
--- a/gcc/testsuite/gfortran.dg/assignment_3.f90
+++ b/gcc/testsuite/gfortran.dg/assignment_3.f90
@@ -59,5 +59,3 @@ TYPE (distributed_vector) :: SCALP_DV
 ZTEMP = PVAZG * SCALP_DV
 END SUBROUTINE CAININAD_SCALE_DISTVEC
 END MODULE YOMCAIN
-
-! { dg-final { cleanup-modules "yomcain" } }
diff --git a/gcc/testsuite/gfortran.dg/associate_6.f03 b/gcc/testsuite/gfortran.dg/associate_6.f03
index ba0e5c0..356d388 100644
--- a/gcc/testsuite/gfortran.dg/associate_6.f03
+++ b/gcc/testsuite/gfortran.dg/associate_6.f03
@@ -34,6 +34,5 @@ PROGRAM main
     IF (arr(1) /= 1 .OR. arr(4) /= 4) CALL abort ()
   END ASSOCIATE
 END PROGRAM main
-! { dg-final { cleanup-modules "m" } }
 ! { dg-final { scan-tree-dump-times "func" 2 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
diff --git a/gcc/testsuite/gfortran.dg/associate_9.f03 b/gcc/testsuite/gfortran.dg/associate_9.f03
index 13a10fc..3a262b6 100644
--- a/gcc/testsuite/gfortran.dg/associate_9.f03
+++ b/gcc/testsuite/gfortran.dg/associate_9.f03
@@ -48,4 +48,3 @@ PROGRAM main
 END PROGRAM main
 
 ! { dg-excess-errors "Syntex error in IF" }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/associated_target_3.f90 b/gcc/testsuite/gfortran.dg/associated_target_3.f90
index e6a1d0f..423499a 100644
--- a/gcc/testsuite/gfortran.dg/associated_target_3.f90
+++ b/gcc/testsuite/gfortran.dg/associated_target_3.f90
@@ -31,5 +31,3 @@ contains
     if (.not. associated (a, b)) call abort()
   end subroutine cmpPtr
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/assumed_charlen_function_1.f90 b/gcc/testsuite/gfortran.dg/assumed_charlen_function_1.f90
index 13a79a6..a7f7939 100644
--- a/gcc/testsuite/gfortran.dg/assumed_charlen_function_1.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_charlen_function_1.f90
@@ -77,4 +77,3 @@ end function not_OK
 

 END

 

-! { dg-final { cleanup-modules "m1" } }

diff --git a/gcc/testsuite/gfortran.dg/assumed_charlen_function_6.f90 b/gcc/testsuite/gfortran.dg/assumed_charlen_function_6.f90
index 49d1a2e..ed4f9dd 100644
--- a/gcc/testsuite/gfortran.dg/assumed_charlen_function_6.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_charlen_function_6.f90
@@ -33,5 +33,3 @@ contains
          integer, intent(in) :: x
       end function assumed_len
 end program main
-
-! { dg-final { cleanup-modules "funcs mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/assumed_dummy_1.f90 b/gcc/testsuite/gfortran.dg/assumed_dummy_1.f90
index f8d7fea..7935898 100644
--- a/gcc/testsuite/gfortran.dg/assumed_dummy_1.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_dummy_1.f90
@@ -42,5 +42,3 @@ contains
     x (2) = 21.0
   END SUBROUTINE roo
 end program test
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/assumed_shape_ranks_1.f90 b/gcc/testsuite/gfortran.dg/assumed_shape_ranks_1.f90
index e24414a..a1c549b 100644
--- a/gcc/testsuite/gfortran.dg/assumed_shape_ranks_1.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_shape_ranks_1.f90
@@ -22,5 +22,3 @@ CONTAINS
     write(6,*) I
   END SUBROUTINE TST
 END
-
-! { dg-final { cleanup-modules "addon" } }
diff --git a/gcc/testsuite/gfortran.dg/assumed_shape_ranks_2.f90 b/gcc/testsuite/gfortran.dg/assumed_shape_ranks_2.f90
index da59213..641d3d9 100644
--- a/gcc/testsuite/gfortran.dg/assumed_shape_ranks_2.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_shape_ranks_2.f90
@@ -43,5 +43,3 @@ end module mod1
   call foo (bar, i)
   if (i .ne. 2) call abort ()
 end
-
-! { dg-final { cleanup-modules "mod1" } }
diff --git a/gcc/testsuite/gfortran.dg/assumed_size_dt_dummy.f90 b/gcc/testsuite/gfortran.dg/assumed_size_dt_dummy.f90
index 7e84e9e..06f0f75 100644
--- a/gcc/testsuite/gfortran.dg/assumed_size_dt_dummy.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_size_dt_dummy.f90
@@ -14,5 +14,3 @@ CONTAINS
 END MODULE TEST
 
 end
-
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/assumed_type_1.f90 b/gcc/testsuite/gfortran.dg/assumed_type_1.f90
index 7ac98f8..637b393 100644
--- a/gcc/testsuite/gfortran.dg/assumed_type_1.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_type_1.f90
@@ -52,5 +52,3 @@ contains
     call MPI_Send2(x, 1, 1,1,1,j,i)
   end
 end
-
-! { dg-final { cleanup-modules "mpi_interface" } }
diff --git a/gcc/testsuite/gfortran.dg/assumed_type_2.f90 b/gcc/testsuite/gfortran.dg/assumed_type_2.f90
index b88717c..ab1049d 100644
--- a/gcc/testsuite/gfortran.dg/assumed_type_2.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_type_2.f90
@@ -139,8 +139,6 @@ deallocate (array_class_t1_ptr, array_t3_ptr)
 
 end
 
-! { dg-final { cleanup-modules "mod" } }
-
 ! { dg-final { scan-tree-dump-times "sub_scalar .0B,"  2 "original" } }
 ! { dg-final { scan-tree-dump-times "sub_scalar .scalar_real_alloc," 2 "original" } }
 ! { dg-final { scan-tree-dump-times "sub_scalar .scalar_char_ptr," 2 "original" } }
diff --git a/gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90 b/gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90
index 6ed6f45..6a660c2 100644
--- a/gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90
+++ b/gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90
@@ -53,5 +53,3 @@ contains
   end subroutine a
 
 end program oh_no_not_pr15908_again
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/auto_char_len_3.f90 b/gcc/testsuite/gfortran.dg/auto_char_len_3.f90
index da8cf5e..b941511 100644
--- a/gcc/testsuite/gfortran.dg/auto_char_len_3.f90
+++ b/gcc/testsuite/gfortran.dg/auto_char_len_3.f90
@@ -23,5 +23,3 @@ program TestStringTools
   if (txt .ne. "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz") &
         call abort ()
 end program TestStringTools
-
-! { dg-final { cleanup-modules "chtest" } }
diff --git a/gcc/testsuite/gfortran.dg/auto_dealloc_1.f90 b/gcc/testsuite/gfortran.dg/auto_dealloc_1.f90
index 95a7160..7e5fbd1 100644
--- a/gcc/testsuite/gfortran.dg/auto_dealloc_1.f90
+++ b/gcc/testsuite/gfortran.dg/auto_dealloc_1.f90
@@ -54,6 +54,4 @@ end module
 
 
 ! { dg-final { scan-tree-dump-times "__builtin_free" 4 "original" } }
-
-! { dg-final { cleanup-modules "automatic_deallocation" } }
 ! { dg-final { cleanup-tree-dump "original" } }
diff --git a/gcc/testsuite/gfortran.dg/automatic_default_init_1.f90 b/gcc/testsuite/gfortran.dg/automatic_default_init_1.f90
index 525632b..178706a 100644
--- a/gcc/testsuite/gfortran.dg/automatic_default_init_1.f90
+++ b/gcc/testsuite/gfortran.dg/automatic_default_init_1.f90
@@ -18,4 +18,3 @@ END MODULE M1
   USE M1 
   CALL S1(2) 
 END 
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/automatic_module_variable.f90 b/gcc/testsuite/gfortran.dg/automatic_module_variable.f90
index c88b355..201dcf4 100644
--- a/gcc/testsuite/gfortran.dg/automatic_module_variable.f90
+++ b/gcc/testsuite/gfortran.dg/automatic_module_variable.f90
@@ -14,5 +14,3 @@ contains
     init = x
   end function init
 end module sd
-
-! { dg-final { cleanup-modules "sd" } }
diff --git a/gcc/testsuite/gfortran.dg/bad_automatic_objects_1.f90 b/gcc/testsuite/gfortran.dg/bad_automatic_objects_1.f90
index c4c1f2c..2734418 100644
--- a/gcc/testsuite/gfortran.dg/bad_automatic_objects_1.f90
+++ b/gcc/testsuite/gfortran.dg/bad_automatic_objects_1.f90
@@ -18,5 +18,3 @@ program foobar
   integer, dimension (i) :: k ! { dg-error "must have constant shape" }
   character (len = i) :: c2   ! { dg-error "must have constant character length" }
 end program foobar
-
-! { dg-final { cleanup-modules "foo bar" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_coms.f90 b/gcc/testsuite/gfortran.dg/bind_c_coms.f90
index e88d56d..85ead9f 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_coms.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_coms.f90
@@ -47,5 +47,3 @@ module bind_c_coms_2
   integer(c_int) :: m, n
   bind(c, name="") /com3/
 end module bind_c_coms_2
-
-! { dg-final { cleanup-modules "bind_c_coms bind_c_coms_2" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_dts.f90 b/gcc/testsuite/gfortran.dg/bind_c_dts.f90
index f0a31e5..f78630b 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_dts.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_dts.f90
@@ -39,5 +39,3 @@ contains
     myDerived%s = myDerived%s + 1.0;
   end subroutine types_test
 end module bind_c_dts
-
-! { dg-final { cleanup-modules "bind_c_dts" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 b/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03
index 4b423e5..4e5e61b 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03
@@ -59,5 +59,3 @@ contains
     end if
   end subroutine sub0
 end module bind_c_dts_2
-
-! { dg-final { cleanup-modules "bind_c_dts_2" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_dts_3.f03 b/gcc/testsuite/gfortran.dg/bind_c_dts_3.f03
index fa54fb7..e28769d 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_dts_3.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_dts_3.f03
@@ -35,5 +35,3 @@ contains
     end if
   end subroutine sub0
 end module bind_c_dts_3
-
-! { dg-final { cleanup-modules "bind_c_dts_3" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_dts_4.f03 b/gcc/testsuite/gfortran.dg/bind_c_dts_4.f03
index c6fc402..1e42d5b 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_dts_4.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_dts_4.f03
@@ -7,5 +7,3 @@ use iso_c_binding, only: c_int
     end type
     type(foo), bind(c) :: cp
 end module test
-
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_dts_5.f90 b/gcc/testsuite/gfortran.dg/bind_c_dts_5.f90
index 497c050..5fe5e2b 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_dts_5.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_dts_5.f90
@@ -50,5 +50,3 @@ PROGRAM main
   write (*,*) liter_cb(link_info)
 
 END PROGRAM main
-
-! { dg-final { cleanup-modules "liter_cb_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03 b/gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03
index bac7d4d..5df783f 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03
@@ -9,5 +9,3 @@ contains
     i = 0
   end subroutine sub0
 end module bind_c_implicit_vars
-
-! { dg-final { cleanup-modules "bind_c_implicit_vars" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_module.f90 b/gcc/testsuite/gfortran.dg/bind_c_module.f90
index a17f5d0..6cb7387 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_module.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_module.f90
@@ -19,4 +19,3 @@ module d
   implicit none
   bind(c) :: a  ! { dg-error "applied to" }
 end module d
-! { dg-final { cleanup-modules "a" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_procs.f03 b/gcc/testsuite/gfortran.dg/bind_c_procs.f03
index 718042b..eaf0672 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_procs.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_procs.f03
@@ -35,5 +35,3 @@ contains
   end function my_f03_func
 
 end module bind_c_procs
-
-! { dg-final { cleanup-modules "bind_c_procs" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_10.f03 b/gcc/testsuite/gfortran.dg/bind_c_usage_10.f03
index 4f2268a..c6f2b79 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_usage_10.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_usage_10.f03
@@ -71,5 +71,3 @@ contains
     func4ent = -88.0
   end function func4
 end module mod
-
-! { dg-final { cleanup-modules "mod" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_15.f90 b/gcc/testsuite/gfortran.dg/bind_c_usage_15.f90
index 55caba4..c5201a6 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_usage_15.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_usage_15.f90
@@ -27,5 +27,3 @@ program main
   call gen(x)
   if(x /= 17) call abort()
 end program main
-
-! { dg-final { cleanup-modules "mod" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_16.f03 b/gcc/testsuite/gfortran.dg/bind_c_usage_16.f03
index 68b043c..990918f 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_usage_16.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_usage_16.f03
@@ -55,5 +55,3 @@ subroutine test() bind(c)
     if(iachar(d(i)(2:2)) /=32 .or. iachar(d(i)(3:3)) /= 32) call abort()
   end do
 end subroutine
-
-! { dg-final { cleanup-modules "mod" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_17.f90 b/gcc/testsuite/gfortran.dg/bind_c_usage_17.f90
index ba342755..ad7ffd0 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_usage_17.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_usage_17.f90
@@ -34,5 +34,3 @@ PROGRAM test
   WRITE(str4,'(i0)') ICHAR(cdir())
   if(str4 /= '47' .or. ichar(str4(3:3)) /= 32) call abort()
 END PROGRAM
-
-! { dg-final { cleanup-modules "mod" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_21.f90 b/gcc/testsuite/gfortran.dg/bind_c_usage_21.f90
index 10a86db..3ed8dc9 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_usage_21.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_usage_21.f90
@@ -21,5 +21,3 @@ contains
     liter_cb = 0
   END FUNCTION liter_cb
 end module m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_24.f90 b/gcc/testsuite/gfortran.dg/bind_c_usage_24.f90
index a6ebd58..a46772b 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_usage_24.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_usage_24.f90
@@ -39,5 +39,3 @@ program test
   call c_proc (.true._c_bool, val)
   if (val /= 7) call abort ()
 end program test
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_25.f90 b/gcc/testsuite/gfortran.dg/bind_c_usage_25.f90
index 087a9e0..ae3cf07 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_usage_25.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_usage_25.f90
@@ -56,8 +56,3 @@ module c_kind_tests_2
   real(myI), bind(c) :: myCFloat2 ! { dg-warning "is for type INTEGER" }
   real(4), bind(c) :: myFloat
 end module c_kind_tests_2
-
-! { dg-final { cleanup-modules "c_kind_tests_2" } }
-! { dg-final { cleanup-modules "bind_c_implicit_vars" } }
-! { dg-final { cleanup-modules "test" } }
-! { dg-final { cleanup-modules "iso_c_utilities" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_3.f03 b/gcc/testsuite/gfortran.dg/bind_c_usage_3.f03
index 8f07033..47f9d9a 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_usage_3.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_usage_3.f03
@@ -17,4 +17,3 @@ module test
   type(foo), bind(c) :: cp ! { dg-error "is not C interoperable" }
   real(c_double), pointer,bind(c) :: p ! { dg-error "cannot have both the POINTER and BIND.C." }
 end module test
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_7.f03 b/gcc/testsuite/gfortran.dg/bind_c_usage_7.f03
index 845aab9..25adb2c 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_usage_7.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_usage_7.f03
@@ -12,5 +12,3 @@ contains
     my_string_func = 'my_string' // C_NULL_CHAR
   end function my_string_func
 end module x
-
-! { dg-final { cleanup-modules "x" } }
diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_8.f03 b/gcc/testsuite/gfortran.dg/bind_c_usage_8.f03
index e31af86..15843b5 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_usage_8.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_usage_8.f03
@@ -22,5 +22,3 @@ CONTAINS
       CALL C_F_POINTER(FPTR=FPTR, CPTR=CPTR, SHAPE=[strlen(CPTR)])
    END FUNCTION
 END MODULE ISO_C_UTILITIES
-! { dg-final { cleanup-modules "iso_c_utilities" } }
-
diff --git a/gcc/testsuite/gfortran.dg/bind_c_vars.f90 b/gcc/testsuite/gfortran.dg/bind_c_vars.f90
index e57edf0..4f4a0cf 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_vars.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_vars.f90
@@ -36,5 +36,3 @@ contains
   end subroutine changeF90Globals
 
 end module bind_c_vars
-
-! { dg-final { cleanup-modules "bind_c_vars" } }
diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests.f03 b/gcc/testsuite/gfortran.dg/binding_label_tests.f03
index 3498650..a13e967 100644
--- a/gcc/testsuite/gfortran.dg/binding_label_tests.f03
+++ b/gcc/testsuite/gfortran.dg/binding_label_tests.f03
@@ -73,5 +73,3 @@ module binding_label_tests
   subroutine sub4() BIND(c, name = "        ") 
   end subroutine sub4 
 end module binding_label_tests
-
-! { dg-final { cleanup-modules "binding_label_tests" } }
diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests_10_main.f03 b/gcc/testsuite/gfortran.dg/binding_label_tests_10_main.f03
index 48e8e5d..8424922 100644
--- a/gcc/testsuite/gfortran.dg/binding_label_tests_10_main.f03
+++ b/gcc/testsuite/gfortran.dg/binding_label_tests_10_main.f03
@@ -11,4 +11,3 @@ program main
   use binding_label_tests_10 ! { dg-error "collides" }
   use binding_label_tests_10_main
 end program main
-! { dg-final { cleanup-modules "binding_label_tests_10" } }
diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests_12.f03 b/gcc/testsuite/gfortran.dg/binding_label_tests_12.f03
index 0a00066..ce9cd9f 100644
--- a/gcc/testsuite/gfortran.dg/binding_label_tests_12.f03
+++ b/gcc/testsuite/gfortran.dg/binding_label_tests_12.f03
@@ -20,5 +20,3 @@ end module two
 use one, only: foo_one => foo
 use two, only: foo_two => foo
 end
-
-! { dg-final { cleanup-modules "one two" } }
diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests_16.f03 b/gcc/testsuite/gfortran.dg/binding_label_tests_16.f03
index 6b8f1f8..7029b2e 100644
--- a/gcc/testsuite/gfortran.dg/binding_label_tests_16.f03
+++ b/gcc/testsuite/gfortran.dg/binding_label_tests_16.f03
@@ -19,4 +19,3 @@ implicit none
   print *, a, b
   if (a /= 5 .or. b /= -5) call abort()
 end program prog
-! { dg-final { cleanup-modules "m n" } }
diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests_2.f03 b/gcc/testsuite/gfortran.dg/binding_label_tests_2.f03
index bf9da11..46bbbbd 100644
--- a/gcc/testsuite/gfortran.dg/binding_label_tests_2.f03
+++ b/gcc/testsuite/gfortran.dg/binding_label_tests_2.f03
@@ -31,5 +31,3 @@ contains
   subroutine sub8() bind(c, name) ! { dg-error "Syntax error" }
   end subroutine sub8 ! { dg-error "Expecting END MODULE" }
 end module binding_label_tests_2 
-
-! { dg-final { cleanup-modules "binding_label_tests_2" } }
diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests_7.f03 b/gcc/testsuite/gfortran.dg/binding_label_tests_7.f03
index 136fb5e..1234bb5 100644
--- a/gcc/testsuite/gfortran.dg/binding_label_tests_7.f03
+++ b/gcc/testsuite/gfortran.dg/binding_label_tests_7.f03
@@ -13,5 +13,3 @@ end interface
 
 call my_c_print()
 end program main
-
-! { dg-final { cleanup-modules "a" } }
diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03 b/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
index cdf1ef8..bb61cbf 100644
--- a/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
+++ b/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
@@ -19,5 +19,3 @@ contains
   subroutine my_public_sub() bind(c, name="my_sub")
   end subroutine my_public_sub
 end module x
-
-! { dg-final { cleanup-modules "x" } }
diff --git a/gcc/testsuite/gfortran.dg/block_11.f90 b/gcc/testsuite/gfortran.dg/block_11.f90
index 83c6519..2c2ce90 100644
--- a/gcc/testsuite/gfortran.dg/block_11.f90
+++ b/gcc/testsuite/gfortran.dg/block_11.f90
@@ -64,5 +64,3 @@ contains
 end module m3
 
 end
-
-! { dg-final { cleanup-modules "testmod testmod2 m3" } }
diff --git a/gcc/testsuite/gfortran.dg/bound_simplification_2.f90 b/gcc/testsuite/gfortran.dg/bound_simplification_2.f90
index 0547777..a3f1e43 100644
--- a/gcc/testsuite/gfortran.dg/bound_simplification_2.f90
+++ b/gcc/testsuite/gfortran.dg/bound_simplification_2.f90
@@ -6,4 +6,3 @@ module foo
   INTEGER, PARAMETER, DIMENSION(2) ::  IP_ARRAY1_32_S = &
   & (/  LBOUND(IP_ARRAY2_4_S(5:10,2:3))/)
 END module foo
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_9.f90 b/gcc/testsuite/gfortran.dg/bounds_check_9.f90
index 3b487ef..c0abd28 100644
--- a/gcc/testsuite/gfortran.dg/bounds_check_9.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_9.f90
@@ -34,4 +34,3 @@ program main
   call sub()
   call sub((/4,5/))
 end program main
-! { dg-final { cleanup-modules "sub_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_fail_2.f90 b/gcc/testsuite/gfortran.dg/bounds_check_fail_2.f90
index d79272b..bb2c247 100644
--- a/gcc/testsuite/gfortran.dg/bounds_check_fail_2.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_fail_2.f90
@@ -37,4 +37,3 @@ program main
   call sub((/4/))
 end program main
 ! { dg-output "Fortran runtime error: Array bound mismatch" }
-! { dg-final { cleanup-modules "sub_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_strlen_2.f90 b/gcc/testsuite/gfortran.dg/bounds_check_strlen_2.f90
index 7ecce2a..241db66 100644
--- a/gcc/testsuite/gfortran.dg/bounds_check_strlen_2.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_strlen_2.f90
@@ -30,4 +30,3 @@ PROGRAM main
 END PROGRAM main
 
 ! { dg-output "shorter than the declared one for dummy argument 'str' \\(3/5\\)" }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_strlen_3.f90 b/gcc/testsuite/gfortran.dg/bounds_check_strlen_3.f90
index 69be088..a6be86a 100644
--- a/gcc/testsuite/gfortran.dg/bounds_check_strlen_3.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_strlen_3.f90
@@ -30,4 +30,3 @@ PROGRAM main
 END PROGRAM main
 
 ! { dg-output "does not match the declared one for dummy argument 'str' \\(7/5\\)" }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_strlen_4.f90 b/gcc/testsuite/gfortran.dg/bounds_check_strlen_4.f90
index db8ce3c..284e2ea 100644
--- a/gcc/testsuite/gfortran.dg/bounds_check_strlen_4.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_strlen_4.f90
@@ -30,4 +30,3 @@ PROGRAM main
 END PROGRAM main
 
 ! { dg-output "does not match the declared one for dummy argument 'str' \\(7/5\\)" }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_strlen_5.f90 b/gcc/testsuite/gfortran.dg/bounds_check_strlen_5.f90
index 36fda72..4820248 100644
--- a/gcc/testsuite/gfortran.dg/bounds_check_strlen_5.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_strlen_5.f90
@@ -30,4 +30,3 @@ PROGRAM main
 END PROGRAM main
 
 ! { dg-output "does not match the declared one for dummy argument 'str' \\(7/5\\)" }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_strlen_6.f90 b/gcc/testsuite/gfortran.dg/bounds_check_strlen_6.f90
index 550cca8..c46bfe2 100644
--- a/gcc/testsuite/gfortran.dg/bounds_check_strlen_6.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_strlen_6.f90
@@ -24,5 +24,3 @@ PROGRAM main
   CALL test ('abcde')  ! String length matches.
   CALL test ('abcdef') ! String too long, is ok.
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_strlen_7.f90 b/gcc/testsuite/gfortran.dg/bounds_check_strlen_7.f90
index 9f08ba1..99a0d86 100644
--- a/gcc/testsuite/gfortran.dg/bounds_check_strlen_7.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_strlen_7.f90
@@ -22,4 +22,3 @@ PROGRAM main
 END PROGRAM main
 
 ! { dg-output "shorter than the declared one for dummy argument 'opt' \\(0/5\\)" }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_strlen_8.f90 b/gcc/testsuite/gfortran.dg/bounds_check_strlen_8.f90
index c54f141..7319988 100644
--- a/gcc/testsuite/gfortran.dg/bounds_check_strlen_8.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_strlen_8.f90
@@ -36,5 +36,3 @@ END MODULE M3
 USE M3
 CALL S1
 END
-
-! { dg-final { cleanup-modules "m1 m2 m3" } }
diff --git a/gcc/testsuite/gfortran.dg/c_assoc.f90 b/gcc/testsuite/gfortran.dg/c_assoc.f90
index 7b34663..9b2af24 100644
--- a/gcc/testsuite/gfortran.dg/c_assoc.f90
+++ b/gcc/testsuite/gfortran.dg/c_assoc.f90
@@ -66,5 +66,3 @@ contains
   end subroutine verify_assoc
   
 end module c_assoc
-
-! { dg-final { cleanup-modules "c_assoc" } }
diff --git a/gcc/testsuite/gfortran.dg/c_by_val_5.f90 b/gcc/testsuite/gfortran.dg/c_by_val_5.f90
index 90ef299..069d817 100644
--- a/gcc/testsuite/gfortran.dg/c_by_val_5.f90
+++ b/gcc/testsuite/gfortran.dg/c_by_val_5.f90
@@ -65,5 +65,3 @@ program main
   call Grid2BMP(10)
 !  call test()
 end program main
-
-! { dg-final { cleanup-modules "x" } }
diff --git a/gcc/testsuite/gfortran.dg/c_char_tests.f03 b/gcc/testsuite/gfortran.dg/c_char_tests.f03
index 72b136e..cbdfd9f 100644
--- a/gcc/testsuite/gfortran.dg/c_char_tests.f03
+++ b/gcc/testsuite/gfortran.dg/c_char_tests.f03
@@ -25,5 +25,3 @@ contains
     if(my_char_ref /= c_char_'y') call abort()
   end subroutine sub1
 end module c_char_tests
-
-! { dg-final { cleanup-modules "c_char_tests" } }
diff --git a/gcc/testsuite/gfortran.dg/c_f_pointer_complex.f03 b/gcc/testsuite/gfortran.dg/c_f_pointer_complex.f03
index fd97031..b68eadb 100644
--- a/gcc/testsuite/gfortran.dg/c_f_pointer_complex.f03
+++ b/gcc/testsuite/gfortran.dg/c_f_pointer_complex.f03
@@ -57,5 +57,3 @@ contains
     end do
   end subroutine test_complex_arrays
 end module c_f_pointer_complex
-! { dg-final { cleanup-modules "c_f_pointer_complex" } }
-
diff --git a/gcc/testsuite/gfortran.dg/c_f_pointer_logical.f03 b/gcc/testsuite/gfortran.dg/c_f_pointer_logical.f03
index 977c4cb..5558697 100644
--- a/gcc/testsuite/gfortran.dg/c_f_pointer_logical.f03
+++ b/gcc/testsuite/gfortran.dg/c_f_pointer_logical.f03
@@ -31,4 +31,3 @@ contains
     end do
   end subroutine test_array
 end module c_f_pointer_logical
-! { dg-final { cleanup-modules "c_f_pointer_logical" } }
diff --git a/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_2.f03 b/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_2.f03
index 6629089..426279b 100644
--- a/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_2.f03
+++ b/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_2.f03
@@ -110,5 +110,3 @@ contains
     end do
   end subroutine test_mixed
 end module c_f_pointer_shape_tests_2
-! { dg-final { cleanup-modules "c_f_pointer_shape_tests_2" } } 
-
diff --git a/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_4.f03 b/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_4.f03
index 89b8666..b3caff0 100644
--- a/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_4.f03
+++ b/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_4.f03
@@ -111,5 +111,3 @@ contains
     end do
   end subroutine test_mixed
 end module c_f_pointer_shape_tests_4
-! { dg-final { cleanup-modules "c_f_pointer_shape_tests_4" } } 
-
diff --git a/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90 b/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90
index d35f9d1..1e4dbc0 100644
--- a/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90
+++ b/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90
@@ -66,5 +66,3 @@ module c_f_pointer_tests
     endif
   end subroutine testDerivedPtrs
 end module c_f_pointer_tests
-
-! { dg-final { cleanup-modules "c_f_pointer_tests" } }
diff --git a/gcc/testsuite/gfortran.dg/c_funloc_tests.f03 b/gcc/testsuite/gfortran.dg/c_funloc_tests.f03
index 8ba07b9..823c5e3 100644
--- a/gcc/testsuite/gfortran.dg/c_funloc_tests.f03
+++ b/gcc/testsuite/gfortran.dg/c_funloc_tests.f03
@@ -17,5 +17,3 @@ program driver
   
   call sub0()
 end program driver
-
-! { dg-final { cleanup-modules "c_funloc_tests" } }
diff --git a/gcc/testsuite/gfortran.dg/c_funloc_tests_3.f03 b/gcc/testsuite/gfortran.dg/c_funloc_tests_3.f03
index 2d23efb..b08d351 100644
--- a/gcc/testsuite/gfortran.dg/c_funloc_tests_3.f03
+++ b/gcc/testsuite/gfortran.dg/c_funloc_tests_3.f03
@@ -33,4 +33,3 @@ program main
   p = c_funloc(ffunc)
   call callFunc(p, 21,-17*21)
 end program main
-! { dg-final { cleanup-modules "c_funloc_tests_3" } }
diff --git a/gcc/testsuite/gfortran.dg/c_funloc_tests_4.f03 b/gcc/testsuite/gfortran.dg/c_funloc_tests_4.f03
index 0733c5e..16a5066 100644
--- a/gcc/testsuite/gfortran.dg/c_funloc_tests_4.f03
+++ b/gcc/testsuite/gfortran.dg/c_funloc_tests_4.f03
@@ -36,5 +36,3 @@ contains
     func0 = desired_retval
   end function func0
 end module c_funloc_tests_4
-! { dg-final { cleanup-modules "c_funloc_tests_4" } }
-
diff --git a/gcc/testsuite/gfortran.dg/c_kind_params.f90 b/gcc/testsuite/gfortran.dg/c_kind_params.f90
index 4176157..c595a3b 100644
--- a/gcc/testsuite/gfortran.dg/c_kind_params.f90
+++ b/gcc/testsuite/gfortran.dg/c_kind_params.f90
@@ -74,4 +74,3 @@ contains
   end subroutine param_test
     
 end module c_kind_params
-! { dg-final { cleanup-modules "c_kind_params" } }
diff --git a/gcc/testsuite/gfortran.dg/c_kind_tests_2.f03 b/gcc/testsuite/gfortran.dg/c_kind_tests_2.f03
index 5bc99f5..592953c 100644
--- a/gcc/testsuite/gfortran.dg/c_kind_tests_2.f03
+++ b/gcc/testsuite/gfortran.dg/c_kind_tests_2.f03
@@ -13,4 +13,3 @@ module c_kind_tests_2
   real(myI), bind(c) :: myCFloat2 ! { dg-warning "is for type INTEGER" }
   real(4), bind(c) :: myFloat     ! { dg-warning "may not be a C interoperable" }
 end module c_kind_tests_2
-! { dg-final { cleanup-modules "c_kind_tests_2" } }
diff --git a/gcc/testsuite/gfortran.dg/c_loc_test.f90 b/gcc/testsuite/gfortran.dg/c_loc_test.f90
index 673e6f7..9b120dc 100644
--- a/gcc/testsuite/gfortran.dg/c_loc_test.f90
+++ b/gcc/testsuite/gfortran.dg/c_loc_test.f90
@@ -21,4 +21,3 @@ contains
     call test_address(my_c_ptr, 100)
   end subroutine test0
 end module c_loc_test
-! { dg-final { cleanup-modules "c_loc_test" } }
diff --git a/gcc/testsuite/gfortran.dg/c_loc_tests_12.f03 b/gcc/testsuite/gfortran.dg/c_loc_tests_12.f03
index 252c1c5..cfc7be5 100644
--- a/gcc/testsuite/gfortran.dg/c_loc_tests_12.f03
+++ b/gcc/testsuite/gfortran.dg/c_loc_tests_12.f03
@@ -29,4 +29,3 @@ program test2
   call sub1(c_loc(argv))
 end program test2
 !
-! { dg-final { cleanup-modules "test1" } }
diff --git a/gcc/testsuite/gfortran.dg/c_loc_tests_2.f03 b/gcc/testsuite/gfortran.dg/c_loc_tests_2.f03
index 4bdf395..b8e2436 100644
--- a/gcc/testsuite/gfortran.dg/c_loc_tests_2.f03
+++ b/gcc/testsuite/gfortran.dg/c_loc_tests_2.f03
@@ -85,4 +85,3 @@ program driver
   call test1()
   call test2()
 end program driver
-! { dg-final { cleanup-modules "c_loc_tests_2" } }
diff --git a/gcc/testsuite/gfortran.dg/c_loc_tests_5.f03 b/gcc/testsuite/gfortran.dg/c_loc_tests_5.f03
index a389437..48597cb 100644
--- a/gcc/testsuite/gfortran.dg/c_loc_tests_5.f03
+++ b/gcc/testsuite/gfortran.dg/c_loc_tests_5.f03
@@ -16,4 +16,3 @@ contains
 
   end subroutine sub0
 end module c_loc_tests_5
-! { dg-final { cleanup-modules "c_loc_tests_5" } }
diff --git a/gcc/testsuite/gfortran.dg/c_loc_tests_6.f03 b/gcc/testsuite/gfortran.dg/c_loc_tests_6.f03
index c82a2ad..3d830e7 100644
--- a/gcc/testsuite/gfortran.dg/c_loc_tests_6.f03
+++ b/gcc/testsuite/gfortran.dg/c_loc_tests_6.f03
@@ -10,4 +10,3 @@ SUBROUTINE glutInit_f03()
   argv(1)=C_LOC(empty_string)
 END SUBROUTINE
 end module x
-! { dg-final { cleanup-modules "x" } }  
diff --git a/gcc/testsuite/gfortran.dg/c_loc_tests_7.f03 b/gcc/testsuite/gfortran.dg/c_loc_tests_7.f03
index 78f5276..cc0ebc3 100644
--- a/gcc/testsuite/gfortran.dg/c_loc_tests_7.f03
+++ b/gcc/testsuite/gfortran.dg/c_loc_tests_7.f03
@@ -8,4 +8,3 @@ SUBROUTINE glutInit_f03()
   argv(1)=C_LOC(empty_string)
 END SUBROUTINE
 end module c_loc_tests_7
-! { dg-final { cleanup-modules "c_loc_tests_7" } }
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests.f03 b/gcc/testsuite/gfortran.dg/c_ptr_tests.f03
index f0c9a33..0b7c98b 100644
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests.f03
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests.f03
@@ -42,5 +42,3 @@ module c_ptr_tests
       call c_f_pointer(self%myServices, localServices)
     end subroutine sub0
 end module c_ptr_tests
-
-! { dg-final { cleanup-modules "c_ptr_tests" } }
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_10.f03 b/gcc/testsuite/gfortran.dg/c_ptr_tests_10.f03
index fe41622..4ce1c68 100644
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests_10.f03
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests_10.f03
@@ -15,5 +15,3 @@ program main
   use c_ptr_tests_10
   call sub0()
 end program main
-
-! { dg-final { cleanup-modules "c_ptr_tests_10" } }
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_11.f03 b/gcc/testsuite/gfortran.dg/c_ptr_tests_11.f03
index 9448f82..353a795 100644
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests_11.f03
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests_11.f03
@@ -38,5 +38,3 @@ contains
     type(t), intent(out) :: a
   end subroutine func
 end module m
-! { dg-final { cleanup-modules "fgsl m" } } 
-
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_12.f03 b/gcc/testsuite/gfortran.dg/c_ptr_tests_12.f03
index 71e8170..d4ab175 100644
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests_12.f03
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests_12.f03
@@ -40,6 +40,3 @@ contains
     status = fgsl_vector_align(p_x, f_x)
   end subroutine expb_df
 end module tmod
-
-! { dg-final { cleanup-modules "fgsl tmod" } } 
-
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_14.f90 b/gcc/testsuite/gfortran.dg/c_ptr_tests_14.f90
index c4101fb..946c4dd 100644
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests_14.f90
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests_14.f90
@@ -48,4 +48,3 @@ end program test
 ! { dg-final { scan-tree-dump-times "bbb =" 0 "original" } }
 
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_15.f90 b/gcc/testsuite/gfortran.dg/c_ptr_tests_15.f90
index 1ce0c15..9959d62 100644
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests_15.f90
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests_15.f90
@@ -50,4 +50,3 @@ end program test
 ! { dg-final { scan-tree-dump-times "bbb =" 0 "original" } }
 
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_17.f90 b/gcc/testsuite/gfortran.dg/c_ptr_tests_17.f90
index 9bbd0dd..0506347 100644
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests_17.f90
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests_17.f90
@@ -84,5 +84,3 @@ function kill_C_FUNPTR() bind(C)
    end interface
    kill_C_FUNPTR = C_FUNLOC(fun)
 end function kill_C_FUNPTR
-
-! { dg-final { cleanup-modules "m3 m1" } }
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_18.f90 b/gcc/testsuite/gfortran.dg/c_ptr_tests_18.f90
index 6239516..ae6fd98 100644
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests_18.f90
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests_18.f90
@@ -31,5 +31,3 @@ program cfpointerstress
   write(*,*) 'ASSOCIATED =', associated(img)
   deallocate(r)
 end program cfpointerstress
-
-! { dg-final { cleanup-modules "nag_j_types" } }
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_7.f03 b/gcc/testsuite/gfortran.dg/c_ptr_tests_7.f03
index 04cb8b2..38768b1 100644
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests_7.f03
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests_7.f03
@@ -9,4 +9,3 @@ contains
     func0 = c_null_ptr
   end function func0
 end module c_ptr_tests_7
-! { dg-final { cleanup-modules "c_ptr_tests_7" } }
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_9.f03 b/gcc/testsuite/gfortran.dg/c_ptr_tests_9.f03
index f723492..8fff547 100644
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests_9.f03
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests_9.f03
@@ -28,5 +28,3 @@ program main
 
   call sub0()
 end program main
-
-! { dg-final { cleanup-modules "c_ptr_tests_9" } }
diff --git a/gcc/testsuite/gfortran.dg/c_size_t_test.f03 b/gcc/testsuite/gfortran.dg/c_size_t_test.f03
index 68064d7..91d7aa5 100644
--- a/gcc/testsuite/gfortran.dg/c_size_t_test.f03
+++ b/gcc/testsuite/gfortran.dg/c_size_t_test.f03
@@ -14,5 +14,3 @@ contains
     end if
   end subroutine sub0
 end module c_size_t_test
-
-! { dg-final { cleanup-modules "c_size_t_test" } }
diff --git a/gcc/testsuite/gfortran.dg/char_array_constructor.f90 b/gcc/testsuite/gfortran.dg/char_array_constructor.f90
index 5f562e9..2cf3ae7 100644
--- a/gcc/testsuite/gfortran.dg/char_array_constructor.f90
+++ b/gcc/testsuite/gfortran.dg/char_array_constructor.f90
@@ -12,5 +12,3 @@ program y
   if (b(1) /= 'abcd  ') call abort
   if (b(2) /= 'efghij') call abort
 end program y
-
-! { dg-final { cleanup-modules "z" } }
diff --git a/gcc/testsuite/gfortran.dg/char_array_constructor_2.f90 b/gcc/testsuite/gfortran.dg/char_array_constructor_2.f90
index 766eb52..d6abc26 100644
--- a/gcc/testsuite/gfortran.dg/char_array_constructor_2.f90
+++ b/gcc/testsuite/gfortran.dg/char_array_constructor_2.f90
@@ -11,4 +11,3 @@ end module foomod
   use foomod
   print *, aa, bb
 end
-! { dg-final { cleanup-modules "foomod" } }
diff --git a/gcc/testsuite/gfortran.dg/char_array_structure_constructor.f90 b/gcc/testsuite/gfortran.dg/char_array_structure_constructor.f90
index 2266936..cfe787b 100644
--- a/gcc/testsuite/gfortran.dg/char_array_structure_constructor.f90
+++ b/gcc/testsuite/gfortran.dg/char_array_structure_constructor.f90
@@ -31,5 +31,3 @@ contains
     ENDDO
   end subroutine alloc
 END program char_array_structure_constructor
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/char_length_13.f90 b/gcc/testsuite/gfortran.dg/char_length_13.f90
index 576d5be..dd5c05a 100644
--- a/gcc/testsuite/gfortran.dg/char_length_13.f90
+++ b/gcc/testsuite/gfortran.dg/char_length_13.f90
@@ -32,5 +32,3 @@ program main
   use bar
   call xmain()
 end program main
-
-! { dg-final { cleanup-modules "bar" } }
diff --git a/gcc/testsuite/gfortran.dg/char_length_5.f90 b/gcc/testsuite/gfortran.dg/char_length_5.f90
index 03a4d85..929f01b 100644
--- a/gcc/testsuite/gfortran.dg/char_length_5.f90
+++ b/gcc/testsuite/gfortran.dg/char_length_5.f90
@@ -58,4 +58,3 @@ program xjoin
   if (len (join (words2(2:4:2), sep2)) .ne. 10) call abort ()
 
 end program xjoin
-! { dg-final { cleanup-modules "util_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/char_length_7.f90 b/gcc/testsuite/gfortran.dg/char_length_7.f90
index 221c840..d9c1b38 100644
--- a/gcc/testsuite/gfortran.dg/char_length_7.f90
+++ b/gcc/testsuite/gfortran.dg/char_length_7.f90
@@ -29,4 +29,3 @@ program xx
 ! This was another bug, uncovered when the PR was fixed.
   if (any(ccopy(z//mz(:)(i:j)) .ne. (/"zzgh ","zzjk "/))) call abort ()
 end program xx
-! { dg-final { cleanup-modules "str_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/char_length_9.f90 b/gcc/testsuite/gfortran.dg/char_length_9.f90
index dbec68c..36f724a 100644
--- a/gcc/testsuite/gfortran.dg/char_length_9.f90
+++ b/gcc/testsuite/gfortran.dg/char_length_9.f90
@@ -18,5 +18,3 @@ CONTAINS
                val%c_val(i)(1:MIN (80, l_out-(i-1)*default_string_length))
   END SUBROUTINE val_get
 END MODULE input_val_types
-
-! { dg-final { cleanup-modules "input_val_types" } }
diff --git a/gcc/testsuite/gfortran.dg/char_result_11.f90 b/gcc/testsuite/gfortran.dg/char_result_11.f90
index 75e68f1..c37b20e 100644
--- a/gcc/testsuite/gfortran.dg/char_result_11.f90
+++ b/gcc/testsuite/gfortran.dg/char_result_11.f90
@@ -113,5 +113,3 @@ program test
     print *, str
 
 end program test
-
-! { dg-final { cleanup-modules "cutils" } }
diff --git a/gcc/testsuite/gfortran.dg/char_result_13.f90 b/gcc/testsuite/gfortran.dg/char_result_13.f90
index 741d55f..638d638 100644
--- a/gcc/testsuite/gfortran.dg/char_result_13.f90
+++ b/gcc/testsuite/gfortran.dg/char_result_13.f90
@@ -45,5 +45,3 @@ end module abc
   use abc
   call xmain(3, 2)
 end
-! { dg-final { cleanup-modules "abc" } }
-
diff --git a/gcc/testsuite/gfortran.dg/char_result_9.f90 b/gcc/testsuite/gfortran.dg/char_result_9.f90
index 062901e..e32df0e 100644
--- a/gcc/testsuite/gfortran.dg/char_result_9.f90
+++ b/gcc/testsuite/gfortran.dg/char_result_9.f90
@@ -22,5 +22,3 @@ program huj
     s = s_to_c(c)
 
 end program huj
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/character_assign_1.f90 b/gcc/testsuite/gfortran.dg/character_assign_1.f90
index a4e0732..02625ad 100644
--- a/gcc/testsuite/gfortran.dg/character_assign_1.f90
+++ b/gcc/testsuite/gfortran.dg/character_assign_1.f90
@@ -14,4 +14,3 @@ CONTAINS
     TDA1L(NF1:NF2:NF1)%C = TDA1L(NF0+2:NF3:NF2/2)%C
   END SUBROUTINE
 END MODULE TESTS
-! { dg-final { cleanup-modules "tests" } }
diff --git a/gcc/testsuite/gfortran.dg/class_10.f03 b/gcc/testsuite/gfortran.dg/class_10.f03
index f238a59..1e3b854 100644
--- a/gcc/testsuite/gfortran.dg/class_10.f03
+++ b/gcc/testsuite/gfortran.dg/class_10.f03
@@ -28,5 +28,3 @@ end module
  class(gradient_class), pointer    :: g_initial, ip_save
  ip_save => g_initial%inner_product()   ! ICE
 end
-
-! { dg-final { cleanup-modules "abstract_gradient" } }
diff --git a/gcc/testsuite/gfortran.dg/class_12.f03 b/gcc/testsuite/gfortran.dg/class_12.f03
index 56c68a5..312ca57 100644
--- a/gcc/testsuite/gfortran.dg/class_12.f03
+++ b/gcc/testsuite/gfortran.dg/class_12.f03
@@ -41,5 +41,3 @@ contains
     operand = operand%product(scale)
   end subroutine 
 end module
-
-! { dg-final { cleanup-modules "abstract_algebra" } }
diff --git a/gcc/testsuite/gfortran.dg/class_13.f03 b/gcc/testsuite/gfortran.dg/class_13.f03
index 84073bf..d83a856 100644
--- a/gcc/testsuite/gfortran.dg/class_13.f03
+++ b/gcc/testsuite/gfortran.dg/class_13.f03
@@ -34,4 +34,3 @@ contains
   end function
 end module concrete_inner_product
  
-! { dg-final { cleanup-modules "concrete_vector concrete_gradient concrete_inner_product" } }
diff --git a/gcc/testsuite/gfortran.dg/class_14.f03 b/gcc/testsuite/gfortran.dg/class_14.f03
index 4e6db17..5116c66 100644
--- a/gcc/testsuite/gfortran.dg/class_14.f03
+++ b/gcc/testsuite/gfortran.dg/class_14.f03
@@ -50,5 +50,3 @@ module concrete_inner_product
   use concrete_gradient
   implicit none
 end module concrete_inner_product
-! { dg-final { cleanup-modules "abstract_vector concrete_vector" } }
-! { dg-final { cleanup-modules "concrete_gradient concrete_inner_product" } }
diff --git a/gcc/testsuite/gfortran.dg/class_15.f03 b/gcc/testsuite/gfortran.dg/class_15.f03
index 4520a59..1fc7ce4 100644
--- a/gcc/testsuite/gfortran.dg/class_15.f03
+++ b/gcc/testsuite/gfortran.dg/class_15.f03
@@ -39,5 +39,3 @@ module mod_D
   use mod_A
   use mod_C
 end module
-
-! { dg-final { cleanup-modules "mod_a mod_b mod_c mod_d" } }
diff --git a/gcc/testsuite/gfortran.dg/class_16.f03 b/gcc/testsuite/gfortran.dg/class_16.f03
index 7d0d38f..136097b 100644
--- a/gcc/testsuite/gfortran.dg/class_16.f03
+++ b/gcc/testsuite/gfortran.dg/class_16.f03
@@ -19,5 +19,3 @@ contains
   end function
 
 end module
-
-! { dg-final { cleanup-modules "m_rotation_matrix" } }
diff --git a/gcc/testsuite/gfortran.dg/class_17.f03 b/gcc/testsuite/gfortran.dg/class_17.f03
index b015c13..0c5c238 100644
--- a/gcc/testsuite/gfortran.dg/class_17.f03
+++ b/gcc/testsuite/gfortran.dg/class_17.f03
@@ -60,5 +60,3 @@ module b_module
   end type b_type
 end module b_module
  
-
-! { dg-final { cleanup-modules "error_stack_module b_module" } }
diff --git a/gcc/testsuite/gfortran.dg/class_19.f03 b/gcc/testsuite/gfortran.dg/class_19.f03
index 27ee7b4..63b8e06 100644
--- a/gcc/testsuite/gfortran.dg/class_19.f03
+++ b/gcc/testsuite/gfortran.dg/class_19.f03
@@ -41,5 +41,3 @@ end program main
 
 ! { dg-final { scan-tree-dump-times "__builtin_free" 11 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-
-! { dg-final { cleanup-modules "foo_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/class_21.f03 b/gcc/testsuite/gfortran.dg/class_21.f03
index 93b9616..4a7135d 100644
--- a/gcc/testsuite/gfortran.dg/class_21.f03
+++ b/gcc/testsuite/gfortran.dg/class_21.f03
@@ -14,5 +14,3 @@ module m
   type(t),save :: default_t
 
 end module
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/class_22.f03 b/gcc/testsuite/gfortran.dg/class_22.f03
index df68783..7e179f4 100644
--- a/gcc/testsuite/gfortran.dg/class_22.f03
+++ b/gcc/testsuite/gfortran.dg/class_22.f03
@@ -27,5 +27,3 @@ contains
   end subroutine ice_proc
 
 end module ice_module
-
-! { dg-final { cleanup-modules "ice_module" } }
diff --git a/gcc/testsuite/gfortran.dg/class_25.f03 b/gcc/testsuite/gfortran.dg/class_25.f03
index 3588b77..4c3563c 100644
--- a/gcc/testsuite/gfortran.dg/class_25.f03
+++ b/gcc/testsuite/gfortran.dg/class_25.f03
@@ -24,5 +24,3 @@ contains
 end module
 
 end 
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/class_26.f03 b/gcc/testsuite/gfortran.dg/class_26.f03
index 629c9c9..ed4a269 100644
--- a/gcc/testsuite/gfortran.dg/class_26.f03
+++ b/gcc/testsuite/gfortran.dg/class_26.f03
@@ -26,4 +26,3 @@ end module
 
 end
  
-! { dg-final { cleanup-modules "s_mat_mod s_tester" } }
diff --git a/gcc/testsuite/gfortran.dg/class_27.f03 b/gcc/testsuite/gfortran.dg/class_27.f03
index 3525dc4..a3f2c88 100644
--- a/gcc/testsuite/gfortran.dg/class_27.f03
+++ b/gcc/testsuite/gfortran.dg/class_27.f03
@@ -63,5 +63,3 @@ module type1_type
           endif 
     end function Type1_initProc 
 end module type1_type
-
-! { dg-final { cleanup-modules "type2_type extended2a_type type1_type" } }
diff --git a/gcc/testsuite/gfortran.dg/class_28.f03 b/gcc/testsuite/gfortran.dg/class_28.f03
index 684b8cd..258633d 100644
--- a/gcc/testsuite/gfortran.dg/class_28.f03
+++ b/gcc/testsuite/gfortran.dg/class_28.f03
@@ -41,5 +41,3 @@ program p
   allocate(x(1))
 
 end program p
-
-! { dg-final { cleanup-modules "m m2" } }
diff --git a/gcc/testsuite/gfortran.dg/class_29.f03 b/gcc/testsuite/gfortran.dg/class_29.f03
index d5ed8fa..b27793f 100644
--- a/gcc/testsuite/gfortran.dg/class_29.f03
+++ b/gcc/testsuite/gfortran.dg/class_29.f03
@@ -30,5 +30,3 @@ allocate (t2 :: y)
 print *, x%a
 print *, y%b
 end
-
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/class_32.f90 b/gcc/testsuite/gfortran.dg/class_32.f90
index b5857c1..c388be4 100644
--- a/gcc/testsuite/gfortran.dg/class_32.f90
+++ b/gcc/testsuite/gfortran.dg/class_32.f90
@@ -37,5 +37,3 @@ END MODULE
 PROGRAM p
   USE m
 END
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/class_33.f90 b/gcc/testsuite/gfortran.dg/class_33.f90
index 7c3c197..c2bd4e4 100644
--- a/gcc/testsuite/gfortran.dg/class_33.f90
+++ b/gcc/testsuite/gfortran.dg/class_33.f90
@@ -9,5 +9,3 @@ module Molecular_Abundances_Structure
   end type
   class(molecularAbundancesStructure), pointer :: molecules
 end module
-
-! { dg-final { cleanup-modules "molecular_abundances_structure" } }
diff --git a/gcc/testsuite/gfortran.dg/class_34.f90 b/gcc/testsuite/gfortran.dg/class_34.f90
index ecdb4dd..3375396 100644
--- a/gcc/testsuite/gfortran.dg/class_34.f90
+++ b/gcc/testsuite/gfortran.dg/class_34.f90
@@ -20,5 +20,3 @@ module m2
 end module
 
 end
-
-! { dg-final { cleanup-modules "m0 m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/class_35.f90 b/gcc/testsuite/gfortran.dg/class_35.f90
index 1b5502a..87a5c87 100644
--- a/gcc/testsuite/gfortran.dg/class_35.f90
+++ b/gcc/testsuite/gfortran.dg/class_35.f90
@@ -22,5 +22,3 @@ class(three), allocatable :: a2
 if (same_type_as(a1,a2)) call abort()
 
 end 
-
-! { dg-final { cleanup-modules "one one_two" } }
diff --git a/gcc/testsuite/gfortran.dg/class_37.f03 b/gcc/testsuite/gfortran.dg/class_37.f03
index e3ff8ce..1d75999 100644
--- a/gcc/testsuite/gfortran.dg/class_37.f03
+++ b/gcc/testsuite/gfortran.dg/class_37.f03
@@ -259,5 +259,3 @@ subroutine psb_cdall(ictxt, desc, info,mg,ng,vg,vl,flag,nl,repl, globalcheck)
   return
 
 end subroutine psb_cdall
-
-! { dg-final { cleanup-modules "psb_penv_mod psb_indx_map_mod psb_gen_block_map_mod psb_descriptor_type psb_cd_if_tools_mod psb_cd_tools_mod psb_base_tools_mod" } } 
diff --git a/gcc/testsuite/gfortran.dg/class_40.f03 b/gcc/testsuite/gfortran.dg/class_40.f03
index dde1acd..b6214a9 100644
--- a/gcc/testsuite/gfortran.dg/class_40.f03
+++ b/gcc/testsuite/gfortran.dg/class_40.f03
@@ -32,5 +32,3 @@ program test
   type(treeNode) :: node
   call walk (node)
 end program
-
-! { dg-final { cleanup-modules "tree_nodes merger_trees merger_tree_build" } }
diff --git a/gcc/testsuite/gfortran.dg/class_41.f03 b/gcc/testsuite/gfortran.dg/class_41.f03
index bcab2b4..5c24fe1 100644
--- a/gcc/testsuite/gfortran.dg/class_41.f03
+++ b/gcc/testsuite/gfortran.dg/class_41.f03
@@ -20,5 +20,3 @@ contains
     print *,a_string(this)
   end subroutine b_sub
 end module a_module
-
-! { dg-final { cleanup-modules "a_module" } }
diff --git a/gcc/testsuite/gfortran.dg/class_42.f03 b/gcc/testsuite/gfortran.dg/class_42.f03
index cd3047f..10acf3b 100644
--- a/gcc/testsuite/gfortran.dg/class_42.f03
+++ b/gcc/testsuite/gfortran.dg/class_42.f03
@@ -12,5 +12,3 @@ contains
     class(Overload_AnException_impl_t) :: self
   end subroutine
 end module 
-
-! { dg-final { cleanup-modules "overload_anexception_impl" } }
diff --git a/gcc/testsuite/gfortran.dg/class_45b.f03 b/gcc/testsuite/gfortran.dg/class_45b.f03
index ed0d674..5c047e2 100644
--- a/gcc/testsuite/gfortran.dg/class_45b.f03
+++ b/gcc/testsuite/gfortran.dg/class_45b.f03
@@ -10,5 +10,3 @@ program Test
   class(t0), allocatable :: c
   allocate(t1 :: c)
 end program Test
-
-! { dg-final { cleanup-modules "G_Nodes" } }
diff --git a/gcc/testsuite/gfortran.dg/class_46.f03 b/gcc/testsuite/gfortran.dg/class_46.f03
index 4719c25..ef718db 100644
--- a/gcc/testsuite/gfortran.dg/class_46.f03
+++ b/gcc/testsuite/gfortran.dg/class_46.f03
@@ -14,5 +14,3 @@ use m
 implicit none
 if (allocated(x)) call abort()
 end 
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/class_47.f90 b/gcc/testsuite/gfortran.dg/class_47.f90
index 90a7560..56f342e 100644
--- a/gcc/testsuite/gfortran.dg/class_47.f90
+++ b/gcc/testsuite/gfortran.dg/class_47.f90
@@ -36,5 +36,3 @@ PROGRAM main
   
   call test(sparseMatrix)
 END PROGRAM
-
-! { dg-final { cleanup-modules "m_sparsematrix m_subroutine" } }
diff --git a/gcc/testsuite/gfortran.dg/class_9.f03 b/gcc/testsuite/gfortran.dg/class_9.f03
index 5dbd459..0e6509c 100644
--- a/gcc/testsuite/gfortran.dg/class_9.f03
+++ b/gcc/testsuite/gfortran.dg/class_9.f03
@@ -65,4 +65,3 @@ end
   allocate(x)
   call s (x)
 end
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/class_allocate_10.f03 b/gcc/testsuite/gfortran.dg/class_allocate_10.f03
index d3afa39..2e4f3b8 100644
--- a/gcc/testsuite/gfortran.dg/class_allocate_10.f03
+++ b/gcc/testsuite/gfortran.dg/class_allocate_10.f03
@@ -60,5 +60,3 @@ program main
     type is (integrand); if (any (kernel1%variable .ne. [3,4,5])) call abort
   end select
 end program
-! { dg-final { cleanup-modules "show_producer_class" } }
-
diff --git a/gcc/testsuite/gfortran.dg/class_allocate_11.f03 b/gcc/testsuite/gfortran.dg/class_allocate_11.f03
index e36e810..b8422c0 100644
--- a/gcc/testsuite/gfortran.dg/class_allocate_11.f03
+++ b/gcc/testsuite/gfortran.dg/class_allocate_11.f03
@@ -58,5 +58,3 @@ program prog
      end if
   end select
 end program prog
-! { dg-final { cleanup-modules "generic_deferred" } }
-
diff --git a/gcc/testsuite/gfortran.dg/class_allocate_12.f90 b/gcc/testsuite/gfortran.dg/class_allocate_12.f90
index 2dce84e..d50943d 100644
--- a/gcc/testsuite/gfortran.dg/class_allocate_12.f90
+++ b/gcc/testsuite/gfortran.dg/class_allocate_12.f90
@@ -88,5 +88,3 @@ program main
   attractor = constructor( [1., 1., 1.] , timed_lorenz_integrator)
   call integrate(attractor)
 end program main
-
-! { dg-final { cleanup-modules "surrogate_module strategy_module integrand_module runge_kutta_2nd_module" } }
diff --git a/gcc/testsuite/gfortran.dg/class_allocate_7.f03 b/gcc/testsuite/gfortran.dg/class_allocate_7.f03
index ddab407..ee01fad 100644
--- a/gcc/testsuite/gfortran.dg/class_allocate_7.f03
+++ b/gcc/testsuite/gfortran.dg/class_allocate_7.f03
@@ -31,5 +31,3 @@ program main
   allocate(kernel,source=executive_producer%create_show ())
   if (kernel%variable .ne. 99) call abort
 end program
-! { dg-final { cleanup-modules "show_producer_class" } }
-
diff --git a/gcc/testsuite/gfortran.dg/class_allocate_8.f03 b/gcc/testsuite/gfortran.dg/class_allocate_8.f03
index 85094ad..1abc557 100644
--- a/gcc/testsuite/gfortran.dg/class_allocate_8.f03
+++ b/gcc/testsuite/gfortran.dg/class_allocate_8.f03
@@ -49,5 +49,3 @@ program main
     type is (integrand); if (any (kernel%variable .ne. -1)) call abort
   end select
 end program
-! { dg-final { cleanup-modules "show_producer_class" } }
-
diff --git a/gcc/testsuite/gfortran.dg/class_allocate_9.f03 b/gcc/testsuite/gfortran.dg/class_allocate_9.f03
index 2446ed6..0c7b1f7 100644
--- a/gcc/testsuite/gfortran.dg/class_allocate_9.f03
+++ b/gcc/testsuite/gfortran.dg/class_allocate_9.f03
@@ -32,5 +32,3 @@ program main
   if (kernel1%variable .ne. -1) call abort
   if (kernel2%variable .ne. -1) call abort
 end program
-! { dg-final { cleanup-modules "show_producer_class" } }
-
diff --git a/gcc/testsuite/gfortran.dg/class_array_12.f03 b/gcc/testsuite/gfortran.dg/class_array_12.f03
index 2a1e440..9873db7 100644
--- a/gcc/testsuite/gfortran.dg/class_array_12.f03
+++ b/gcc/testsuite/gfortran.dg/class_array_12.f03
@@ -29,5 +29,3 @@ contains
   end function BGet
 
 end module test
-
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/class_array_3.f03 b/gcc/testsuite/gfortran.dg/class_array_3.f03
index 8972161..6db375c 100644
--- a/gcc/testsuite/gfortran.dg/class_array_3.f03
+++ b/gcc/testsuite/gfortran.dg/class_array_3.f03
@@ -136,5 +136,3 @@ program main
 !  print *, "After qsort:  ", A%disp()
  if (any (A%disp() .ne. [2,3,4,5,7])) call abort
 end program main
-
-! { dg-final { cleanup-modules "m_qsort test" } }
diff --git a/gcc/testsuite/gfortran.dg/class_array_4.f03 b/gcc/testsuite/gfortran.dg/class_array_4.f03
index 7c748f0..46b254d 100644
--- a/gcc/testsuite/gfortran.dg/class_array_4.f03
+++ b/gcc/testsuite/gfortran.dg/class_array_4.f03
@@ -23,4 +23,3 @@ end module m
   call x(:)%foo(n)
   if (any(n .ne. [99,199,299])) call abort
 end
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/class_array_5.f03 b/gcc/testsuite/gfortran.dg/class_array_5.f03
index 2a7e2f1..740a0d4 100644
--- a/gcc/testsuite/gfortran.dg/class_array_5.f03
+++ b/gcc/testsuite/gfortran.dg/class_array_5.f03
@@ -22,4 +22,3 @@ module ice6
   end subroutine do_something_else
 
 end module ice6
-! { dg-final { cleanup-modules "ice6" } }
diff --git a/gcc/testsuite/gfortran.dg/class_array_6.f03 b/gcc/testsuite/gfortran.dg/class_array_6.f03
index 4f8b803..ab4766f 100644
--- a/gcc/testsuite/gfortran.dg/class_array_6.f03
+++ b/gcc/testsuite/gfortran.dg/class_array_6.f03
@@ -30,4 +30,3 @@ CONTAINS
     !TYPE(ParentVector), INTENT(INOUT) :: pvec
   END SUBROUTINE item_operation
 END MODULE procedure_intent_nonsense
-! { dg-final { cleanup-modules "procedure_intent_nonsense" } }
diff --git a/gcc/testsuite/gfortran.dg/class_array_7.f03 b/gcc/testsuite/gfortran.dg/class_array_7.f03
index 225cc7e..435e6f5 100644
--- a/gcc/testsuite/gfortran.dg/class_array_7.f03
+++ b/gcc/testsuite/gfortran.dg/class_array_7.f03
@@ -55,5 +55,3 @@ program main
   call reallocate (a)
   if (trim (print_type ("a", a)) .ne. "a is base_type") call abort
 end program main
-
-! { dg-final { cleanup-modules "realloc" } }
diff --git a/gcc/testsuite/gfortran.dg/class_array_9.f03 b/gcc/testsuite/gfortran.dg/class_array_9.f03
index 6b07aea..c771c61 100644
--- a/gcc/testsuite/gfortran.dg/class_array_9.f03
+++ b/gcc/testsuite/gfortran.dg/class_array_9.f03
@@ -42,5 +42,3 @@ end module
   if (x(4)%disp () .ne. 4) call abort
 
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/class_defined_operator_1.f03 b/gcc/testsuite/gfortran.dg/class_defined_operator_1.f03
index 0b878f2..008739e 100644
--- a/gcc/testsuite/gfortran.dg/class_defined_operator_1.f03
+++ b/gcc/testsuite/gfortran.dg/class_defined_operator_1.f03
@@ -100,5 +100,3 @@ contains
    this = this*scale
  end subroutine
 end program
-
-! { dg-final { cleanup-modules "bar_module foo_module" } }
diff --git a/gcc/testsuite/gfortran.dg/class_dummy_2.f03 b/gcc/testsuite/gfortran.dg/class_dummy_2.f03
index c173582..2078cd7 100644
--- a/gcc/testsuite/gfortran.dg/class_dummy_2.f03
+++ b/gcc/testsuite/gfortran.dg/class_dummy_2.f03
@@ -29,5 +29,3 @@ contains
 end module fails_test
 
 end
-
-! { dg-final { cleanup-modules "fails_mod fails_test" } }
diff --git a/gcc/testsuite/gfortran.dg/class_result_1.f03 b/gcc/testsuite/gfortran.dg/class_result_1.f03
index f1f542b..011878e9 100644
--- a/gcc/testsuite/gfortran.dg/class_result_1.f03
+++ b/gcc/testsuite/gfortran.dg/class_result_1.f03
@@ -58,5 +58,3 @@ program random_walk
   end do
 
 end program random_walk
-
-! { dg-final { cleanup-modules "points2d" } }
diff --git a/gcc/testsuite/gfortran.dg/class_to_type_2.f90 b/gcc/testsuite/gfortran.dg/class_to_type_2.f90
index 75c2a88..e6181a4 100644
--- a/gcc/testsuite/gfortran.dg/class_to_type_2.f90
+++ b/gcc/testsuite/gfortran.dg/class_to_type_2.f90
@@ -93,5 +93,3 @@ program prog
 
  call subpr2_array (g ())
 end program
-
-! { dg-final { cleanup-modules "mod_subpr" } }
diff --git a/gcc/testsuite/gfortran.dg/coarray/registering_1.f90 b/gcc/testsuite/gfortran.dg/coarray/registering_1.f90
index c6bcf92..a18ba61 100644
--- a/gcc/testsuite/gfortran.dg/coarray/registering_1.f90
+++ b/gcc/testsuite/gfortran.dg/coarray/registering_1.f90
@@ -39,5 +39,3 @@ contains
      if (not_refed /= 784) call abort()
   end subroutine uncalled
 end subroutine test
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/coarray_14.f90 b/gcc/testsuite/gfortran.dg/coarray_14.f90
index 49188d6..3097eed 100644
--- a/gcc/testsuite/gfortran.dg/coarray_14.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_14.f90
@@ -51,5 +51,3 @@ type(t), allocatable :: a[:]
  allocate (t :: a) ! { dg-error "Coarray specification required in ALLOCATE statement" }
 allocate (t :: a[*]) ! OK
 end program myTest
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/coarray_19.f90 b/gcc/testsuite/gfortran.dg/coarray_19.f90
index cbb1dd2..637750a 100644
--- a/gcc/testsuite/gfortran.dg/coarray_19.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_19.f90
@@ -23,5 +23,3 @@ end module m
 ! as->cotype was not AS_DEFERERED.
 use m
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/coarray_21.f90 b/gcc/testsuite/gfortran.dg/coarray_21.f90
index 8aa0aa6..e805cf6 100644
--- a/gcc/testsuite/gfortran.dg/coarray_21.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_21.f90
@@ -22,6 +22,3 @@ program test
   type(pct) :: picture[*]
      allocate(picture%data(size, size))
 end program test
-
-
-! { dg-final { cleanup-modules "mod_reduction" } }
diff --git a/gcc/testsuite/gfortran.dg/coarray_6.f90 b/gcc/testsuite/gfortran.dg/coarray_6.f90
index d3c600b..9fb06d4 100644
--- a/gcc/testsuite/gfortran.dg/coarray_6.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_6.f90
@@ -81,5 +81,3 @@ end subroutine valid
 program main
   integer :: A[*] ! Valid, implicit SAVE attribute
 end program main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/coarray_8.f90 b/gcc/testsuite/gfortran.dg/coarray_8.f90
index 6ceba8b..6defc1a 100644
--- a/gcc/testsuite/gfortran.dg/coarray_8.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_8.f90
@@ -187,5 +187,3 @@ subroutine assign42()
   integer, allocatable :: z(:)[:]
   z(:)[1] = z
 end subroutine assign42
-
-! { dg-final { cleanup-modules "mod2 m mmm3 mmm4" } }
diff --git a/gcc/testsuite/gfortran.dg/coarray_args_2.f90 b/gcc/testsuite/gfortran.dg/coarray_args_2.f90
index 66a5a92..c7dc490 100644
--- a/gcc/testsuite/gfortran.dg/coarray_args_2.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_args_2.f90
@@ -46,5 +46,3 @@ program rank_mismatch_02
      write(*, *) 'OK'
   end if
 end program
-
-! { dg-final { cleanup-modules "mod_rank_mismatch_02" } }
diff --git a/gcc/testsuite/gfortran.dg/coarray_lib_token_2.f90 b/gcc/testsuite/gfortran.dg/coarray_lib_token_2.f90
index 0631154..fe4df3b 100644
--- a/gcc/testsuite/gfortran.dg/coarray_lib_token_2.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_lib_token_2.f90
@@ -113,4 +113,3 @@ end program main
 ! { dg-final { scan-tree-dump-times "sub_opt \\(.integer.kind=4. .. caf.data, caf.token, 0\\)" 1 "original" } }
 !
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "matrix_data" } }
diff --git a/gcc/testsuite/gfortran.dg/coarray_lock_3.f90 b/gcc/testsuite/gfortran.dg/coarray_lock_3.f90
index 958cee4..3888573 100644
--- a/gcc/testsuite/gfortran.dg/coarray_lock_3.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_lock_3.f90
@@ -113,5 +113,3 @@ contains
     type(lock_type), intent(in) :: x[*]
   end subroutine test
 end subroutine argument_check
-
-! { dg-final { cleanup-modules "m m2 m3" } }
diff --git a/gcc/testsuite/gfortran.dg/coarray_lock_5.f90 b/gcc/testsuite/gfortran.dg/coarray_lock_5.f90
index aac9027..b419606 100644
--- a/gcc/testsuite/gfortran.dg/coarray_lock_5.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_lock_5.f90
@@ -49,5 +49,3 @@ subroutine test2()
     integer, allocatable :: d[:] ! { dg-error "Noncoarray component c at .1. of type LOCK_TYPE or with subcomponent of type LOCK_TYPE must have a codimension or be a subcomponent of a coarray. .Variables of type t5 may not have a codimension as d at .2. has a codimension or a coarray subcomponent." }
   end type t5
 end subroutine test2
-
-! { dg-final { cleanup-modules "m3" } }
diff --git a/gcc/testsuite/gfortran.dg/com_block_driver.f90 b/gcc/testsuite/gfortran.dg/com_block_driver.f90
index 691a40f..0445635 100644
--- a/gcc/testsuite/gfortran.dg/com_block_driver.f90
+++ b/gcc/testsuite/gfortran.dg/com_block_driver.f90
@@ -32,5 +32,3 @@ program comBlockDriver
   
   call testTypes()
 end program comBlockDriver
-
-! { dg-final { cleanup-modules "mycommodule comblocktests" } }
diff --git a/gcc/testsuite/gfortran.dg/common_12.f90 b/gcc/testsuite/gfortran.dg/common_12.f90
index 0eea80f..39082f8 100644
--- a/gcc/testsuite/gfortran.dg/common_12.f90
+++ b/gcc/testsuite/gfortran.dg/common_12.f90
@@ -14,5 +14,3 @@ contains
     call bar(z0)
   end subroutine foo
 end module
-
-! { dg-final { cleanup-modules "pr39594" } }
diff --git a/gcc/testsuite/gfortran.dg/common_14.f90 b/gcc/testsuite/gfortran.dg/common_14.f90
index 892e4a5..911d695 100644
--- a/gcc/testsuite/gfortran.dg/common_14.f90
+++ b/gcc/testsuite/gfortran.dg/common_14.f90
@@ -24,5 +24,3 @@ end
 
 call two()
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/common_17.f90 b/gcc/testsuite/gfortran.dg/common_17.f90
index 8ac21e7..bc9602d 100644
--- a/gcc/testsuite/gfortran.dg/common_17.f90
+++ b/gcc/testsuite/gfortran.dg/common_17.f90
@@ -8,4 +8,3 @@ module foo
   integer:: a, b
   common a
 end module foo
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/complex_intrinsic_5.f90 b/gcc/testsuite/gfortran.dg/complex_intrinsic_5.f90
index 49b8eaa..1f76f0a 100644
--- a/gcc/testsuite/gfortran.dg/complex_intrinsic_5.f90
+++ b/gcc/testsuite/gfortran.dg/complex_intrinsic_5.f90
@@ -217,5 +217,3 @@ PROGRAM ArcTrigHyp
   call check(atanh(z4), cmplx(-0.38187020129010862908881230531688930_4, -1.07198475450905931839240655913126728_4, kind=4))
   call check(atanh(z8), cmplx(-0.38187020129010862908881230531688930_8, -1.07198475450905931839240655913126728_8, kind=8))
 END PROGRAM ArcTrigHyp
-
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/constructor_1.f90 b/gcc/testsuite/gfortran.dg/constructor_1.f90
index e8fe03a..7b995f5 100644
--- a/gcc/testsuite/gfortran.dg/constructor_1.f90
+++ b/gcc/testsuite/gfortran.dg/constructor_1.f90
@@ -38,5 +38,3 @@ program myuse
     c = mycomplex(x=0.0, y=1.0)               ! A function reference
     c = mycomplex(0.0, 1.0)               ! A function reference
 end program myuse
-
-! { dg-final { cleanup-modules "mycomplex_module" } }
diff --git a/gcc/testsuite/gfortran.dg/constructor_3.f90 b/gcc/testsuite/gfortran.dg/constructor_3.f90
index 4015090..badff3f 100644
--- a/gcc/testsuite/gfortran.dg/constructor_3.f90
+++ b/gcc/testsuite/gfortran.dg/constructor_3.f90
@@ -43,5 +43,3 @@ if (k /= 42) call abort ()
 !print *, x%j
 !print *, k
 end
-
-! { dg-final { cleanup-modules "m m2" } }
diff --git a/gcc/testsuite/gfortran.dg/constructor_5.f90 b/gcc/testsuite/gfortran.dg/constructor_5.f90
index ab9c9f2..197e082 100644
--- a/gcc/testsuite/gfortran.dg/constructor_5.f90
+++ b/gcc/testsuite/gfortran.dg/constructor_5.f90
@@ -30,5 +30,3 @@ contains
     type(t2) :: f2
   end function
 end module
-
-! { dg-final { cleanup-modules "m m2" } }
diff --git a/gcc/testsuite/gfortran.dg/constructor_6.f90 b/gcc/testsuite/gfortran.dg/constructor_6.f90
index 00b99f2..84b6f37 100644
--- a/gcc/testsuite/gfortran.dg/constructor_6.f90
+++ b/gcc/testsuite/gfortran.dg/constructor_6.f90
@@ -167,5 +167,3 @@ program Struct_over
   if (my_test_cnt /= 6) call abort()
 
 end program Struct_over
-
-! { dg-final { cleanup-modules "test_cnt rational temp_node" } }
diff --git a/gcc/testsuite/gfortran.dg/contained_1.f90 b/gcc/testsuite/gfortran.dg/contained_1.f90
index 05216b2..9b6e439 100644
--- a/gcc/testsuite/gfortran.dg/contained_1.f90
+++ b/gcc/testsuite/gfortran.dg/contained_1.f90
@@ -31,5 +31,3 @@ program contained_1
   call a
   if (i .ne. 1) call abort
 end program
-
-! { dg-final { cleanup-modules "contained_1_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/contained_3.f90 b/gcc/testsuite/gfortran.dg/contained_3.f90
index 5ae4159..d5543a1 100644
--- a/gcc/testsuite/gfortran.dg/contained_3.f90
+++ b/gcc/testsuite/gfortran.dg/contained_3.f90
@@ -46,5 +46,3 @@ END PROGRAM test
 INTEGER FUNCTION setbd()
   setbd=42
 END FUNCTION setbd
-
-! { dg-final { cleanup-modules "ksbin1_aux_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/contained_module_proc_1.f90 b/gcc/testsuite/gfortran.dg/contained_module_proc_1.f90
index a1e5892..a6c2462 100644
--- a/gcc/testsuite/gfortran.dg/contained_module_proc_1.f90
+++ b/gcc/testsuite/gfortran.dg/contained_module_proc_1.f90
@@ -36,5 +36,3 @@ program fire
    implicit none
    if(.not. is_gfortran()) call abort()
 end program fire
-! { dg-final { cleanup-modules "chk_gfortran" } }
-
diff --git a/gcc/testsuite/gfortran.dg/contains_empty_2.f03 b/gcc/testsuite/gfortran.dg/contains_empty_2.f03
index 62e18f4..b530d89 100644
--- a/gcc/testsuite/gfortran.dg/contains_empty_2.f03
+++ b/gcc/testsuite/gfortran.dg/contains_empty_2.f03
@@ -10,5 +10,3 @@ module truc
   integer, parameter :: answer = 42
 contains
 end module truc
-
-! { dg-final { cleanup-modules "truc" } }
diff --git a/gcc/testsuite/gfortran.dg/convert_1.f90 b/gcc/testsuite/gfortran.dg/convert_1.f90
index 97ebc65..0723cd0 100644
--- a/gcc/testsuite/gfortran.dg/convert_1.f90
+++ b/gcc/testsuite/gfortran.dg/convert_1.f90
@@ -14,5 +14,3 @@ USE MODULE_A
 USE MODULE_B
 a = 0
 END
-
-! { dg-final { cleanup-modules "module_a module_b" } }
diff --git a/gcc/testsuite/gfortran.dg/cray_pointers_5.f90 b/gcc/testsuite/gfortran.dg/cray_pointers_5.f90
index 2108119..76bb979 100644
--- a/gcc/testsuite/gfortran.dg/cray_pointers_5.f90
+++ b/gcc/testsuite/gfortran.dg/cray_pointers_5.f90
@@ -13,5 +13,3 @@ end module cray_pointers_5
   ipt = loc (arr)
   if (any (var .ne. (/1, 2, 3, 4, 5, 6, 7, 8, 9, 10/))) call abort
 end
-
-! { dg-final { cleanup-modules "cray_pointers_5" } }
diff --git a/gcc/testsuite/gfortran.dg/cray_pointers_9.f90 b/gcc/testsuite/gfortran.dg/cray_pointers_9.f90
index 81bcb19..cdcd56f 100644
--- a/gcc/testsuite/gfortran.dg/cray_pointers_9.f90
+++ b/gcc/testsuite/gfortran.dg/cray_pointers_9.f90
@@ -101,4 +101,3 @@ program fptr
    p = transfer(fp,p)
    write(*,'(a)') fun([1,2,3])
 end program fptr
-! { dg-final { cleanup-modules "funcs other_fun" } }
diff --git a/gcc/testsuite/gfortran.dg/data_constraints_1.f90 b/gcc/testsuite/gfortran.dg/data_constraints_1.f90
index bcf23ba..5f11ffd 100644
--- a/gcc/testsuite/gfortran.dg/data_constraints_1.f90
+++ b/gcc/testsuite/gfortran.dg/data_constraints_1.f90
@@ -28,5 +28,3 @@ contains
   data foobar /0/       ! { dg-error "conflicts with FUNCTION" }
   end function foobar
 end
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/data_namelist_conflict.f90 b/gcc/testsuite/gfortran.dg/data_namelist_conflict.f90
index b09f167..177553c 100644
--- a/gcc/testsuite/gfortran.dg/data_namelist_conflict.f90
+++ b/gcc/testsuite/gfortran.dg/data_namelist_conflict.f90
@@ -23,4 +23,3 @@ program test
    if (i /= 0 .or. j /= 1) call abort
    close(10)
 end program
-! { dg-final { cleanup-modules "globals" } }
diff --git a/gcc/testsuite/gfortran.dg/default_format_1.f90 b/gcc/testsuite/gfortran.dg/default_format_1.f90
index e374f1b..e439f9b 100644
--- a/gcc/testsuite/gfortran.dg/default_format_1.f90
+++ b/gcc/testsuite/gfortran.dg/default_format_1.f90
@@ -24,4 +24,3 @@ program main
   if (test (-huge(0.0_8), 1) /= 0) call abort
 end program main
 !
-! { dg-final { cleanup-modules "test_default_format" } }
diff --git a/gcc/testsuite/gfortran.dg/default_format_2.f90 b/gcc/testsuite/gfortran.dg/default_format_2.f90
index 2642467..e970090 100644
--- a/gcc/testsuite/gfortran.dg/default_format_2.f90
+++ b/gcc/testsuite/gfortran.dg/default_format_2.f90
@@ -20,4 +20,3 @@ program main
   if (test (-huge(0.0_kl), 1) /= 0) call abort
 end program main
 !
-! { dg-final { cleanup-modules "test_default_format" } }
diff --git a/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90 b/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90
index 7c96053..743a8949 100644
--- a/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90
+++ b/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90
@@ -23,4 +23,3 @@ program main
 
 end program main
 !
-! { dg-final { cleanup-modules "test_default_format" } }
diff --git a/gcc/testsuite/gfortran.dg/default_format_denormal_2.f90 b/gcc/testsuite/gfortran.dg/default_format_denormal_2.f90
index 3669706..a5337ca 100644
--- a/gcc/testsuite/gfortran.dg/default_format_denormal_2.f90
+++ b/gcc/testsuite/gfortran.dg/default_format_denormal_2.f90
@@ -18,4 +18,3 @@ program main
   if (test (-tiny(0.0_kl), 1) /= 0) call abort
 end program main
 !
-! { dg-final { cleanup-modules "test_default_format" } }
diff --git a/gcc/testsuite/gfortran.dg/default_initialization_1.f90 b/gcc/testsuite/gfortran.dg/default_initialization_1.f90
index b03b698..6a76feb 100644
--- a/gcc/testsuite/gfortran.dg/default_initialization_1.f90
+++ b/gcc/testsuite/gfortran.dg/default_initialization_1.f90
@@ -17,5 +17,3 @@ module bad
    end type default_initialization
    type (default_initialization) t ! { dg-error "default initialization" }
 end module bad
-
-! { dg-final { cleanup-modules "bad" } }
diff --git a/gcc/testsuite/gfortran.dg/default_initialization_2.f90 b/gcc/testsuite/gfortran.dg/default_initialization_2.f90
index cc7ecdc..d3595ee 100644
--- a/gcc/testsuite/gfortran.dg/default_initialization_2.f90
+++ b/gcc/testsuite/gfortran.dg/default_initialization_2.f90
@@ -32,5 +32,3 @@ TYPE(BLOCK) MATRIX
 POINTER MATRIX
 ALLOCATE(MATRIX)
 END
-
-! { dg-final { cleanup-modules "mat" } }
diff --git a/gcc/testsuite/gfortran.dg/default_initialization_3.f90 b/gcc/testsuite/gfortran.dg/default_initialization_3.f90
index 720b355..e0bd63d 100644
--- a/gcc/testsuite/gfortran.dg/default_initialization_3.f90
+++ b/gcc/testsuite/gfortran.dg/default_initialization_3.f90
@@ -105,4 +105,3 @@ END
   call other
   call dominique
 end
-! { dg-final { cleanup-modules "demo m1" } }
diff --git a/gcc/testsuite/gfortran.dg/default_initialization_4.f90 b/gcc/testsuite/gfortran.dg/default_initialization_4.f90
index 7a15ba2..b65020f 100644
--- a/gcc/testsuite/gfortran.dg/default_initialization_4.f90
+++ b/gcc/testsuite/gfortran.dg/default_initialization_4.f90
@@ -19,4 +19,3 @@ if (t%x /= 42) call abort()
 t%x = 0
 if (t%x /= 0) call abort()
 end
-! { dg-final { cleanup-modules "good" } }
diff --git a/gcc/testsuite/gfortran.dg/default_initialization_5.f90 b/gcc/testsuite/gfortran.dg/default_initialization_5.f90
index 1192761..b32dae7 100644
--- a/gcc/testsuite/gfortran.dg/default_initialization_5.f90
+++ b/gcc/testsuite/gfortran.dg/default_initialization_5.f90
@@ -63,4 +63,3 @@ end program
 ! { dg-final { scan-tree-dump-times "my_data.head = 0B" 1 "original" } }
 ! { dg-final { scan-tree-dump-times "my_data.head = &tgt" 1 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "arr_m list_m worker_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/defined_operators_1.f90 b/gcc/testsuite/gfortran.dg/defined_operators_1.f90
index c7868d1..9d99018 100644
--- a/gcc/testsuite/gfortran.dg/defined_operators_1.f90
+++ b/gcc/testsuite/gfortran.dg/defined_operators_1.f90
@@ -65,4 +65,3 @@ contains
     foo_3 = a + 3 * b - c
   end function foo_3
 end module mymod
-! { dg-final { cleanup-modules "mymod" } }
diff --git a/gcc/testsuite/gfortran.dg/dependency_19.f90 b/gcc/testsuite/gfortran.dg/dependency_19.f90
index b0af158..3d20cc1 100644
--- a/gcc/testsuite/gfortran.dg/dependency_19.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_19.f90
@@ -31,4 +31,3 @@ contains
   end subroutine construct
 
 end module gfcbug49
-! { dg-final { cleanup-modules "gfcbug49" } }
diff --git a/gcc/testsuite/gfortran.dg/dependency_23.f90 b/gcc/testsuite/gfortran.dg/dependency_23.f90
index 447d626..5a90cda 100644
--- a/gcc/testsuite/gfortran.dg/dependency_23.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_23.f90
@@ -52,6 +52,3 @@ end module rg0045_stuff
   use rg0045_stuff
   call rg0045(1, 2, 3)
 end
-! { dg-final { cleanup-modules "rg0045_stuff" } }
-
-
diff --git a/gcc/testsuite/gfortran.dg/dependency_24.f90 b/gcc/testsuite/gfortran.dg/dependency_24.f90
index 9645f20..81c2be2 100644
--- a/gcc/testsuite/gfortran.dg/dependency_24.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_24.f90
@@ -78,4 +78,3 @@ contains
     if (any (a%j .ne. 99)) call abort
   end subroutine
 end
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/dependency_25.f90 b/gcc/testsuite/gfortran.dg/dependency_25.f90
index 141811e..f2517f5 100644
--- a/gcc/testsuite/gfortran.dg/dependency_25.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_25.f90
@@ -91,5 +91,3 @@ program TestProgram
   if (any (abs(Table%RealData(:,4) - 1) > epsilon(1.0))) call abort ()
   if (any (abs(Table%RealData(:,[1,2,3,5]) - 42) > epsilon(1.0))) call abort ()
 end program TestProgram
-
-! { dg-final { cleanup-modules "unitvalue_module" } }
diff --git a/gcc/testsuite/gfortran.dg/dependency_26.f90 b/gcc/testsuite/gfortran.dg/dependency_26.f90
index e893d99..d37307c 100644
--- a/gcc/testsuite/gfortran.dg/dependency_26.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_26.f90
@@ -47,7 +47,6 @@ END MODULE M1
   cell%h = reshape ([(real(i), i = 1, 9)], [3, 3])
   call s1 (cell)
 end
-! { 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/dependency_28.f90 b/gcc/testsuite/gfortran.dg/dependency_28.f90
index 5d70abe..bcb6e66 100644
--- a/gcc/testsuite/gfortran.dg/dependency_28.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_28.f90
@@ -18,4 +18,3 @@ contains
     a(c%k:c%m) = a(c%i:c%j) + b(c%k:c%m) ! { dg-warning "Creating array temporary" }
   end subroutine foo
 end module foobar
-! { dg-final { cleanup-modules "foobar" } }
diff --git a/gcc/testsuite/gfortran.dg/dependency_34.f90 b/gcc/testsuite/gfortran.dg/dependency_34.f90
index 82d286e..db6ba01 100644
--- a/gcc/testsuite/gfortran.dg/dependency_34.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_34.f90
@@ -19,4 +19,3 @@ program main
   a(bar(i,i+2):2) = a(bar(i,i+2):2)
   a(int(i,kind=2):5) = a(int(i,kind=2)+1:6)
 end program main
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/dependency_35.f90 b/gcc/testsuite/gfortran.dg/dependency_35.f90
index 11b9e8b..23b7e74 100644
--- a/gcc/testsuite/gfortran.dg/dependency_35.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_35.f90
@@ -21,4 +21,3 @@ program main
   a = bar(3,4)*5 + b
   e = sum(b,1) + 3
 end program main
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/dependency_36.f90 b/gcc/testsuite/gfortran.dg/dependency_36.f90
index 920df2f..f3c0ef7 100644
--- a/gcc/testsuite/gfortran.dg/dependency_36.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_36.f90
@@ -26,5 +26,3 @@ CONTAINS
     x = matmul(a,b)             ! { dg-warning "Creating array temporary" }
   END SUBROUTINE GeneticOptimize
 END MODULE m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/dependency_37.f90 b/gcc/testsuite/gfortran.dg/dependency_37.f90
index a66f5af..12900c7 100644
--- a/gcc/testsuite/gfortran.dg/dependency_37.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_37.f90
@@ -46,4 +46,3 @@ program TestProgram
   Table%RealData = 1
   Table%RealData(:,1) = Table%RealData(:,1) * CENTIMETER
 end program TestProgram
-! { dg-final { cleanup-modules "unitvalue_module" } }
diff --git a/gcc/testsuite/gfortran.dg/dependency_39.f90 b/gcc/testsuite/gfortran.dg/dependency_39.f90
index 68c48a4..357827c 100644
--- a/gcc/testsuite/gfortran.dg/dependency_39.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_39.f90
@@ -34,4 +34,3 @@ program main
   deallocate(t%data)
   deallocate(t)
 end program main
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/der_charlen_1.f90 b/gcc/testsuite/gfortran.dg/der_charlen_1.f90
index 4bdace2..9f394c7 100644
--- a/gcc/testsuite/gfortran.dg/der_charlen_1.f90
+++ b/gcc/testsuite/gfortran.dg/der_charlen_1.f90
@@ -22,5 +22,3 @@ CONTAINS
     type(T), intent(in)          :: X
   end subroutine
 end module another_core
-
-! { dg-final { cleanup-modules "core another_core" } }
diff --git a/gcc/testsuite/gfortran.dg/der_io_2.f90 b/gcc/testsuite/gfortran.dg/der_io_2.f90
index 09878b6..e102a97 100644
--- a/gcc/testsuite/gfortran.dg/der_io_2.f90
+++ b/gcc/testsuite/gfortran.dg/der_io_2.f90
@@ -51,5 +51,3 @@ program prog
     write (*, *) z   ! { dg-error "PRIVATE components" }
     write (*, *) zb
 end program prog
-
-! { dg-final { cleanup-modules "gfortran2" } }
diff --git a/gcc/testsuite/gfortran.dg/der_io_3.f90 b/gcc/testsuite/gfortran.dg/der_io_3.f90
index 1cb370c..13035fe 100644
--- a/gcc/testsuite/gfortran.dg/der_io_3.f90
+++ b/gcc/testsuite/gfortran.dg/der_io_3.f90
@@ -41,5 +41,3 @@ end module m2
 use m2
 call test
 end
-
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/der_pointer_1.f90 b/gcc/testsuite/gfortran.dg/der_pointer_1.f90
index b9f98f5..bf4ffc3 100644
--- a/gcc/testsuite/gfortran.dg/der_pointer_1.f90
+++ b/gcc/testsuite/gfortran.dg/der_pointer_1.f90
@@ -16,5 +16,3 @@ module test
 
    type(x_t), pointer :: x
 end module test
-
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/der_pointer_3.f90 b/gcc/testsuite/gfortran.dg/der_pointer_3.f90
index ad9f7a7..ed56ffc 100644
--- a/gcc/testsuite/gfortran.dg/der_pointer_3.f90
+++ b/gcc/testsuite/gfortran.dg/der_pointer_3.f90
@@ -16,5 +16,3 @@ end module ints
 program size_test
   use ints
 end program size_test
-
-! { dg-final { cleanup-modules "ints" } }
diff --git a/gcc/testsuite/gfortran.dg/der_pointer_4.f90 b/gcc/testsuite/gfortran.dg/der_pointer_4.f90
index 260afa4..ec48146 100644
--- a/gcc/testsuite/gfortran.dg/der_pointer_4.f90
+++ b/gcc/testsuite/gfortran.dg/der_pointer_4.f90
@@ -9,5 +9,3 @@ module crash
   end type foo
   type (foo), save :: bar
 end module crash
-
-! { dg-final { cleanup-modules "crash" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_array_intrinisics_1.f90 b/gcc/testsuite/gfortran.dg/derived_array_intrinisics_1.f90
index 6056c83..274aada 100644
--- a/gcc/testsuite/gfortran.dg/derived_array_intrinisics_1.f90
+++ b/gcc/testsuite/gfortran.dg/derived_array_intrinisics_1.f90
@@ -29,4 +29,3 @@
   end
 ! { dg-final { scan-tree-dump-times "j = 50" 1 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_comp_array_ref_1.f90 b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_1.f90
index 1a868f3..bbc109d 100644
--- a/gcc/testsuite/gfortran.dg/derived_comp_array_ref_1.f90
+++ b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_1.f90
@@ -31,5 +31,3 @@ end module gd_calc
   call activate_gd_calcs (used_, outputs_)
   if (any (outputs_(ndim:1:-1)%used .neqv. used_)) call abort ()
 end
-
-! { dg-final { cleanup-modules "gd_calc" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_comp_array_ref_2.f90 b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_2.f90
index 0530b0e..014a3fb 100644
--- a/gcc/testsuite/gfortran.dg/derived_comp_array_ref_2.f90
+++ b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_2.f90
@@ -29,4 +29,3 @@ END MODULE cdf_beta_mod
   call cdf_beta (1, 99)
   call cdf_beta (2, 999)
 end
-! { dg-final { cleanup-modules "cdf_aux_mod cdf_beta_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_comp_array_ref_3.f90 b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_3.f90
index 7a0b77e..a3bb78d 100644
--- a/gcc/testsuite/gfortran.dg/derived_comp_array_ref_3.f90
+++ b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_3.f90
@@ -26,4 +26,3 @@ END MODULE cdf_nc_chisq_mod
   use cdf_nc_chisq_mod
   call local_cum_nc_chisq
 end
-! { dg-final { cleanup-modules "cdf_nc_chisq_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_comp_array_ref_4.f90 b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_4.f90
index 0c78539..1fe03fc 100644
--- a/gcc/testsuite/gfortran.dg/derived_comp_array_ref_4.f90
+++ b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_4.f90
@@ -35,4 +35,3 @@ end module gfcbug70
   call chk (2)
   call chk (1)
 end
-! { dg-final { cleanup-modules "foo gfcbug70" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_comp_array_ref_6.f90 b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_6.f90
index 36a3067..c0fb7c8 100644
--- a/gcc/testsuite/gfortran.dg/derived_comp_array_ref_6.f90
+++ b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_6.f90
@@ -23,5 +23,3 @@
           CALL set_bound(the_beta%parameters(1:which)) ! { dg-error "Rank mismatch" }
       END SUBROUTINE cdf_beta
     END MODULE cdf_beta_mod
-
-! { dg-final { cleanup-modules "cdf_aux_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_constructor_comps_1.f90 b/gcc/testsuite/gfortran.dg/derived_constructor_comps_1.f90
index 83d1279..1c02a31 100644
--- a/gcc/testsuite/gfortran.dg/derived_constructor_comps_1.f90
+++ b/gcc/testsuite/gfortran.dg/derived_constructor_comps_1.f90
@@ -54,4 +54,3 @@ contains
   end function foo
 
 end program prog
-! { dg-final { cleanup-modules "foo_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_constructor_comps_3.f90 b/gcc/testsuite/gfortran.dg/derived_constructor_comps_3.f90
index 0aa2e4e..9ce03be 100644
--- a/gcc/testsuite/gfortran.dg/derived_constructor_comps_3.f90
+++ b/gcc/testsuite/gfortran.dg/derived_constructor_comps_3.f90
@@ -19,4 +19,3 @@ program bug4_structure
    t = bug4()
    write(*,*) t
 end program bug4_structure
-! { dg-final { cleanup-modules "bug4_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90 b/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90
index b7ee4df..24a0095 100644
--- a/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90
+++ b/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90
@@ -42,4 +42,3 @@ contains
   end function fun  ! { dg-error "Expecting END PROGRAM" }
 
 end
-! { dg-final { cleanup-modules "kinds" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_init_2.f90 b/gcc/testsuite/gfortran.dg/derived_init_2.f90
index 18d7544..10a16b5 100644
--- a/gcc/testsuite/gfortran.dg/derived_init_2.f90
+++ b/gcc/testsuite/gfortran.dg/derived_init_2.f90
@@ -45,4 +45,3 @@ program main
     call foo(aa)

 end program main

 

-! { dg-final { cleanup-modules "dt subs" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_pointer_recursion.f90 b/gcc/testsuite/gfortran.dg/derived_pointer_recursion.f90
index 4af2cee..4f4b70a 100644
--- a/gcc/testsuite/gfortran.dg/derived_pointer_recursion.f90
+++ b/gcc/testsuite/gfortran.dg/derived_pointer_recursion.f90
@@ -19,5 +19,3 @@
    end module llo
 !  copyright 1996 Loren P. Meissner -- May be distributed if this line is included.
 !  Linked List operations with Pointer to Pointer
-
-! { dg-final { cleanup-modules "llo" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_pointer_recursion_2.f90 b/gcc/testsuite/gfortran.dg/derived_pointer_recursion_2.f90
index f6bda4d..675be1b 100644
--- a/gcc/testsuite/gfortran.dg/derived_pointer_recursion_2.f90
+++ b/gcc/testsuite/gfortran.dg/derived_pointer_recursion_2.f90
@@ -43,6 +43,3 @@ program pr40594
   if (ap%initialized .neqv. .false.) call abort()
 
 END
-
-! { dg-final { cleanup-modules "atom_types" } }
-
diff --git a/gcc/testsuite/gfortran.dg/derived_recursion.f90 b/gcc/testsuite/gfortran.dg/derived_recursion.f90
index d0c0ea8..d52732f 100644
--- a/gcc/testsuite/gfortran.dg/derived_recursion.f90
+++ b/gcc/testsuite/gfortran.dg/derived_recursion.f90
@@ -22,5 +22,3 @@ end module snafu
 !  use snafu
 !  foo%v = 1
 !  end
-
-! { dg-final { cleanup-modules "snafu" } }
diff --git a/gcc/testsuite/gfortran.dg/derived_sub.f90 b/gcc/testsuite/gfortran.dg/derived_sub.f90
index 9b66245..1750ada 100644
--- a/gcc/testsuite/gfortran.dg/derived_sub.f90
+++ b/gcc/testsuite/gfortran.dg/derived_sub.f90
@@ -31,4 +31,3 @@ contains
   end subroutine 
 
 end module
-! { dg-final { cleanup-modules "modone modtwo" } }
diff --git a/gcc/testsuite/gfortran.dg/dummy_functions_1.f90 b/gcc/testsuite/gfortran.dg/dummy_functions_1.f90
index 8076cf9..dfcf644 100644
--- a/gcc/testsuite/gfortran.dg/dummy_functions_1.f90
+++ b/gcc/testsuite/gfortran.dg/dummy_functions_1.f90
@@ -34,5 +34,3 @@ program test
    use innerfun
    call foo(3,f)
 end program test
-
-! { dg-final { cleanup-modules "innerfun outerfun" } }
diff --git a/gcc/testsuite/gfortran.dg/dummy_procedure_1.f90 b/gcc/testsuite/gfortran.dg/dummy_procedure_1.f90
index 55107b6..564aff2 100644
--- a/gcc/testsuite/gfortran.dg/dummy_procedure_1.f90
+++ b/gcc/testsuite/gfortran.dg/dummy_procedure_1.f90
@@ -48,5 +48,3 @@ contains
     w = 1
   end function w
 end
-
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/dummy_procedure_2.f90 b/gcc/testsuite/gfortran.dg/dummy_procedure_2.f90
index b589808..dd609bd 100644
--- a/gcc/testsuite/gfortran.dg/dummy_procedure_2.f90
+++ b/gcc/testsuite/gfortran.dg/dummy_procedure_2.f90
@@ -31,4 +31,3 @@ contains
     print *,integrate (g,0d0,3d0)
   end subroutine foo2
 end
-! { dg-final { cleanup-modules "integrator" } }
diff --git a/gcc/testsuite/gfortran.dg/dummy_procedure_3.f90 b/gcc/testsuite/gfortran.dg/dummy_procedure_3.f90
index cde2f01..2a17b06 100644
--- a/gcc/testsuite/gfortran.dg/dummy_procedure_3.f90
+++ b/gcc/testsuite/gfortran.dg/dummy_procedure_3.f90
@@ -36,5 +36,3 @@ contains
     end do
   end function
 end
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/dummy_procedure_4.f90 b/gcc/testsuite/gfortran.dg/dummy_procedure_4.f90
index 498685b..8c1e554 100644
--- a/gcc/testsuite/gfortran.dg/dummy_procedure_4.f90
+++ b/gcc/testsuite/gfortran.dg/dummy_procedure_4.f90
@@ -44,5 +44,3 @@ contains
   end subroutine
 
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/dummy_procedure_6.f90 b/gcc/testsuite/gfortran.dg/dummy_procedure_6.f90
index fa9ebfe..dfd51d6 100644
--- a/gcc/testsuite/gfortran.dg/dummy_procedure_6.f90
+++ b/gcc/testsuite/gfortran.dg/dummy_procedure_6.f90
@@ -67,5 +67,3 @@ contains
   end subroutine
 
 end program
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/dummy_procedure_7.f90 b/gcc/testsuite/gfortran.dg/dummy_procedure_7.f90
index 32cd65a..0e5b7d9 100644
--- a/gcc/testsuite/gfortran.dg/dummy_procedure_7.f90
+++ b/gcc/testsuite/gfortran.dg/dummy_procedure_7.f90
@@ -61,5 +61,3 @@ program test
         call sol(cost)
         if (icheck /= 1) call abort ()
 end program test
-
-! { dg-final { cleanup-modules "t tt check" } }
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_1.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_1.f03
index 2182dce..c07b189 100644
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_1.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_1.f03
@@ -76,4 +76,3 @@ end module m
   if (a%prod() .ne. 42) call abort
   if (a%extract (4) .ne. 168) call abort
 end
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_10.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_10.f03
index 21cf140..2831b08 100644
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_10.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_10.f03
@@ -167,5 +167,3 @@ program main
   end do
 
 end
-
-! { dg-final { cleanup-modules "basestrategy laxwendroffstrategy kestrategy" } }
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_11.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_11.f03
index e4abcb2..a4fb39a 100644
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_11.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_11.f03
@@ -30,6 +30,3 @@ end module
   allocate(a)
   if (a%get()/=1) call abort()
 end
-
-
-! { dg-final { cleanup-modules "mod1 mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_2.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_2.f03
index 95ce837..c30ce6a 100644
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_2.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_2.f03
@@ -94,4 +94,3 @@ end module m
   call a%extract (4, i)
   if (i .ne. 168) call abort
 end
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_3.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_3.f03
index 884d342..41c784d 100644
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_3.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_3.f03
@@ -83,4 +83,3 @@ end module m2
   if (a%prod() .ne. 42) call abort
   if (a%extract (4) .ne. 168) call abort
 end
-! { dg-final { cleanup-modules "m1, m2" } }
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_4.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_4.f03
index b72819a..b31f910 100644
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_4.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_4.f03
@@ -92,5 +92,3 @@ end module a_bar_mod
   call a%doit
   if (a%getit () .ne. 3) call abort
 end
-! { dg-final { cleanup-modules "foo_mod s_bar_mod a_bar_mod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_5.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_5.f03
index 9cc16bc..dee6aae 100644
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_5.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_5.f03
@@ -183,5 +183,3 @@ end module s_mat_mod
     call a%scal (1.0_spk_, info)
     if (info .ne. 700) call abort
 end
-! { dg-final { cleanup-modules "const_mod base_mat_mod s_base_mat_mod s_mat_mod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_6.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_6.f03
index e2d880e..e54966b 100644
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_6.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_6.f03
@@ -65,5 +65,3 @@ program main
   allocate (periodic_5th_factory ::  field_creator) 
   u => field_creator%create() 
 end program
-
-! { dg-final { cleanup-modules "field_module periodic_5th_order_module field_factory_module periodic_5th_factory_module" } }
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_7.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_7.f03
index 3cd0510..89ed05c 100644
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_7.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_7.f03
@@ -56,6 +56,4 @@ end module
   z%a => y
   if ((z%sizeof() .ne. 2) .or. (z%a%sizeof() .ne. 2)) call abort
 end
-
-! { dg-final { cleanup-modules "m1 m2 m3" } }
  	
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_8.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_8.f03
index 4f3d806..889cd33 100644
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_8.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_8.f03
@@ -103,6 +103,3 @@ program testd10
   if (a%getit() .ne. 3) call abort
 
 end program testd10
-
-! { dg-final { cleanup-modules "foo_mod foo2_mod bar_mod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_9.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_9.f03
index bf6a3d5..9541fa8 100644
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_9.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_9.f03
@@ -49,6 +49,3 @@ end
  if (o2%gen(3) .ne. 9) call abort
 
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/elemental_args_check_2.f90 b/gcc/testsuite/gfortran.dg/elemental_args_check_2.f90
index e8b4293..51e69a4 100644
--- a/gcc/testsuite/gfortran.dg/elemental_args_check_2.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_args_check_2.f90
@@ -17,4 +17,3 @@ CONTAINS
    END INTERFACE
  END SUBROUTINE S1
 END MODULE M1
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/elemental_dependency_2.f90 b/gcc/testsuite/gfortran.dg/elemental_dependency_2.f90
index 2282e88..348c6c7 100644
--- a/gcc/testsuite/gfortran.dg/elemental_dependency_2.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_dependency_2.f90
@@ -32,5 +32,3 @@ contains
       call add (c   , b   )
   end subroutine foo
 end module gfcbug82
-
-! { dg-final { cleanup-modules "gfcbug82" } }
diff --git a/gcc/testsuite/gfortran.dg/elemental_initializer_1.f90 b/gcc/testsuite/gfortran.dg/elemental_initializer_1.f90
index 0e717c9..7280e25 100644
--- a/gcc/testsuite/gfortran.dg/elemental_initializer_1.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_initializer_1.f90
@@ -31,5 +31,3 @@ contains
   end function len_
 
 end module iso_varying_string
-
-! { dg-final { cleanup-modules "iso_varying_string" } }
diff --git a/gcc/testsuite/gfortran.dg/elemental_non_intrinsic_dummy_1.f90 b/gcc/testsuite/gfortran.dg/elemental_non_intrinsic_dummy_1.f90
index b9404a0..c14a5d8 100644
--- a/gcc/testsuite/gfortran.dg/elemental_non_intrinsic_dummy_1.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_non_intrinsic_dummy_1.f90
@@ -19,5 +19,3 @@ INTEGER FUNCTION SUB(XX)
   INTEGER :: XX
   SUB=XX()
 END
-
-! { dg-final { cleanup-modules "tt" } }
diff --git a/gcc/testsuite/gfortran.dg/elemental_pointer_1.f90 b/gcc/testsuite/gfortran.dg/elemental_pointer_1.f90
index bce3452..b5d9961 100644
--- a/gcc/testsuite/gfortran.dg/elemental_pointer_1.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_pointer_1.f90
@@ -9,5 +9,3 @@ CONTAINS
     POINTER  :: LL ! { dg-error " POINTER attribute conflicts with ELEMENTAL attribute" }
   END FUNCTION LL
 END MODULE Test
-
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/elemental_result_1.f90 b/gcc/testsuite/gfortran.dg/elemental_result_1.f90
index 09f785a..5663039 100644
--- a/gcc/testsuite/gfortran.dg/elemental_result_1.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_result_1.f90
@@ -18,4 +18,3 @@ CONTAINS
     INTEGER, pointer  :: MM ! { dg-error "conflicts with ELEMENTAL" }
   END FUNCTION MM
 END MODULE Test
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/elemental_scalar_args_1.f90 b/gcc/testsuite/gfortran.dg/elemental_scalar_args_1.f90
index d180bc9..4e2a21e 100644
--- a/gcc/testsuite/gfortran.dg/elemental_scalar_args_1.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_scalar_args_1.f90
@@ -84,4 +84,3 @@ contains
     if (any (b .ne. real_one)) call abort   
   end subroutine test_real
 end program main
-! { dg-final { cleanup-modules "polar_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/elemental_subroutine_1.f90 b/gcc/testsuite/gfortran.dg/elemental_subroutine_1.f90
index 802d1ed..a19a780 100644
--- a/gcc/testsuite/gfortran.dg/elemental_subroutine_1.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_subroutine_1.f90
@@ -58,5 +58,3 @@ contains
     b = -a
   end subroutine foobar
 end
-
-! { dg-final { cleanup-modules "pr22146" } }
diff --git a/gcc/testsuite/gfortran.dg/elemental_subroutine_2.f90 b/gcc/testsuite/gfortran.dg/elemental_subroutine_2.f90
index e958311..b7d9afe 100644
--- a/gcc/testsuite/gfortran.dg/elemental_subroutine_2.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_subroutine_2.f90
@@ -62,5 +62,3 @@ program test_assign
   if (any(reshape (i, (/4/)).ne.(/1,8,27,64/))) call abort ()
 
 end program test_assign
-
-! { dg-final { cleanup-modules "type assign" } }
diff --git a/gcc/testsuite/gfortran.dg/elemental_subroutine_3.f90 b/gcc/testsuite/gfortran.dg/elemental_subroutine_3.f90
index 1f93cd4..22c0b20 100644
--- a/gcc/testsuite/gfortran.dg/elemental_subroutine_3.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_subroutine_3.f90
@@ -48,6 +48,3 @@ program test
    y = reshape (z, (/6/))
    if (any(y%x .ne. (/ 64000, 128000, 19200, 64, 128000, 256000/))) call abort ()
 end program test
-
-! { dg-final { cleanup-modules "elem_assign" } }
-
diff --git a/gcc/testsuite/gfortran.dg/elemental_subroutine_4.f90 b/gcc/testsuite/gfortran.dg/elemental_subroutine_4.f90
index 9d2bc49..6258104 100644
--- a/gcc/testsuite/gfortran.dg/elemental_subroutine_4.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_subroutine_4.f90
@@ -34,5 +34,3 @@ CONTAINS
      INTEGER, INTENT(IN) :: I,J
    END SUBROUTINE S
 END
-
-! { dg-final { cleanup-modules "elem_assign" } }
diff --git a/gcc/testsuite/gfortran.dg/elemental_subroutine_6.f90 b/gcc/testsuite/gfortran.dg/elemental_subroutine_6.f90
index 44577c8..d268337 100644
--- a/gcc/testsuite/gfortran.dg/elemental_subroutine_6.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_subroutine_6.f90
@@ -22,4 +22,3 @@ CONTAINS
     out(1, 1:42) = in(1, 1:42)
   END SUBROUTINE
 END MODULE foo
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/empty_derived_type.f90 b/gcc/testsuite/gfortran.dg/empty_derived_type.f90
index d6fad12..6bf616c 100644
--- a/gcc/testsuite/gfortran.dg/empty_derived_type.f90
+++ b/gcc/testsuite/gfortran.dg/empty_derived_type.f90
@@ -5,5 +5,3 @@ module stuff
       ! Empty!
    end type junk
 end module stuff 
-
-! { dg-final { cleanup-modules "stuff" } }
diff --git a/gcc/testsuite/gfortran.dg/entry_1.f90 b/gcc/testsuite/gfortran.dg/entry_1.f90
index c9048a0..dae868e 100644
--- a/gcc/testsuite/gfortran.dg/entry_1.f90
+++ b/gcc/testsuite/gfortran.dg/entry_1.f90
@@ -43,5 +43,3 @@ program p
   call test1 ()
   call test2 ()
 end program
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/entry_10.f90 b/gcc/testsuite/gfortran.dg/entry_10.f90
index 154d44e..dc80c79 100644
--- a/gcc/testsuite/gfortran.dg/entry_10.f90
+++ b/gcc/testsuite/gfortran.dg/entry_10.f90
@@ -33,4 +33,3 @@ end module
   if (e (1.0) .ne. 3.0) call abort ()
   if (f (1  ) .ne. 4.0) call abort ()
 end
-! { dg-final { cleanup-modules "a" } }
diff --git a/gcc/testsuite/gfortran.dg/entry_12.f90 b/gcc/testsuite/gfortran.dg/entry_12.f90
index 5513697..15e874e 100644
--- a/gcc/testsuite/gfortran.dg/entry_12.f90
+++ b/gcc/testsuite/gfortran.dg/entry_12.f90
@@ -28,4 +28,3 @@ END MODULE ksbin1_aux_mod
     if (any ((/foo (), bar (99), foobar (), foobar (99), j (), k (99)/) .ne. &
              (/1, 2, 1, 2, 1, 2/))) Call abort ()
 end
-! { dg-final { cleanup-modules "ksbin1_aux_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/entry_13.f90 b/gcc/testsuite/gfortran.dg/entry_13.f90
index 3a45fc5..1858cc3 100644
--- a/gcc/testsuite/gfortran.dg/entry_13.f90
+++ b/gcc/testsuite/gfortran.dg/entry_13.f90
@@ -76,5 +76,3 @@ program test
   z1 = y1==x1
   if (abs(z1%x - 19.0_4/7.0_4) > epsilon(x1%x)) call abort ()
 end program test
-! { dg-final { cleanup-modules "type_mod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/entry_14.f90 b/gcc/testsuite/gfortran.dg/entry_14.f90
index e0aa000..dfed195 100644
--- a/gcc/testsuite/gfortran.dg/entry_14.f90
+++ b/gcc/testsuite/gfortran.dg/entry_14.f90
@@ -99,5 +99,3 @@ contains
     if(abs(ent(27) + 216.0) > tiny(1.0)) call abort()
   end subroutine test4
 end program main
-
-! { dg-final { cleanup-modules "m1 m2 m3 m4" } }
diff --git a/gcc/testsuite/gfortran.dg/entry_16.f90 b/gcc/testsuite/gfortran.dg/entry_16.f90
index 384d99f..ba8eff8 100644
--- a/gcc/testsuite/gfortran.dg/entry_16.f90
+++ b/gcc/testsuite/gfortran.dg/entry_16.f90
@@ -41,4 +41,3 @@ END MODULE complex
   if (.not.((a + b) .eq. (b + a))) call abort ()
   if (.not.((a + b) .eq. cx (4, 2))) call abort ()
 end
-! { dg-final { cleanup-modules "complex" } }
diff --git a/gcc/testsuite/gfortran.dg/entry_18.f90 b/gcc/testsuite/gfortran.dg/entry_18.f90
index 0cfe842..b9cc417 100644
--- a/gcc/testsuite/gfortran.dg/entry_18.f90
+++ b/gcc/testsuite/gfortran.dg/entry_18.f90
@@ -33,4 +33,3 @@ entry glocalb( x, y )
    y = x
 end subroutine
 end module
-! { dg-final { cleanup-modules "gsub" } }
diff --git a/gcc/testsuite/gfortran.dg/entry_3.f90 b/gcc/testsuite/gfortran.dg/entry_3.f90
index b4473df..36595ee 100644
--- a/gcc/testsuite/gfortran.dg/entry_3.f90
+++ b/gcc/testsuite/gfortran.dg/entry_3.f90
@@ -23,5 +23,3 @@ program entry_4_prog
   call bar(a)
   if (any (a .ne. (/3, 4/))) call abort
 end program
-
-! { dg-final { cleanup-modules "entry_4" } }
diff --git a/gcc/testsuite/gfortran.dg/entry_6.f90 b/gcc/testsuite/gfortran.dg/entry_6.f90
index 1033926..c1d6c7c 100644
--- a/gcc/testsuite/gfortran.dg/entry_6.f90
+++ b/gcc/testsuite/gfortran.dg/entry_6.f90
@@ -52,5 +52,3 @@ end module foo
     if (z1((3,4)) .ne. (-5, 10)) call abort ()
     if (z2((5,6)) .ne. (-9, 38)) call abort ()
  end
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/entry_7.f90 b/gcc/testsuite/gfortran.dg/entry_7.f90
index 6dd87f4..0ffcf34 100644
--- a/gcc/testsuite/gfortran.dg/entry_7.f90
+++ b/gcc/testsuite/gfortran.dg/entry_7.f90
@@ -22,6 +22,3 @@ CONTAINS
     bar = "abcd"
   end function
 END MODULE TT
-
-
-! { dg-final { cleanup-modules "tt" } }
diff --git a/gcc/testsuite/gfortran.dg/entry_9.f90 b/gcc/testsuite/gfortran.dg/entry_9.f90
index 5dcb6e3..ecffcd8 100644
--- a/gcc/testsuite/gfortran.dg/entry_9.f90
+++ b/gcc/testsuite/gfortran.dg/entry_9.f90
@@ -27,5 +27,3 @@ program main
   if (F2(4) /= -4) call abort()
   if (F1(1) /= -1) call abort()
 end program main
-
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/entry_dummy_ref_2.f90 b/gcc/testsuite/gfortran.dg/entry_dummy_ref_2.f90
index 20f1c10..1634e25 100644
--- a/gcc/testsuite/gfortran.dg/entry_dummy_ref_2.f90
+++ b/gcc/testsuite/gfortran.dg/entry_dummy_ref_2.f90
@@ -16,5 +16,3 @@ FUNCTION F1(I) RESULT(RF1)
 END FUNCTION F1
 END  MODULE M1
 END
-
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/enum_10.f90 b/gcc/testsuite/gfortran.dg/enum_10.f90
index 99a1690..b387fe3 100644
--- a/gcc/testsuite/gfortran.dg/enum_10.f90
+++ b/gcc/testsuite/gfortran.dg/enum_10.f90
@@ -60,5 +60,3 @@ call f4 (one4, 1)
 call f4 (two4, 2)
 call f4 (max4, huge(1_4)+0)
 end
-
-! { dg-final { cleanup-modules "enum_10" } }
diff --git a/gcc/testsuite/gfortran.dg/equiv_constraint_3.f90 b/gcc/testsuite/gfortran.dg/equiv_constraint_3.f90
index c39d144..99e9248 100644
--- a/gcc/testsuite/gfortran.dg/equiv_constraint_3.f90
+++ b/gcc/testsuite/gfortran.dg/equiv_constraint_3.f90
@@ -9,5 +9,3 @@ USE TEST, ONLY : K=>I
 INTEGER :: L
 EQUIVALENCE(K,L) ! { dg-error "conflicts with USE ASSOCIATED attribute" }
 END
-
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90 b/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90
index 080cdef..872e05b 100644
--- a/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90
+++ b/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90
@@ -9,4 +9,3 @@
   EQUIVALENCE(I,J)
  END MODULE DATA
  END
-! { dg-final { cleanup-modules "data" } }
diff --git a/gcc/testsuite/gfortran.dg/error_recovery_3.f90 b/gcc/testsuite/gfortran.dg/error_recovery_3.f90
index 35804be..5269903 100644
--- a/gcc/testsuite/gfortran.dg/error_recovery_3.f90
+++ b/gcc/testsuite/gfortran.dg/error_recovery_3.f90
@@ -7,5 +7,3 @@ MODULE M1
 END MODULE M1
 
 USE M1,                    ONLY: I,&! { dg-error "Missing" }
-! { dg-final { cleanup-modules "m1" } }
-
diff --git a/gcc/testsuite/gfortran.dg/extends_1.f03 b/gcc/testsuite/gfortran.dg/extends_1.f03
index 57a5073..bb01728 100644
--- a/gcc/testsuite/gfortran.dg/extends_1.f03
+++ b/gcc/testsuite/gfortran.dg/extends_1.f03
@@ -69,5 +69,3 @@ contains
     new_person%supervisor => supervisor
   end function
 end
-
-! { dg-final { cleanup-modules "persons person_education" } }
diff --git a/gcc/testsuite/gfortran.dg/extends_10.f03 b/gcc/testsuite/gfortran.dg/extends_10.f03
index fbcaa7e..40e928e 100644
--- a/gcc/testsuite/gfortran.dg/extends_10.f03
+++ b/gcc/testsuite/gfortran.dg/extends_10.f03
@@ -30,5 +30,3 @@ program pr
   print *,a%t1%i
   print *,b%u1%j  ! { dg-error "is a PRIVATE component of" }
 end program
-
-! { dg-final { cleanup-modules "mo" } }
diff --git a/gcc/testsuite/gfortran.dg/extends_12.f03 b/gcc/testsuite/gfortran.dg/extends_12.f03
index a93f6d0..972ab3a 100644
--- a/gcc/testsuite/gfortran.dg/extends_12.f03
+++ b/gcc/testsuite/gfortran.dg/extends_12.f03
@@ -20,5 +20,3 @@ program diff_01
   implicit none
   call create_ext()
 end program
-
-! { dg-final { cleanup-modules "mod_diff_01" } }
diff --git a/gcc/testsuite/gfortran.dg/extends_13.f03 b/gcc/testsuite/gfortran.dg/extends_13.f03
index 5d98687..9181004 100644
--- a/gcc/testsuite/gfortran.dg/extends_13.f03
+++ b/gcc/testsuite/gfortran.dg/extends_13.f03
@@ -26,5 +26,3 @@ end module
   use type_definitions
   use elliptical_elements
 end
-
-! { dg-final { cleanup-modules "type_definitions elliptical_elements" } }
diff --git a/gcc/testsuite/gfortran.dg/extends_2.f03 b/gcc/testsuite/gfortran.dg/extends_2.f03
index aabbf66..ca92378 100644
--- a/gcc/testsuite/gfortran.dg/extends_2.f03
+++ b/gcc/testsuite/gfortran.dg/extends_2.f03
@@ -62,5 +62,3 @@ contains
                                 supervisor)
   end function
 end
-
-! { dg-final { cleanup-modules "persons person_education" } }
diff --git a/gcc/testsuite/gfortran.dg/extends_3.f03 b/gcc/testsuite/gfortran.dg/extends_3.f03
index 27ae670..eabac67 100644
--- a/gcc/testsuite/gfortran.dg/extends_3.f03
+++ b/gcc/testsuite/gfortran.dg/extends_3.f03
@@ -67,5 +67,3 @@ contains
                                 SUPERVISOR = supervisor)
   end function
 end
-
-! { dg-final { cleanup-modules "persons person_education" } }
diff --git a/gcc/testsuite/gfortran.dg/extends_4.f03 b/gcc/testsuite/gfortran.dg/extends_4.f03
index 831c9eb..a0c91fd 100644
--- a/gcc/testsuite/gfortran.dg/extends_4.f03
+++ b/gcc/testsuite/gfortran.dg/extends_4.f03
@@ -48,5 +48,3 @@ end module mymod
   q = d (b = set_b (), id = 99)
   call check_b (q%b)
 end
-
-! { dg-final { cleanup-modules "mymod" } }
diff --git a/gcc/testsuite/gfortran.dg/extends_5.f03 b/gcc/testsuite/gfortran.dg/extends_5.f03
index 5146d45..d2b0117 100644
--- a/gcc/testsuite/gfortran.dg/extends_5.f03
+++ b/gcc/testsuite/gfortran.dg/extends_5.f03
@@ -23,5 +23,3 @@ end module m
   type, extends(dt) :: dt_type ! { dg-error "because it is BIND" }
   end type ! { dg-error "Expecting END PROGRAM" }
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/extends_6.f03 b/gcc/testsuite/gfortran.dg/extends_6.f03
index a50a9b7..fd2b9e7 100644
--- a/gcc/testsuite/gfortran.dg/extends_6.f03
+++ b/gcc/testsuite/gfortran.dg/extends_6.f03
@@ -45,5 +45,3 @@ contains
     foo_dt%dt%day = 1 ! { dg-error "not a member" }
   end subroutine
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/extends_7.f03 b/gcc/testsuite/gfortran.dg/extends_7.f03
index ebb2fcc3..35f74d0 100644
--- a/gcc/testsuite/gfortran.dg/extends_7.f03
+++ b/gcc/testsuite/gfortran.dg/extends_7.f03
@@ -21,5 +21,3 @@ MODULE m2
   END TYPE subt
 
 END MODULE m2
-
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/extends_8.f03 b/gcc/testsuite/gfortran.dg/extends_8.f03
index 4af5ab9..0773f32 100644
--- a/gcc/testsuite/gfortran.dg/extends_8.f03
+++ b/gcc/testsuite/gfortran.dg/extends_8.f03
@@ -14,4 +14,3 @@ end module
 use m, only: A
 end
  
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/extends_9.f03 b/gcc/testsuite/gfortran.dg/extends_9.f03
index f59b973..a8d2d1b 100644
--- a/gcc/testsuite/gfortran.dg/extends_9.f03
+++ b/gcc/testsuite/gfortran.dg/extends_9.f03
@@ -33,4 +33,3 @@ END MODULE
 
 END
  
-! { dg-final { cleanup-modules "run_example_fortran03" } }
diff --git a/gcc/testsuite/gfortran.dg/external_procedures_2.f90 b/gcc/testsuite/gfortran.dg/external_procedures_2.f90
index 3f13dac..6566e65 100644
--- a/gcc/testsuite/gfortran.dg/external_procedures_2.f90
+++ b/gcc/testsuite/gfortran.dg/external_procedures_2.f90
@@ -38,4 +38,3 @@ program gfcbug53
   call foo (x0)
   print *, x0
 end program gfcbug53
-! { dg-final { cleanup-modules "mod1 mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/finalize_1.f08 b/gcc/testsuite/gfortran.dg/finalize_1.f08
index e1501ef..391a0f1 100644
--- a/gcc/testsuite/gfortran.dg/finalize_1.f08
+++ b/gcc/testsuite/gfortran.dg/finalize_1.f08
@@ -27,5 +27,3 @@ PROGRAM finalizer
   IMPLICIT NONE
   ! Do nothing here
 END PROGRAM finalizer
-
-! { dg-final { cleanup-modules "final_type" } }
diff --git a/gcc/testsuite/gfortran.dg/finalize_2.f03 b/gcc/testsuite/gfortran.dg/finalize_2.f03
index b91bedf..37b532e 100644
--- a/gcc/testsuite/gfortran.dg/finalize_2.f03
+++ b/gcc/testsuite/gfortran.dg/finalize_2.f03
@@ -19,5 +19,3 @@ PROGRAM finalizer
   IMPLICIT NONE
   ! Do nothing here
 END PROGRAM finalizer
-
-! { dg-final { cleanup-modules "final_type" } }
diff --git a/gcc/testsuite/gfortran.dg/finalize_3.f03 b/gcc/testsuite/gfortran.dg/finalize_3.f03
index edc493b..0d7d34c 100644
--- a/gcc/testsuite/gfortran.dg/finalize_3.f03
+++ b/gcc/testsuite/gfortran.dg/finalize_3.f03
@@ -21,5 +21,3 @@ PROGRAM finalizer
   IMPLICIT NONE
   ! Do nothing here
 END PROGRAM finalizer
-
-! { dg-final { cleanup-modules "final_type" } }
diff --git a/gcc/testsuite/gfortran.dg/finalize_4.f03 b/gcc/testsuite/gfortran.dg/finalize_4.f03
index 6e99256..11e094f 100644
--- a/gcc/testsuite/gfortran.dg/finalize_4.f03
+++ b/gcc/testsuite/gfortran.dg/finalize_4.f03
@@ -51,5 +51,3 @@ END PROGRAM finalizer
 
 ! TODO: Remove this once finalization is implemented.
 ! { dg-excess-errors "not yet implemented" }
-
-! { dg-final { cleanup-modules "final_type" } }
diff --git a/gcc/testsuite/gfortran.dg/finalize_5.f03 b/gcc/testsuite/gfortran.dg/finalize_5.f03
index 1df2d8c..b9ec376 100644
--- a/gcc/testsuite/gfortran.dg/finalize_5.f03
+++ b/gcc/testsuite/gfortran.dg/finalize_5.f03
@@ -110,5 +110,3 @@ END PROGRAM finalizer
 
 ! TODO: Remove this once finalization is implemented.
 ! { dg-excess-errors "not yet implemented" }
-
-! { dg-final { cleanup-modules "final_type" } }
diff --git a/gcc/testsuite/gfortran.dg/finalize_6.f90 b/gcc/testsuite/gfortran.dg/finalize_6.f90
index e790f4e..82d662f 100644
--- a/gcc/testsuite/gfortran.dg/finalize_6.f90
+++ b/gcc/testsuite/gfortran.dg/finalize_6.f90
@@ -31,5 +31,3 @@ END PROGRAM finalizer
 
 ! TODO: Remove this once finalization is implemented.
 ! { dg-excess-errors "not yet implemented" }
-
-! { dg-final { cleanup-modules "final_type" } }
diff --git a/gcc/testsuite/gfortran.dg/finalize_7.f03 b/gcc/testsuite/gfortran.dg/finalize_7.f03
index db6b4be..6ca4f55 100644
--- a/gcc/testsuite/gfortran.dg/finalize_7.f03
+++ b/gcc/testsuite/gfortran.dg/finalize_7.f03
@@ -55,5 +55,3 @@ END PROGRAM finalizer
 
 ! TODO: Remove this once finalization is implemented.
 ! { dg-excess-errors "not yet implemented" }
-
-! { dg-final { cleanup-modules "final_type" } }
diff --git a/gcc/testsuite/gfortran.dg/finalize_8.f03 b/gcc/testsuite/gfortran.dg/finalize_8.f03
index 6a4a135..b2027a0 100644
--- a/gcc/testsuite/gfortran.dg/finalize_8.f03
+++ b/gcc/testsuite/gfortran.dg/finalize_8.f03
@@ -33,5 +33,3 @@ PROGRAM finalizer
   IMPLICIT NONE
   ! Do nothing here
 END PROGRAM finalizer
-
-! { dg-final { cleanup-modules "final_type" } }
diff --git a/gcc/testsuite/gfortran.dg/forall_4.f90 b/gcc/testsuite/gfortran.dg/forall_4.f90
index e71e0b8..0b0d731 100644
--- a/gcc/testsuite/gfortran.dg/forall_4.f90
+++ b/gcc/testsuite/gfortran.dg/forall_4.f90
@@ -64,4 +64,3 @@ contains
     w = 5 - i
   end function w
 end
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/forall_5.f90 b/gcc/testsuite/gfortran.dg/forall_5.f90
index 1d9efb90..43ed2b5 100644
--- a/gcc/testsuite/gfortran.dg/forall_5.f90
+++ b/gcc/testsuite/gfortran.dg/forall_5.f90
@@ -38,4 +38,3 @@ contains
     w = 5 - i
   end function w
 end
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/func_assign.f90 b/gcc/testsuite/gfortran.dg/func_assign.f90
index 430198b..7ecf329 100644
--- a/gcc/testsuite/gfortran.dg/func_assign.f90
+++ b/gcc/testsuite/gfortran.dg/func_assign.f90
@@ -31,5 +31,3 @@ contains
 end module mod
 
 end
-
-! { dg-final { cleanup-modules "mod" } }
diff --git a/gcc/testsuite/gfortran.dg/func_assign_3.f90 b/gcc/testsuite/gfortran.dg/func_assign_3.f90
index 7846c87..db81adf 100644
--- a/gcc/testsuite/gfortran.dg/func_assign_3.f90
+++ b/gcc/testsuite/gfortran.dg/func_assign_3.f90
@@ -29,4 +29,3 @@ program bugTest
   testCatch = testObj%test(2,2)  ! This would cause an ICE
   if (any (testCatch .ne. dble (reshape ([(i, i = 1, 4)],[2,2])))) call abort
 end program bugTest
-! { dg-final { cleanup-modules "bugtestmod" } }
diff --git a/gcc/testsuite/gfortran.dg/func_derived_1.f90 b/gcc/testsuite/gfortran.dg/func_derived_1.f90
index 2cf8e44..c8820aa 100644
--- a/gcc/testsuite/gfortran.dg/func_derived_1.f90
+++ b/gcc/testsuite/gfortran.dg/func_derived_1.f90
@@ -38,5 +38,3 @@ function f(i,x,c,arr)
 end function f
 
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/func_derived_2.f90 b/gcc/testsuite/gfortran.dg/func_derived_2.f90
index 3586018..d79f120 100644
--- a/gcc/testsuite/gfortran.dg/func_derived_2.f90
+++ b/gcc/testsuite/gfortran.dg/func_derived_2.f90
@@ -38,5 +38,3 @@ program func_derived_2
   y => get2 (x)
   if (y%i.ne.112) call abort ()
 end program func_derived_2
-
-! { dg-final { cleanup-modules "mpoint" } }
diff --git a/gcc/testsuite/gfortran.dg/func_derived_3.f90 b/gcc/testsuite/gfortran.dg/func_derived_3.f90
index 6facf21..a271fe9 100644
--- a/gcc/testsuite/gfortran.dg/func_derived_3.f90
+++ b/gcc/testsuite/gfortran.dg/func_derived_3.f90
@@ -123,5 +123,3 @@ end module func_derived_3a
   if (trim (line).ne."simple  =     1") call abort ()
   close (10)
 end program
-
-! { dg-final { cleanup-modules "func_derived_3 func_derived_3a" } }
diff --git a/gcc/testsuite/gfortran.dg/func_derived_4.f90 b/gcc/testsuite/gfortran.dg/func_derived_4.f90
index 532d821..0356023 100644
--- a/gcc/testsuite/gfortran.dg/func_derived_4.f90
+++ b/gcc/testsuite/gfortran.dg/func_derived_4.f90
@@ -101,5 +101,3 @@ program test_pnt
   call create_field(quality,msh)
   mshp => msh_(quality)
 end program test_pnt
-
-! { dg-final { cleanup-modules "class_mesh class_field class_scalar_field" } }
diff --git a/gcc/testsuite/gfortran.dg/func_derived_5.f90 b/gcc/testsuite/gfortran.dg/func_derived_5.f90
index 76d45a8..d4e7b7c 100644
--- a/gcc/testsuite/gfortran.dg/func_derived_5.f90
+++ b/gcc/testsuite/gfortran.dg/func_derived_5.f90
@@ -10,5 +10,3 @@ type(t) function foo()
   use m
   foo = t()
 end function foo
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/func_result_6.f90 b/gcc/testsuite/gfortran.dg/func_result_6.f90
index e64a2ef..48b34f3 100644
--- a/gcc/testsuite/gfortran.dg/func_result_6.f90
+++ b/gcc/testsuite/gfortran.dg/func_result_6.f90
@@ -69,5 +69,3 @@ contains
     foo = [33, 77]
   end function foo
 end subroutine test
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/function_charlen_1.f90 b/gcc/testsuite/gfortran.dg/function_charlen_1.f90
index e0ecc63..40f602f 100644
--- a/gcc/testsuite/gfortran.dg/function_charlen_1.f90
+++ b/gcc/testsuite/gfortran.dg/function_charlen_1.f90
@@ -20,4 +20,3 @@ end function test
   end interface
   print *, test()
 end
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/function_charlen_2.f90 b/gcc/testsuite/gfortran.dg/function_charlen_2.f90
index 84d3d7e..5713c30 100644
--- a/gcc/testsuite/gfortran.dg/function_charlen_2.f90
+++ b/gcc/testsuite/gfortran.dg/function_charlen_2.f90
@@ -28,4 +28,3 @@ contains
     if (len (g) == 2) g= "2"
   end function g
 end program test
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/function_kinds_1.f90 b/gcc/testsuite/gfortran.dg/function_kinds_1.f90
index f0140df..7d14374 100644
--- a/gcc/testsuite/gfortran.dg/function_kinds_1.f90
+++ b/gcc/testsuite/gfortran.dg/function_kinds_1.f90
@@ -51,4 +51,3 @@ end module mymodule
   z = func()
   if (z%i .ne. 5) call abort ()
 end
-! { dg-final { cleanup-modules "kinds mymodule" } }
diff --git a/gcc/testsuite/gfortran.dg/function_kinds_2.f90 b/gcc/testsuite/gfortran.dg/function_kinds_2.f90
index f14453d..8282f01 100644
--- a/gcc/testsuite/gfortran.dg/function_kinds_2.f90
+++ b/gcc/testsuite/gfortran.dg/function_kinds_2.f90
@@ -17,5 +17,3 @@ module x
    end function
  end interface
 end module
-! { dg-final { cleanup-modules "types x" } }
-
diff --git a/gcc/testsuite/gfortran.dg/function_kinds_3.f90 b/gcc/testsuite/gfortran.dg/function_kinds_3.f90
index b1dd2b4..db95729 100644
--- a/gcc/testsuite/gfortran.dg/function_kinds_3.f90
+++ b/gcc/testsuite/gfortran.dg/function_kinds_3.f90
@@ -27,5 +27,3 @@ character(1,kind=char_t) function test4()
   use m
   test4 = 'A'
 end function test4
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/function_kinds_4.f90 b/gcc/testsuite/gfortran.dg/function_kinds_4.f90
index bcde1e4..d0e48f6 100644
--- a/gcc/testsuite/gfortran.dg/function_kinds_4.f90
+++ b/gcc/testsuite/gfortran.dg/function_kinds_4.f90
@@ -53,4 +53,3 @@ contains
    two = 1
  end function two
 end program main
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/function_optimize_8.f90 b/gcc/testsuite/gfortran.dg/function_optimize_8.f90
index c197a6d..56e48c5 100644
--- a/gcc/testsuite/gfortran.dg/function_optimize_8.f90
+++ b/gcc/testsuite/gfortran.dg/function_optimize_8.f90
@@ -33,4 +33,3 @@ end program main
 ! { dg-final { scan-tree-dump-times "myfunc" 2 "original" } }
 ! { dg-final { scan-tree-dump-times "mychar" 2 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "x" } }
diff --git a/gcc/testsuite/gfortran.dg/function_types_1.f90 b/gcc/testsuite/gfortran.dg/function_types_1.f90
index fb18d2f..f56884f 100644
--- a/gcc/testsuite/gfortran.dg/function_types_1.f90
+++ b/gcc/testsuite/gfortran.dg/function_types_1.f90
@@ -9,4 +9,3 @@ contains
   type(non_exist) function func2() ! { dg-error "not accessible" }
   end function func2
 end module bar
-! { dg-final { cleanup-modules "bar" } }
diff --git a/gcc/testsuite/gfortran.dg/function_types_2.f90 b/gcc/testsuite/gfortran.dg/function_types_2.f90
index b3b5a0a..0c16039 100644
--- a/gcc/testsuite/gfortran.dg/function_types_2.f90
+++ b/gcc/testsuite/gfortran.dg/function_types_2.f90
@@ -101,4 +101,3 @@ contains
     d1%m = 55
   end function d1
 end program main
-! { dg-final { cleanup-modules "m1 m2 m3" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_1.f90 b/gcc/testsuite/gfortran.dg/generic_1.f90
index 6a7a6df..1cbf4bb 100644
--- a/gcc/testsuite/gfortran.dg/generic_1.f90
+++ b/gcc/testsuite/gfortran.dg/generic_1.f90
@@ -17,5 +17,3 @@ end module
 subroutine BAZ(X)
   use FOO
 end subroutine
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_10.f90 b/gcc/testsuite/gfortran.dg/generic_10.f90
index 8f9ff6f..6684c4f 100644
--- a/gcc/testsuite/gfortran.dg/generic_10.f90
+++ b/gcc/testsuite/gfortran.dg/generic_10.f90
@@ -33,4 +33,3 @@ end module gfcbug46
   call random_number (z)
   print *, z
 end
-! { dg-final { cleanup-modules "gfcbug46" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_11.f90 b/gcc/testsuite/gfortran.dg/generic_11.f90
index 7547a43..decc0ae 100644
--- a/gcc/testsuite/gfortran.dg/generic_11.f90
+++ b/gcc/testsuite/gfortran.dg/generic_11.f90
@@ -26,6 +26,3 @@ use m_bar
 
 call foo ! { dg-error "is an ambiguous reference" } 
 end
-! { dg-final { cleanup-modules "m_foo m_bar" } }
-
-
diff --git a/gcc/testsuite/gfortran.dg/generic_12.f90 b/gcc/testsuite/gfortran.dg/generic_12.f90
index 59c3c96..007f3ee 100644
--- a/gcc/testsuite/gfortran.dg/generic_12.f90
+++ b/gcc/testsuite/gfortran.dg/generic_12.f90
@@ -29,4 +29,3 @@ PROGRAM main
   IMPLICIT NONE
   CALL hello(10)
 END PROGRAM main
-! { dg-final { cleanup-modules "interfaces global_module" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_13.f90 b/gcc/testsuite/gfortran.dg/generic_13.f90
index 5661345..58b886d 100644
--- a/gcc/testsuite/gfortran.dg/generic_13.f90
+++ b/gcc/testsuite/gfortran.dg/generic_13.f90
@@ -33,4 +33,3 @@ PROGRAM TT
  CALL SUB(xx,I)
  IF (I.NE.7) CALL ABORT()
 END PROGRAM
-! { dg-final { cleanup-modules "test too" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_14.f90 b/gcc/testsuite/gfortran.dg/generic_14.f90
index e95f6f2..5636e9a 100644
--- a/gcc/testsuite/gfortran.dg/generic_14.f90
+++ b/gcc/testsuite/gfortran.dg/generic_14.f90
@@ -101,5 +101,3 @@ module h
 end module h
 
 end
-
-! { dg-final { cleanup-modules "a inclmod" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_15.f90 b/gcc/testsuite/gfortran.dg/generic_15.f90
index 1278684..179d04a 100644
--- a/gcc/testsuite/gfortran.dg/generic_15.f90
+++ b/gcc/testsuite/gfortran.dg/generic_15.f90
@@ -41,4 +41,3 @@ PROGRAM main
   CALL odfname(base,i,cnames)
   if (trim (cnames(1)) .ne. "odfamilycnames") call abort
 END PROGRAM
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_16.f90 b/gcc/testsuite/gfortran.dg/generic_16.f90
index 501e146..cb6e34d 100644
--- a/gcc/testsuite/gfortran.dg/generic_16.f90
+++ b/gcc/testsuite/gfortran.dg/generic_16.f90
@@ -32,4 +32,3 @@ PROGRAM main
   REAL(kind=dp) :: rawData(2), data, work(3)
   data = median(rawData, work) ! { dg-error "no specific function" }
 END PROGRAM main
-! { dg-final { cleanup-modules "auxiliary" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_17.f90 b/gcc/testsuite/gfortran.dg/generic_17.f90
index 0e9a41d..bd919bc 100644
--- a/gcc/testsuite/gfortran.dg/generic_17.f90
+++ b/gcc/testsuite/gfortran.dg/generic_17.f90
@@ -37,4 +37,3 @@ end module foo_mod
 subroutine s_foobar2(x)  

   use foo_mod

 end subroutine s_foobar2

-! { dg-final { cleanup-modules "s_foo_mod d_foo_mod foo_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_18.f90 b/gcc/testsuite/gfortran.dg/generic_18.f90
index 695262b..8bfd770 100644
--- a/gcc/testsuite/gfortran.dg/generic_18.f90
+++ b/gcc/testsuite/gfortran.dg/generic_18.f90
@@ -51,4 +51,3 @@ END PROGRAM MakeAChoice
 ! { dg-final { scan-tree-dump-times "specproc" 3 "original" } }
 ! { dg-final { scan-tree-dump-times "elemproc" 3 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "someoptions" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_19.f90 b/gcc/testsuite/gfortran.dg/generic_19.f90
index f023c5e..8bbbf8a 100644
--- a/gcc/testsuite/gfortran.dg/generic_19.f90
+++ b/gcc/testsuite/gfortran.dg/generic_19.f90
@@ -34,4 +34,3 @@ program prog
   call sub(1, "integer ")
   call sub(1.0, "real    ")
 end program prog
-! { dg-final { cleanup-modules "mod1 mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_2.f90 b/gcc/testsuite/gfortran.dg/generic_2.f90
index 459dd7e..802e966 100644
--- a/gcc/testsuite/gfortran.dg/generic_2.f90
+++ b/gcc/testsuite/gfortran.dg/generic_2.f90
@@ -18,5 +18,3 @@ end module bidon
  integer,intent(in) :: nspden 
  
  end subroutine nonlinear
-
-! { dg-final { cleanup-modules "bidon" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_20.f90 b/gcc/testsuite/gfortran.dg/generic_20.f90
index 04a57b0..83485b6 100644
--- a/gcc/testsuite/gfortran.dg/generic_20.f90
+++ b/gcc/testsuite/gfortran.dg/generic_20.f90
@@ -27,5 +27,3 @@ real :: res(1)
 res = matmul (one(2.0), (/ 2.0/))
 if (abs (res(1)-4.0) > epsilon (res)) call abort ()
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_21.f90 b/gcc/testsuite/gfortran.dg/generic_21.f90
index c651e63..b11aa7f 100644
--- a/gcc/testsuite/gfortran.dg/generic_21.f90
+++ b/gcc/testsuite/gfortran.dg/generic_21.f90
@@ -29,5 +29,3 @@ contains
     end do
   end function sqrt_vector
 end module gfcbug102
-
-! { dg-final { cleanup-modules "gfcbug102" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_22.f03 b/gcc/testsuite/gfortran.dg/generic_22.f03
index 487d93c..040fddd 100644
--- a/gcc/testsuite/gfortran.dg/generic_22.f03
+++ b/gcc/testsuite/gfortran.dg/generic_22.f03
@@ -35,4 +35,3 @@ contains
 
 
 end module base_mod
-! { dg-final { cleanup-modules "base_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_23.f03 b/gcc/testsuite/gfortran.dg/generic_23.f03
index eab185b..94dbbbc 100644
--- a/gcc/testsuite/gfortran.dg/generic_23.f03
+++ b/gcc/testsuite/gfortran.dg/generic_23.f03
@@ -63,5 +63,3 @@ program testd15
   if (af2%get() .ne. 3) call abort
 
 end program testd15
-
-! { dg-final { cleanup-modules "foo_mod foo2_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_24.f90 b/gcc/testsuite/gfortran.dg/generic_24.f90
index 2388722..18ca81c 100644
--- a/gcc/testsuite/gfortran.dg/generic_24.f90
+++ b/gcc/testsuite/gfortran.dg/generic_24.f90
@@ -96,5 +96,3 @@ program test
   use sparse_matrices_fields
   use global_numbering
 end program test
-
-! { dg-final { cleanup-modules "sparse_tools sparse_matrices_fields global_numbering" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_3.f90 b/gcc/testsuite/gfortran.dg/generic_3.f90
index 5492603..3cd2e9d 100644
--- a/gcc/testsuite/gfortran.dg/generic_3.f90
+++ b/gcc/testsuite/gfortran.dg/generic_3.f90
@@ -28,5 +28,3 @@ subroutine mrqcof( x, y, sig, ndata, a, ia, ma )
      call gauss( x(i), a, yan, dyda, ma )
   end do
 end subroutine mrqcof
-
-! { dg-final { cleanup-modules "fit_functions" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_4.f90 b/gcc/testsuite/gfortran.dg/generic_4.f90
index 53cf900..62bc569 100644
--- a/gcc/testsuite/gfortran.dg/generic_4.f90
+++ b/gcc/testsuite/gfortran.dg/generic_4.f90
@@ -26,5 +26,3 @@ y = (/1,2,3/)
 call baz(y,z)
 if (any (y /= z)) call abort ()
 end
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_5.f90 b/gcc/testsuite/gfortran.dg/generic_5.f90
index cb72098..f7a9a97 100644
--- a/gcc/testsuite/gfortran.dg/generic_5.f90
+++ b/gcc/testsuite/gfortran.dg/generic_5.f90
@@ -26,4 +26,3 @@ CONTAINS
     CALL ice(23.0)   ! { dg-error "no specific subroutine" }
   END SUBROUTINE
 END MODULE
-! { dg-final { cleanup-modules "ice_gfortran provoke_ice" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_6.f90 b/gcc/testsuite/gfortran.dg/generic_6.f90
index 928861e..5a8bc03 100644
--- a/gcc/testsuite/gfortran.dg/generic_6.f90
+++ b/gcc/testsuite/gfortran.dg/generic_6.f90
@@ -46,4 +46,3 @@ end module
   use c
   call useCreate
 end
-! { dg-final { cleanup-modules "a b c" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_7.f90 b/gcc/testsuite/gfortran.dg/generic_7.f90
index e520c09..7b9db24 100644
--- a/gcc/testsuite/gfortran.dg/generic_7.f90
+++ b/gcc/testsuite/gfortran.dg/generic_7.f90
@@ -24,5 +24,3 @@ CONTAINS
     WRITE(*,*) x, y
   END SUBROUTINE
 END MODULE
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_8.f90 b/gcc/testsuite/gfortran.dg/generic_8.f90
index a129efe..c84396b 100644
--- a/gcc/testsuite/gfortran.dg/generic_8.f90
+++ b/gcc/testsuite/gfortran.dg/generic_8.f90
@@ -28,4 +28,3 @@ CONTAINS
     CALL A(MAXVAL(X),Y)
   END SUBROUTINE T
 END MODULE M
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_9.f90 b/gcc/testsuite/gfortran.dg/generic_9.f90
index 92dd650..6ecd5bd 100644
--- a/gcc/testsuite/gfortran.dg/generic_9.f90
+++ b/gcc/testsuite/gfortran.dg/generic_9.f90
@@ -42,4 +42,3 @@ contains
   END SUBROUTINE
 
 END MODULE
-! { dg-final { cleanup-modules "class_foo_type class_foo" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_actual_arg.f90 b/gcc/testsuite/gfortran.dg/generic_actual_arg.f90
index 3f328c9..9c1fc3e 100644
--- a/gcc/testsuite/gfortran.dg/generic_actual_arg.f90
+++ b/gcc/testsuite/gfortran.dg/generic_actual_arg.f90
@@ -42,4 +42,3 @@ END
 
 SUBROUTINE F()
 END SUBROUTINE
-! { dg-final { cleanup-modules "test test2" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90 b/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90
index 32a17e3..76c15e9 100644
--- a/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90
+++ b/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90
@@ -17,5 +17,3 @@ 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/global_references_1.f90 b/gcc/testsuite/gfortran.dg/global_references_1.f90
index 7e0a5bd..5e72dc9 100644
--- a/gcc/testsuite/gfortran.dg/global_references_1.f90
+++ b/gcc/testsuite/gfortran.dg/global_references_1.f90
@@ -96,5 +96,3 @@ END SUBROUTINE j
     entry link2 (nameg)    ! { dg-error "is already being used as a SUBROUTINE" }
     return
   end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/global_vars_c_init.f90 b/gcc/testsuite/gfortran.dg/global_vars_c_init.f90
index 15f28f5..6040808 100644
--- a/gcc/testsuite/gfortran.dg/global_vars_c_init.f90
+++ b/gcc/testsuite/gfortran.dg/global_vars_c_init.f90
@@ -14,5 +14,3 @@ contains
     endif
   end subroutine test_globals
 end module global_vars_c_init
-
-! { dg-final { cleanup-modules "global_vars_c_init" } }
diff --git a/gcc/testsuite/gfortran.dg/global_vars_f90_init.f90 b/gcc/testsuite/gfortran.dg/global_vars_f90_init.f90
index aa1a60b..7702f3d 100644
--- a/gcc/testsuite/gfortran.dg/global_vars_f90_init.f90
+++ b/gcc/testsuite/gfortran.dg/global_vars_f90_init.f90
@@ -14,5 +14,3 @@ contains
     endif
   end subroutine test_globals
 end module global_vars_f90_init
-
-! { dg-final { cleanup-modules "global_vars_f90_init" } }
diff --git a/gcc/testsuite/gfortran.dg/gomp/allocatable_components_1.f90 b/gcc/testsuite/gfortran.dg/gomp/allocatable_components_1.f90
index 225d0a2..2a762c7 100644
--- a/gcc/testsuite/gfortran.dg/gomp/allocatable_components_1.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/allocatable_components_1.f90
@@ -55,5 +55,3 @@ CONTAINS
     !$omp end parallel do
   END SUBROUTINE
 END MODULE
-
-! { dg-final { cleanup-modules "test_allocatable_components" } }
diff --git a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.22.4.f90 b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.22.4.f90
index 2a63758..f769fc1 100644
--- a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.22.4.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.22.4.f90
@@ -9,4 +9,3 @@
 !$OMP THREADPRIVATE(/T/)	! { dg-error "COMMON block" }
       !non-conforming because /T/ not declared in A22_4_WRONG
       END SUBROUTINE A22_4_WRONG
-! { dg-final { cleanup-modules "A22_MODULE" } }
diff --git a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.26.2.f90 b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.26.2.f90
index 3d43424..97c14d9 100644
--- a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.26.2.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.26.2.f90
@@ -20,4 +20,3 @@
 !$OMP END PARALLEL DO
           END SUBROUTINE F
       END MODULE A26_2
-! { dg-final { cleanup-modules "A26_2" } }
diff --git a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.32.1.f90 b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.32.1.f90
index 498a6d3..8e0b5e0 100644
--- a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.32.1.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.32.1.f90
@@ -22,4 +22,3 @@
         ALLOCATE(WORK(SIZE))
         WORK = TOL
       END SUBROUTINE BUILD
-! { dg-final { cleanup-modules "M" } }
diff --git a/gcc/testsuite/gfortran.dg/gomp/omp_threadprivate1.f90 b/gcc/testsuite/gfortran.dg/gomp/omp_threadprivate1.f90
index 2ccf93c..55aad06 100644
--- a/gcc/testsuite/gfortran.dg/gomp/omp_threadprivate1.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/omp_threadprivate1.f90
@@ -15,4 +15,3 @@
 !$omp end parallel		! { dg-error "" }
 	end subroutine bad3
       end subroutine bad2
-! { dg-final { cleanup-modules "omp_threadprivate1" } }
diff --git a/gcc/testsuite/gfortran.dg/gomp/pr35786-1.f90 b/gcc/testsuite/gfortran.dg/gomp/pr35786-1.f90
index c8639ab..ab72f06 100644
--- a/gcc/testsuite/gfortran.dg/gomp/pr35786-1.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/pr35786-1.f90
@@ -70,5 +70,3 @@ contains
     end subroutine fn14
   end function fn12
 end module
-
-! { dg-final { cleanup-modules "pr35768" } }
diff --git a/gcc/testsuite/gfortran.dg/gomp/reduction3.f90 b/gcc/testsuite/gfortran.dg/gomp/reduction3.f90
index 0272a74..2c11389 100644
--- a/gcc/testsuite/gfortran.dg/gomp/reduction3.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/reduction3.f90
@@ -62,4 +62,3 @@ subroutine f6
   i = iand (i, 18)
 !$omp end parallel
 end subroutine f6
-! { dg-final { cleanup-modules "mreduction3" } }
diff --git a/gcc/testsuite/gfortran.dg/graphite/id-18.f90 b/gcc/testsuite/gfortran.dg/graphite/id-18.f90
index ed78067..273e670 100644
--- a/gcc/testsuite/gfortran.dg/graphite/id-18.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/id-18.f90
@@ -23,4 +23,3 @@ 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 2f9f9db..720fff8 100644
--- a/gcc/testsuite/gfortran.dg/graphite/id-2.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/id-2.f90
@@ -11,4 +11,3 @@ 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-21.f b/gcc/testsuite/gfortran.dg/graphite/id-21.f
index e751934..4fa047e 100644
--- a/gcc/testsuite/gfortran.dg/graphite/id-21.f
+++ b/gcc/testsuite/gfortran.dg/graphite/id-21.f
@@ -18,5 +18,3 @@
          END DO
       ENDDO
       END
-
-! { dg-final { cleanup-modules "les3d_data" } }
diff --git a/gcc/testsuite/gfortran.dg/graphite/id-4.f90 b/gcc/testsuite/gfortran.dg/graphite/id-4.f90
index 8389944..b2c6cb0 100644
--- a/gcc/testsuite/gfortran.dg/graphite/id-4.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/id-4.f90
@@ -30,4 +30,3 @@ 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 e964ade..62eccf3 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr37980.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr37980.f90
@@ -9,4 +9,3 @@ 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 391549e..7322476 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr38953.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr38953.f90
@@ -113,4 +113,3 @@
       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 c49def8..b9641ae 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr40982.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr40982.f90
@@ -67,5 +67,3 @@ 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 2f248d0b..f8dc807 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr41924.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr41924.f90
@@ -13,4 +13,3 @@ 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 e019917..09cab6f 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr42050.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42050.f90
@@ -23,4 +23,3 @@ 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 bb5bc0c..523c479 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr42180.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42180.f90
@@ -20,4 +20,3 @@ 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 06ce47d..dafb63f 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr42181.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42181.f90
@@ -17,4 +17,3 @@ 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 6fa6e30..5002521 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr42185.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42185.f90
@@ -25,4 +25,3 @@ 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 0e3669b..9e488f4 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr42186.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42186.f90
@@ -12,4 +12,3 @@ 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 45c635b..fb62e20 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90
@@ -22,4 +22,3 @@ 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 da9a348..1fc708e 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr42393.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42393.f90
@@ -28,4 +28,3 @@ 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/graphite/pr45758.f90 b/gcc/testsuite/gfortran.dg/graphite/pr45758.f90
index d6a1973..90baa4c 100644
--- a/gcc/testsuite/gfortran.dg/graphite/pr45758.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr45758.f90
@@ -38,4 +38,3 @@ CONTAINS
     ENDDO
   END SUBROUTINE create_destination_list
 END MODULE
-! { dg-final { cleanup-modules "util" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_blockdata_1.f90 b/gcc/testsuite/gfortran.dg/host_assoc_blockdata_1.f90
index 07f9ed4..7f24fec 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_blockdata_1.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_blockdata_1.f90
@@ -9,4 +9,3 @@ 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 40e3ac4..3cb4aba 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_blockdata_2.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_blockdata_2.f90
@@ -15,4 +15,3 @@ 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/host_assoc_call_1.f90 b/gcc/testsuite/gfortran.dg/host_assoc_call_1.f90
index 8049290..df9951e 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_call_1.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_call_1.f90
@@ -14,4 +14,3 @@ CONTAINS
       END SUBROUTINE sub2
   END SUBROUTINE sub1
 END MODULE ksbin2_aux_mod
-! { dg-final { cleanup-modules "ksbin2_aux_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_call_2.f90 b/gcc/testsuite/gfortran.dg/host_assoc_call_2.f90
index 1175c46..7a6b64d 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_call_2.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_call_2.f90
@@ -15,4 +15,3 @@ contains
     call InitialDiatomicX ()    ! { dg-error "which is not consistent with the CALL" }
   end subroutine FindDiatomicPeriod
 end module Diatoms
-! { dg-final { cleanup-modules "diatoms" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_call_3.f90 b/gcc/testsuite/gfortran.dg/host_assoc_call_3.f90
index 28c55bf..49dff0c 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_call_3.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_call_3.f90
@@ -52,4 +52,3 @@ END MODULE
   CALL S3
   call S4
 END
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_call_4.f90 b/gcc/testsuite/gfortran.dg/host_assoc_call_4.f90
index 50e1e3f..e5c8bde 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_call_4.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_call_4.f90
@@ -45,4 +45,3 @@ contains
     call GetBasicElementData (TargetElement, ProcedureName, ErrorNumber, ErrorLevel, ErrorMessage, CallingStat)
   end subroutine WH_ERR
 end module ErrorMod
-! { dg-final { cleanup-modules "errelmnt errormod" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_call_5.f90 b/gcc/testsuite/gfortran.dg/host_assoc_call_5.f90
index 6ce57ce..a788be1 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_call_5.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_call_5.f90
@@ -18,4 +18,3 @@ contains
    subroutine other_sub ()
    end subroutine other_sub
 end module foo
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_call_6.f90 b/gcc/testsuite/gfortran.dg/host_assoc_call_6.f90
index 60a5edc..da5cb37 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_call_6.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_call_6.f90
@@ -22,4 +22,3 @@ END MODULE
   USE m
   CALL g()
 END
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_function_1.f90 b/gcc/testsuite/gfortran.dg/host_assoc_function_1.f90
index f80f97a..dffaa93 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_function_1.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_function_1.f90
@@ -40,4 +40,3 @@ END MODULE
   use m
   call s()
 end
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_function_2.f90 b/gcc/testsuite/gfortran.dg/host_assoc_function_2.f90
index 5d63d7a..f2a37b6 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_function_2.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_function_2.f90
@@ -45,4 +45,3 @@ contains
 
   end subroutine foo
 end module gfcbug64_mod2
-! { dg-final { cleanup-modules "gfcbug64_mod1 gfcbug64_mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_function_3.f90 b/gcc/testsuite/gfortran.dg/host_assoc_function_3.f90
index a83fa17..cebe646 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_function_3.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_function_3.f90
@@ -24,4 +24,3 @@ END MODULE m
   use m
   call s
 end
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_function_4.f90 b/gcc/testsuite/gfortran.dg/host_assoc_function_4.f90
index 73ad21a..46fb5f8 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_function_4.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_function_4.f90
@@ -27,4 +27,3 @@ END MODULE
   USE M2
   CALL S2
 END
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_function_5.f90 b/gcc/testsuite/gfortran.dg/host_assoc_function_5.f90
index c75202e..4c5d171 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_function_5.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_function_5.f90
@@ -44,4 +44,3 @@ contains
   mons(1) = p1%mons(1)*p2%mons(2)
  end function
 end module
-! { dg-final { cleanup-modules "mod_symmon mod_sympoly" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_function_6.f90 b/gcc/testsuite/gfortran.dg/host_assoc_function_6.f90
index 28cd7c8..5f4748f 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_function_6.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_function_6.f90
@@ -31,5 +31,3 @@ contains
     mu = a_fun(x)
   end function fun
 end module mod_b
-
-! { dg-final { cleanup-modules "mod_a mod_b" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_function_7.f90 b/gcc/testsuite/gfortran.dg/host_assoc_function_7.f90
index 1568443..df240a9 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_function_7.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_function_7.f90
@@ -37,5 +37,3 @@ end module sa0054_stuff
   call SA0054 (RDA)
   IF (ANY (INT (RDA) .ne. [(6 * I, I = 1, 10)])) print *, rda
 END
-
-! { dg-final { cleanup-modules "sa0054_stuff" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_function_9.f90 b/gcc/testsuite/gfortran.dg/host_assoc_function_9.f90
index 58cae43..1bdd6e8 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_function_9.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_function_9.f90
@@ -29,5 +29,3 @@ END MODULE
   use m
   call s
 end
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_types_1.f90 b/gcc/testsuite/gfortran.dg/host_assoc_types_1.f90
index 53c9684..4a2377d 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_types_1.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_types_1.f90
@@ -15,4 +15,3 @@ CONTAINS
          ENDDO vertex
      END SUBROUTINE
 END MODULE test
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_types_2.f90 b/gcc/testsuite/gfortran.dg/host_assoc_types_2.f90
index 824a495..a3fd345 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_types_2.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_types_2.f90
@@ -66,4 +66,3 @@ contains
       call overloaded_sub(dval)

    end subroutine

 end program

-! { dg-final { cleanup-modules "stype dtype" } }

diff --git a/gcc/testsuite/gfortran.dg/host_assoc_variable_1.f90 b/gcc/testsuite/gfortran.dg/host_assoc_variable_1.f90
index 1e7adea..5723115 100644
--- a/gcc/testsuite/gfortran.dg/host_assoc_variable_1.f90
+++ b/gcc/testsuite/gfortran.dg/host_assoc_variable_1.f90
@@ -74,4 +74,3 @@ program testit
   print *, "in the main:", k
   call write(33)
 end program testit
-! { dg-final { cleanup-modules "gfcbug68 gfcbug68a m n" } }
diff --git a/gcc/testsuite/gfortran.dg/host_used_types_1.f90 b/gcc/testsuite/gfortran.dg/host_used_types_1.f90
index 2076fdb..0dfd9d1 100644
--- a/gcc/testsuite/gfortran.dg/host_used_types_1.f90
+++ b/gcc/testsuite/gfortran.dg/host_used_types_1.f90
@@ -38,5 +38,3 @@ contains
     end subroutine SetTimeSteps
 
 end module ThermoData
-
-! { dg-final { cleanup-modules "modelparams thermodata" } }
diff --git a/gcc/testsuite/gfortran.dg/implicit_1.f90 b/gcc/testsuite/gfortran.dg/implicit_1.f90
index 21e9d21..610c473 100644
--- a/gcc/testsuite/gfortran.dg/implicit_1.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_1.f90
@@ -8,5 +8,3 @@ end module AHFinder_dat
 implicit none
 common/rommel/aaa ! { dg-error "no IMPLICIT type" "no IMPLICIT type" }
 end
-
-! { dg-final { cleanup-modules "ahfinder_dat" } }
diff --git a/gcc/testsuite/gfortran.dg/implicit_10.f90 b/gcc/testsuite/gfortran.dg/implicit_10.f90
index 0f5094f..4bb1493 100644
--- a/gcc/testsuite/gfortran.dg/implicit_10.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_10.f90
@@ -30,4 +30,3 @@
       call sub(di(i),i)
       if (i.NE.4) call abort()
       end
-! { dg-final { cleanup-modules "mod1" } }
diff --git a/gcc/testsuite/gfortran.dg/implicit_11.f90 b/gcc/testsuite/gfortran.dg/implicit_11.f90
index be4ad6c..61091ec 100644
--- a/gcc/testsuite/gfortran.dg/implicit_11.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_11.f90
@@ -34,5 +34,3 @@
        ALLOCATE (RLA1(NF10), STAT = ISTAT2) ! { dg-error "is not a variable" }
      END SUBROUTINE
      END MODULE tests2
-
-! { dg-final { cleanup-modules "tests" } }
diff --git a/gcc/testsuite/gfortran.dg/implicit_12.f90 b/gcc/testsuite/gfortran.dg/implicit_12.f90
index 3b47352..161d440 100644
--- a/gcc/testsuite/gfortran.dg/implicit_12.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_12.f90
@@ -21,5 +21,3 @@ program startest
    if('#'//Q2//'#' /='#abcdefghijkl#') call abort()
    call sub('ABCDEFGHIJKLM') ! len=13
 end program startest
-
-! { dg-final { cleanup-modules "mod" } }
diff --git a/gcc/testsuite/gfortran.dg/implicit_2.f90 b/gcc/testsuite/gfortran.dg/implicit_2.f90
index 4bff178..c0582d70 100644
--- a/gcc/testsuite/gfortran.dg/implicit_2.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_2.f90
@@ -46,5 +46,3 @@ subroutine bar()
   v%i = 42
 end subroutine
 end module
-
-! { dg-final { cleanup-modules "implicit_2" } }
diff --git a/gcc/testsuite/gfortran.dg/implicit_actual.f90 b/gcc/testsuite/gfortran.dg/implicit_actual.f90
index 750d3f3..108c0407 100644
--- a/gcc/testsuite/gfortran.dg/implicit_actual.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_actual.f90
@@ -31,5 +31,3 @@ contains
 
   end subroutine foo
 end program snafu
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/implicit_derived_type_1.f90 b/gcc/testsuite/gfortran.dg/implicit_derived_type_1.f90
index 661eb83..baa36d1 100644
--- a/gcc/testsuite/gfortran.dg/implicit_derived_type_1.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_derived_type_1.f90
@@ -18,5 +18,3 @@ contains
     print *, x(1)%i
   end subroutine s
 end module m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/implicit_pure_1.f90 b/gcc/testsuite/gfortran.dg/implicit_pure_1.f90
index d4a5a36..f49b9ae 100644
--- a/gcc/testsuite/gfortran.dg/implicit_pure_1.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_pure_1.f90
@@ -50,4 +50,3 @@ program gfcbug114a
 end program gfcbug114a
 
 ! { dg-final { scan-module "b" "IMPLICIT_PURE" } }
-! { dg-final { cleanup-modules "b" } }
diff --git a/gcc/testsuite/gfortran.dg/implicit_pure_2.f90 b/gcc/testsuite/gfortran.dg/implicit_pure_2.f90
index 496e856..16fa64f 100644
--- a/gcc/testsuite/gfortran.dg/implicit_pure_2.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_pure_2.f90
@@ -14,4 +14,3 @@ contains
 end module m
 
 ! { dg-final { scan-module-absence "m" "IMPLICIT_PURE" } }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/import.f90 b/gcc/testsuite/gfortran.dg/import.f90
index 521f872..1934a2c 100644
--- a/gcc/testsuite/gfortran.dg/import.f90
+++ b/gcc/testsuite/gfortran.dg/import.f90
@@ -75,4 +75,3 @@ program foo
   call test(z)
   if(z%i /= 1) call abort()
 end program foo
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/import2.f90 b/gcc/testsuite/gfortran.dg/import2.f90
index 4a0128a..d9e65e3 100644
--- a/gcc/testsuite/gfortran.dg/import2.f90
+++ b/gcc/testsuite/gfortran.dg/import2.f90
@@ -77,4 +77,3 @@ program foo
   call test(z) ! { dg-error "Type mismatch in argument" }
   if(z%i /= 1) call abort()
 end program foo
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/import4.f90 b/gcc/testsuite/gfortran.dg/import4.f90
index 761c984..99ffd8a 100644
--- a/gcc/testsuite/gfortran.dg/import4.f90
+++ b/gcc/testsuite/gfortran.dg/import4.f90
@@ -96,4 +96,3 @@ contains
     if(r /= -123.0 .or. t%c /= -44) call abort()
   end subroutine test3
 end program all
-! { dg-final { cleanup-modules "modtest general" } }
diff --git a/gcc/testsuite/gfortran.dg/import5.f90 b/gcc/testsuite/gfortran.dg/import5.f90
index 0106c4e..306ba51 100644
--- a/gcc/testsuite/gfortran.dg/import5.f90
+++ b/gcc/testsuite/gfortran.dg/import5.f90
@@ -41,4 +41,3 @@ contains
 
   end subroutine sub1
 end module test_import
-! { dg-final { cleanup-modules "test_import" } }
diff --git a/gcc/testsuite/gfortran.dg/import7.f90 b/gcc/testsuite/gfortran.dg/import7.f90
index c115cc3..973851f 100644
--- a/gcc/testsuite/gfortran.dg/import7.f90
+++ b/gcc/testsuite/gfortran.dg/import7.f90
@@ -53,6 +53,3 @@
          END TYPE
          TYPE(T1) X
        END
-
-! { dg-final { cleanup-modules "mod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/impure_1.f08 b/gcc/testsuite/gfortran.dg/impure_1.f08
index 9d09eaa..694b6e3 100644
--- a/gcc/testsuite/gfortran.dg/impure_1.f08
+++ b/gcc/testsuite/gfortran.dg/impure_1.f08
@@ -67,5 +67,3 @@ CONTAINS
   END FUNCTION accumulate
 
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/impure_2.f08 b/gcc/testsuite/gfortran.dg/impure_2.f08
index 4bc2ca1..b829e08 100644
--- a/gcc/testsuite/gfortran.dg/impure_2.f08
+++ b/gcc/testsuite/gfortran.dg/impure_2.f08
@@ -23,5 +23,3 @@ CONTAINS
   END SUBROUTINE purified
 
 END MODULE m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/impure_actual_1.f90 b/gcc/testsuite/gfortran.dg/impure_actual_1.f90
index 12f3375..ee12ddf 100644
--- a/gcc/testsuite/gfortran.dg/impure_actual_1.f90
+++ b/gcc/testsuite/gfortran.dg/impure_actual_1.f90
@@ -20,6 +20,3 @@ END MODULE M1
 USE M1
  write(6,*) J(L) ! { dg-error "Mismatch in PURE attribute" }
 END
-
-! { dg-final { cleanup-modules "m1" } }
-
diff --git a/gcc/testsuite/gfortran.dg/impure_assignment_1.f90 b/gcc/testsuite/gfortran.dg/impure_assignment_1.f90
index 28ef269..103244c 100644
--- a/gcc/testsuite/gfortran.dg/impure_assignment_1.f90
+++ b/gcc/testsuite/gfortran.dg/impure_assignment_1.f90
@@ -24,5 +24,3 @@ PURE SUBROUTINE S2(I,J)
      I=J                      ! { dg-error "is not PURE" }
 END SUBROUTINE S2
 END
-! { dg-final { cleanup-modules "m1" } }
-
diff --git a/gcc/testsuite/gfortran.dg/impure_assignment_2.f90 b/gcc/testsuite/gfortran.dg/impure_assignment_2.f90
index 6378ec8..38d841d 100644
--- a/gcc/testsuite/gfortran.dg/impure_assignment_2.f90
+++ b/gcc/testsuite/gfortran.dg/impure_assignment_2.f90
@@ -66,5 +66,3 @@ CONTAINS
     RES = B
   END FUNCTION
 END MODULE pr20882
-! { dg-final { cleanup-modules "pr20863 pr20882" } }
-
diff --git a/gcc/testsuite/gfortran.dg/impure_constructor_1.f90 b/gcc/testsuite/gfortran.dg/impure_constructor_1.f90
index 01aa01b..cfd9993 100644
--- a/gcc/testsuite/gfortran.dg/impure_constructor_1.f90
+++ b/gcc/testsuite/gfortran.dg/impure_constructor_1.f90
@@ -26,5 +26,3 @@ contains
    z = t3(x) ! { dg-error "Invalid expression in the structure constructor" }
  end subroutine foo
 end module m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/impure_spec_expr_1.f90 b/gcc/testsuite/gfortran.dg/impure_spec_expr_1.f90
index 8c42a57..1489b5c 100644
--- a/gcc/testsuite/gfortran.dg/impure_spec_expr_1.f90
+++ b/gcc/testsuite/gfortran.dg/impure_spec_expr_1.f90
@@ -11,5 +11,3 @@ contains
     integer :: u(n(1))  ! { dg-error "must be PURE" }
   end subroutine
 end module test
-! { dg-final { cleanup-modules "test" } }
-
diff --git a/gcc/testsuite/gfortran.dg/initialization_1.f90 b/gcc/testsuite/gfortran.dg/initialization_1.f90
index 2fb014e..ac351e2 100644
--- a/gcc/testsuite/gfortran.dg/initialization_1.f90
+++ b/gcc/testsuite/gfortran.dg/initialization_1.f90
@@ -35,5 +35,3 @@ contains
 
   end subroutine foo  
 end module const
-
-! { dg-final { cleanup-modules "const" } }
diff --git a/gcc/testsuite/gfortran.dg/initialization_10.f90 b/gcc/testsuite/gfortran.dg/initialization_10.f90
index 387ea6d..d8e82d51 100644
--- a/gcc/testsuite/gfortran.dg/initialization_10.f90
+++ b/gcc/testsuite/gfortran.dg/initialization_10.f90
@@ -28,5 +28,3 @@ end select
 
 END SUBROUTINE Parser
 END MODULE Readdata_mod
-
-! { dg-final { cleanup-modules "readdata_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/initialization_12.f90 b/gcc/testsuite/gfortran.dg/initialization_12.f90
index 53db60b..1a4812a 100644
--- a/gcc/testsuite/gfortran.dg/initialization_12.f90
+++ b/gcc/testsuite/gfortran.dg/initialization_12.f90
@@ -25,5 +25,3 @@ module AtmoIonoSphere
   use EGOPS_Utilities
   use AtmoIono
 end module AtmoIonoSphere
-
-! { dg-final { cleanup-modules "egops_utilities atmoiono atmoionosphere" } }
diff --git a/gcc/testsuite/gfortran.dg/initialization_19.f90 b/gcc/testsuite/gfortran.dg/initialization_19.f90
index 2465f9b..1fba5f0 100644
--- a/gcc/testsuite/gfortran.dg/initialization_19.f90
+++ b/gcc/testsuite/gfortran.dg/initialization_19.f90
@@ -30,5 +30,3 @@ call g
 call g
 
 end program t
-
-! ! { dg-final { cleanup-modules "c s" } }
diff --git a/gcc/testsuite/gfortran.dg/initialization_23.f90 b/gcc/testsuite/gfortran.dg/initialization_23.f90
index cc2aca4..1931bca 100644
--- a/gcc/testsuite/gfortran.dg/initialization_23.f90
+++ b/gcc/testsuite/gfortran.dg/initialization_23.f90
@@ -12,6 +12,3 @@
       CHARACTER, PARAMETER :: the_alpha = one_parameter('c') ! { dg-error "Can't convert TYPE" }
       CHARACTER, PARAMETER :: the_beta = (/one_parameter('c')/) ! { dg-error "Incompatible ranks" }
     END MODULE cdf_aux_mod
-
-! { dg-final { cleanup-modules "cdf_aux_mod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/inquire_11.f90 b/gcc/testsuite/gfortran.dg/inquire_11.f90
index cc5e26d..f410766 100644
--- a/gcc/testsuite/gfortran.dg/inquire_11.f90
+++ b/gcc/testsuite/gfortran.dg/inquire_11.f90
@@ -8,4 +8,3 @@ CONTAINS
     INQUIRE (UNIT=1, EXIST=qexist)
   END SUBROUTINE i
 END MODULE print_it
-! { dg-final { cleanup-modules "print_it" } }
diff --git a/gcc/testsuite/gfortran.dg/int_1.f90 b/gcc/testsuite/gfortran.dg/int_1.f90
index 853578e..77ba1e2 100644
--- a/gcc/testsuite/gfortran.dg/int_1.f90
+++ b/gcc/testsuite/gfortran.dg/int_1.f90
@@ -171,5 +171,3 @@ program test_int
    if (i4 /= 17_ik4 .or. i8 /= 17_ik8) call abort
    
 end program test_int
-
-! { dg-final { cleanup-modules "mykinds" } }
diff --git a/gcc/testsuite/gfortran.dg/int_2.f90 b/gcc/testsuite/gfortran.dg/int_2.f90
index b9a3ec4..a6006aa 100644
--- a/gcc/testsuite/gfortran.dg/int_2.f90
+++ b/gcc/testsuite/gfortran.dg/int_2.f90
@@ -1,6 +1,5 @@
 ! PR fortran/32823
 ! { dg-do compile }
-! { dg-final { cleanup-modules "token_module" } }
 
 module token_module
 
diff --git a/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 b/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90
index 5c6c5bf..e4088c3 100644
--- a/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90
+++ b/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90
@@ -201,5 +201,3 @@ program test
   ATEST((1.0,0.),-9,c4)
 
 end program test
-
-! { dg-final { cleanup-modules "mod_check" } }
diff --git a/gcc/testsuite/gfortran.dg/integer_exponentiation_5.F90 b/gcc/testsuite/gfortran.dg/integer_exponentiation_5.F90
index 58c7614..35bb281 100644
--- a/gcc/testsuite/gfortran.dg/integer_exponentiation_5.F90
+++ b/gcc/testsuite/gfortran.dg/integer_exponentiation_5.F90
@@ -76,5 +76,3 @@ program test
   TEST(nearest(1.0,-1.0),-huge(0),r4)
 
 end program test
-
-! { dg-final { cleanup-modules "mod_check" } }
diff --git a/gcc/testsuite/gfortran.dg/intent_out_2.f90 b/gcc/testsuite/gfortran.dg/intent_out_2.f90
index 4dc5191..e85cf84 100644
--- a/gcc/testsuite/gfortran.dg/intent_out_2.f90
+++ b/gcc/testsuite/gfortran.dg/intent_out_2.f90
@@ -43,5 +43,3 @@ program test
   implicit none
   call setup ()
 end program test
-! { dg-final { cleanup-modules "gfcbug72" } }
-
diff --git a/gcc/testsuite/gfortran.dg/intent_out_3.f90 b/gcc/testsuite/gfortran.dg/intent_out_3.f90
index e3300c9..1afb504 100644
--- a/gcc/testsuite/gfortran.dg/intent_out_3.f90
+++ b/gcc/testsuite/gfortran.dg/intent_out_3.f90
@@ -17,4 +17,3 @@ END MODULE M1
 USE M1
 CALL S1(D1%I(3)) ! { dg-error "variable definition context" }
 END
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/intent_out_6.f90 b/gcc/testsuite/gfortran.dg/intent_out_6.f90
index 1a41107..a363164 100644
--- a/gcc/testsuite/gfortran.dg/intent_out_6.f90
+++ b/gcc/testsuite/gfortran.dg/intent_out_6.f90
@@ -35,5 +35,3 @@ program test
   call sub1(x)
   if(x(1) /= 5) call abort()
 end program
-
-! { dg-final { cleanup-modules "test_module" } }
diff --git a/gcc/testsuite/gfortran.dg/intent_used_1.f90 b/gcc/testsuite/gfortran.dg/intent_used_1.f90
index ec23bf5..ecc06e9 100644
--- a/gcc/testsuite/gfortran.dg/intent_used_1.f90
+++ b/gcc/testsuite/gfortran.dg/intent_used_1.f90
@@ -15,5 +15,3 @@ MODULE global
       END SUBROUTINE foo
    END INTERFACE
 END MODULE global
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_1.f90 b/gcc/testsuite/gfortran.dg/interface_1.f90
index e170f87..3bbdd57 100644
--- a/gcc/testsuite/gfortran.dg/interface_1.f90
+++ b/gcc/testsuite/gfortran.dg/interface_1.f90
@@ -38,5 +38,3 @@ module z
     end function
 
 end module z
-
-! { dg-final { cleanup-modules "y z" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_10.f90 b/gcc/testsuite/gfortran.dg/interface_10.f90
index 99ecc8c..96c364b 100644
--- a/gcc/testsuite/gfortran.dg/interface_10.f90
+++ b/gcc/testsuite/gfortran.dg/interface_10.f90
@@ -54,4 +54,3 @@ contains
     nsz=size(x)
   end subroutine solve_s_foo
 end module class_s_foo
-! { dg-final { cleanup-modules "class_s_fld class_fld class_s_foo" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_11.f90 b/gcc/testsuite/gfortran.dg/interface_11.f90
index a143bb3..9a7e780 100644
--- a/gcc/testsuite/gfortran.dg/interface_11.f90
+++ b/gcc/testsuite/gfortran.dg/interface_11.f90
@@ -26,4 +26,3 @@ CONTAINS
 END MODULE
 
 END
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_12.f90 b/gcc/testsuite/gfortran.dg/interface_12.f90
index a45817d..d519789 100644
--- a/gcc/testsuite/gfortran.dg/interface_12.f90
+++ b/gcc/testsuite/gfortran.dg/interface_12.f90
@@ -87,4 +87,3 @@ pure function f (x)
 
    f = 2*x+1
 end function f
-! { dg-final { cleanup-modules "test1" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_13.f90 b/gcc/testsuite/gfortran.dg/interface_13.f90
index 42c794a..a293425 100644
--- a/gcc/testsuite/gfortran.dg/interface_13.f90
+++ b/gcc/testsuite/gfortran.dg/interface_13.f90
@@ -29,5 +29,3 @@
           data_r8(1)=0
       end subroutine my_sio_file_read_common
     end module files_module
-
-! { dg-final { cleanup-modules "files_module" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_14.f90 b/gcc/testsuite/gfortran.dg/interface_14.f90
index 994d97e..ebd16f9 100644
--- a/gcc/testsuite/gfortran.dg/interface_14.f90
+++ b/gcc/testsuite/gfortran.dg/interface_14.f90
@@ -69,5 +69,3 @@
       call new (a)
       call new (b)
       end
-
-! { dg-final { cleanup-modules "p_class s_class t_class d_class poly_class" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_15.f90 b/gcc/testsuite/gfortran.dg/interface_15.f90
index 8ad940a..49aadda 100644
--- a/gcc/testsuite/gfortran.dg/interface_15.f90
+++ b/gcc/testsuite/gfortran.dg/interface_15.f90
@@ -18,5 +18,3 @@ CONTAINS
     F1 = D%I
   END FUNCTION
 END MODULE
-
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_16.f90 b/gcc/testsuite/gfortran.dg/interface_16.f90
index 8be9d68..1cad75f 100644
--- a/gcc/testsuite/gfortran.dg/interface_16.f90
+++ b/gcc/testsuite/gfortran.dg/interface_16.f90
@@ -96,6 +96,3 @@ Subroutine foo_sub(a,pr,b,x,eps,cd,info)
   Call foo_pwrk(pr,p,f,cd,info,work=aux)  ! This worked if bar_pwrk was called!
   return
 End Subroutine foo_sub
-
-! { dg-final { cleanup-modules "foo_base_mod foo_pr_mod bar_pr_mod bar_prt" } }
-
diff --git a/gcc/testsuite/gfortran.dg/interface_17.f90 b/gcc/testsuite/gfortran.dg/interface_17.f90
index 44b8a46..9315137 100644
--- a/gcc/testsuite/gfortran.dg/interface_17.f90
+++ b/gcc/testsuite/gfortran.dg/interface_17.f90
@@ -21,4 +21,3 @@ END MODULE util
 MODULE graphcon
   USE util,                            ONLY: sort
 END MODULE graphcon
-! { dg-final { cleanup-modules "kinds util graphcon" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_18.f90 b/gcc/testsuite/gfortran.dg/interface_18.f90
index d0a5475..30461e5 100644
--- a/gcc/testsuite/gfortran.dg/interface_18.f90
+++ b/gcc/testsuite/gfortran.dg/interface_18.f90
@@ -17,5 +17,3 @@
        type(mytype_type), intent(in out) :: mytype
      end subroutine mytype_test
    end module mytype_application 
-
-! { dg-final { cleanup-modules "mytype_application" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_19.f90 b/gcc/testsuite/gfortran.dg/interface_19.f90
index 7a88fc9..2d72caa 100644
--- a/gcc/testsuite/gfortran.dg/interface_19.f90
+++ b/gcc/testsuite/gfortran.dg/interface_19.f90
@@ -27,6 +27,3 @@ intrinsic dcos
 call sub()
 call sub(dcos)
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/interface_2.f90 b/gcc/testsuite/gfortran.dg/interface_2.f90
index 4e63098..6b0bf2b 100644
--- a/gcc/testsuite/gfortran.dg/interface_2.f90
+++ b/gcc/testsuite/gfortran.dg/interface_2.f90
@@ -27,5 +27,3 @@ CONTAINS
   END FUNCTION Compare_Float_Single
 
 END MODULE Compare_Float_Numbers
-
-! { dg-final { cleanup-modules "compare_float_numbers" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_20.f90 b/gcc/testsuite/gfortran.dg/interface_20.f90
index 9a7dc5c..829add2 100644
--- a/gcc/testsuite/gfortran.dg/interface_20.f90
+++ b/gcc/testsuite/gfortran.dg/interface_20.f90
@@ -18,6 +18,3 @@ implicit none
 intrinsic cos
 call sub(cos) ! { dg-error "wrong number of arguments" }
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/interface_21.f90 b/gcc/testsuite/gfortran.dg/interface_21.f90
index 566a9ef..e3db771 100644
--- a/gcc/testsuite/gfortran.dg/interface_21.f90
+++ b/gcc/testsuite/gfortran.dg/interface_21.f90
@@ -20,6 +20,3 @@ implicit none
 EXTERNAL foo  ! implicit interface is undefined
 call sub(foo) ! { dg-error "is not a function" }
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/interface_22.f90 b/gcc/testsuite/gfortran.dg/interface_22.f90
index fa8e517..6228fc9 100644
--- a/gcc/testsuite/gfortran.dg/interface_22.f90
+++ b/gcc/testsuite/gfortran.dg/interface_22.f90
@@ -23,6 +23,3 @@ module gswap
     module procedure sreal, schar, sint => sreal ! { dg-error "Syntax error in MODULE PROCEDURE statement" }
   end interface swap
 end module gswap
-
-! { dg-final { cleanup-modules "foo g gswap" } }
-
diff --git a/gcc/testsuite/gfortran.dg/interface_23.f90 b/gcc/testsuite/gfortran.dg/interface_23.f90
index 60b6e79..b2e7a69 100644
--- a/gcc/testsuite/gfortran.dg/interface_23.f90
+++ b/gcc/testsuite/gfortran.dg/interface_23.f90
@@ -31,5 +31,3 @@ program c
   end interface
   call bar()  ! { dg-error "Missing actual argument" }
 end program
-
-! { dg-final { cleanup-modules "a b" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_24.f90 b/gcc/testsuite/gfortran.dg/interface_24.f90
index 1afc5ef..f97d2ba 100644
--- a/gcc/testsuite/gfortran.dg/interface_24.f90
+++ b/gcc/testsuite/gfortran.dg/interface_24.f90
@@ -62,5 +62,3 @@ module m6
     end function
   end interface
 end module
-
-! { dg-final { cleanup-modules "m1 m2 m3 m4 m5 m6" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_25.f90 b/gcc/testsuite/gfortran.dg/interface_25.f90
index b239b21..0118cd5 100644
--- a/gcc/testsuite/gfortran.dg/interface_25.f90
+++ b/gcc/testsuite/gfortran.dg/interface_25.f90
@@ -43,5 +43,3 @@ CONTAINS
     end if
   END FUNCTION recSum
 END PROGRAM test
-
-! { dg-final { cleanup-modules "funcs" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_26.f90 b/gcc/testsuite/gfortran.dg/interface_26.f90
index 54ede6d..52e0bd1 100644
--- a/gcc/testsuite/gfortran.dg/interface_26.f90
+++ b/gcc/testsuite/gfortran.dg/interface_26.f90
@@ -44,5 +44,3 @@ CONTAINS
     end if
   END FUNCTION recSum
 END PROGRAM test
-
-! { dg-final { cleanup-modules "funcs" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_27.f90 b/gcc/testsuite/gfortran.dg/interface_27.f90
index 71975b6..128d6a6 100644
--- a/gcc/testsuite/gfortran.dg/interface_27.f90
+++ b/gcc/testsuite/gfortran.dg/interface_27.f90
@@ -36,6 +36,3 @@ subroutine caller
 end subroutine
 
 end module 
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/interface_28.f90 b/gcc/testsuite/gfortran.dg/interface_28.f90
index 42a8208..c827227 100644
--- a/gcc/testsuite/gfortran.dg/interface_28.f90
+++ b/gcc/testsuite/gfortran.dg/interface_28.f90
@@ -38,6 +38,3 @@ program interfaceCheck
   call test(subActual)  ! { dg-error "INTENT mismatch in argument" }
   call test(subActual2)  ! { dg-error "OPTIONAL mismatch in argument" }
 end program
-
-! { dg-final { cleanup-modules "sub testsub" } }
-
diff --git a/gcc/testsuite/gfortran.dg/interface_29.f90 b/gcc/testsuite/gfortran.dg/interface_29.f90
index b3d123a..4a5626d 100644
--- a/gcc/testsuite/gfortran.dg/interface_29.f90
+++ b/gcc/testsuite/gfortran.dg/interface_29.f90
@@ -47,6 +47,3 @@ end subroutine bar
     complex, intent(out) :: y(:)
   end subroutine
 end module test
-
-! { dg-final { cleanup-modules "m test" } }
-
diff --git a/gcc/testsuite/gfortran.dg/interface_3.f90 b/gcc/testsuite/gfortran.dg/interface_3.f90
index 1d954ee..febb120 100644
--- a/gcc/testsuite/gfortran.dg/interface_3.f90
+++ b/gcc/testsuite/gfortran.dg/interface_3.f90
@@ -67,5 +67,3 @@ subroutine his_fun (a)
   use test_mod2
   print *, my_fun (a)  ! { dg-error "ambiguous reference" }
 end subroutine his_fun
-
-! { dg-final { cleanup-modules "test_mod test_mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_31.f90 b/gcc/testsuite/gfortran.dg/interface_31.f90
index 3b0e8f8..88aac32 100644
--- a/gcc/testsuite/gfortran.dg/interface_31.f90
+++ b/gcc/testsuite/gfortran.dg/interface_31.f90
@@ -38,4 +38,3 @@ CONTAINS
     r%j = lhs%j + rhs%j
   END FUNCTION add_b  
 END MODULE mod2
-! { dg-final { cleanup-modules "mod1 mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_32.f90 b/gcc/testsuite/gfortran.dg/interface_32.f90
index 6cdb091..a0f5f15 100644
--- a/gcc/testsuite/gfortran.dg/interface_32.f90
+++ b/gcc/testsuite/gfortran.dg/interface_32.f90
@@ -78,4 +78,3 @@ contains
     ip_save => g_initial%inquire_inner_product()
   end subroutine cg
 end module m4
-! { dg-final { cleanup-modules "m1 m2 m3 m4" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_33.f90 b/gcc/testsuite/gfortran.dg/interface_33.f90
index 955d507..60543f9 100644
--- a/gcc/testsuite/gfortran.dg/interface_33.f90
+++ b/gcc/testsuite/gfortran.dg/interface_33.f90
@@ -32,5 +32,3 @@ CONTAINS
    SUBROUTINE subr_name()
    END SUBROUTINE
 END MODULE
-
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_35.f90 b/gcc/testsuite/gfortran.dg/interface_35.f90
index eb4de12..8c62a5d 100644
--- a/gcc/testsuite/gfortran.dg/interface_35.f90
+++ b/gcc/testsuite/gfortran.dg/interface_35.f90
@@ -75,5 +75,3 @@ contains
   end function
 
 end
-
-! { dg-final { cleanup-modules "module_m module_m2 s_hard sidl_string_array" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_4.f90 b/gcc/testsuite/gfortran.dg/interface_4.f90
index 8f6c331..a09d656 100644
--- a/gcc/testsuite/gfortran.dg/interface_4.f90
+++ b/gcc/testsuite/gfortran.dg/interface_4.f90
@@ -43,4 +43,3 @@ program main
   call bl_copy(1.0, chr)
   if (chr /= "recopy") call abort ()  
 end program main
-! { dg-final { cleanup-modules "f77_blas_generic f77_blas_extra" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_5.f90 b/gcc/testsuite/gfortran.dg/interface_5.f90
index cc5a712..de77191 100644
--- a/gcc/testsuite/gfortran.dg/interface_5.f90
+++ b/gcc/testsuite/gfortran.dg/interface_5.f90
@@ -53,4 +53,3 @@ program main
   call bl_copy(1.0, chr)
   if (chr /= "recopy") call abort ()  
 end program main
-! { dg-final { cleanup-modules "f77_blas_generic f77_blas_extra" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_7.f90 b/gcc/testsuite/gfortran.dg/interface_7.f90
index 9f59b49..b3274ef 100644
--- a/gcc/testsuite/gfortran.dg/interface_7.f90
+++ b/gcc/testsuite/gfortran.dg/interface_7.f90
@@ -28,5 +28,3 @@ module xx
     END SUBROUTINE S9C  ! { dg-error "Ambiguous interfaces" }
   END INTERFACE BAD9
 end module xx
-
-! { dg-final { cleanup-modules "xx" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_8.f90 b/gcc/testsuite/gfortran.dg/interface_8.f90
index 7feccb3..2060e7d 100644
--- a/gcc/testsuite/gfortran.dg/interface_8.f90
+++ b/gcc/testsuite/gfortran.dg/interface_8.f90
@@ -26,5 +26,3 @@ program main
   use mod1, only: generic   ! { dg-warning "has ambiguous interfaces" }
   use mod2
 end program main
-
-! { dg-final { cleanup-modules "mod1 mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_9.f90 b/gcc/testsuite/gfortran.dg/interface_9.f90
index b407ab0..2f38040 100644
--- a/gcc/testsuite/gfortran.dg/interface_9.f90
+++ b/gcc/testsuite/gfortran.dg/interface_9.f90
@@ -42,6 +42,3 @@ contains
     if (inverse(1_4) /= 3_4) call abort ()
   end subroutine sub
 end program gfcbug48
-
-! { dg-final { cleanup-modules "module1 module2" } }
-
diff --git a/gcc/testsuite/gfortran.dg/interface_assignment_1.f90 b/gcc/testsuite/gfortran.dg/interface_assignment_1.f90
index 5129832..f76b9da 100644
--- a/gcc/testsuite/gfortran.dg/interface_assignment_1.f90
+++ b/gcc/testsuite/gfortran.dg/interface_assignment_1.f90
@@ -36,4 +36,3 @@ CALL set(E,(E))
 IF (D%I.NE.4) call abort ()
 IF (4.NE.E%I) call abort ()
 END
-! { dg-final { cleanup-modules "tt" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_assignment_2.f90 b/gcc/testsuite/gfortran.dg/interface_assignment_2.f90
index 8d7484b..e17d78e 100644
--- a/gcc/testsuite/gfortran.dg/interface_assignment_2.f90
+++ b/gcc/testsuite/gfortran.dg/interface_assignment_2.f90
@@ -46,4 +46,3 @@ PROGRAM VST_2
   if (any (str_ara(1)%chars(1:5) .ne. char_elm(1:5))) call abort
   if (any (str_ara(2)%chars(1:5) .ne. char_elm(6:10))) call abort
 END PROGRAM VST_2
-! { dg-final { cleanup-modules "iso_varying_string" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_assignment_3.f90 b/gcc/testsuite/gfortran.dg/interface_assignment_3.f90
index 6b7881b..2f5c7ae 100644
--- a/gcc/testsuite/gfortran.dg/interface_assignment_3.f90
+++ b/gcc/testsuite/gfortran.dg/interface_assignment_3.f90
@@ -45,5 +45,3 @@ contains
     y% m = x% m                             ! ICE
   end subroutine assign_atm_to_atm
 end module gfcbug74
-! { dg-final { cleanup-modules "mo_memory gfcbug74" } }
-
diff --git a/gcc/testsuite/gfortran.dg/interface_assignment_5.f90 b/gcc/testsuite/gfortran.dg/interface_assignment_5.f90
index 8444dd0..ac834bb 100644
--- a/gcc/testsuite/gfortran.dg/interface_assignment_5.f90
+++ b/gcc/testsuite/gfortran.dg/interface_assignment_5.f90
@@ -46,4 +46,3 @@ contains
   end subroutine assign_to_atm
 end module mod2
  
-! { dg-final { cleanup-modules "mod1 mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_derived_type_1.f90 b/gcc/testsuite/gfortran.dg/interface_derived_type_1.f90
index a2c4d02..7c165b3 100644
--- a/gcc/testsuite/gfortran.dg/interface_derived_type_1.f90
+++ b/gcc/testsuite/gfortran.dg/interface_derived_type_1.f90
@@ -52,5 +52,3 @@ subroutine sim_3(func3,params)
   end interface
   type(fcnparms)       :: params  !         -ditto-
 end subroutine sim_3
-
-! { dg-final { cleanup-modules "test type_decl" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_proc_end.f90 b/gcc/testsuite/gfortran.dg/interface_proc_end.f90
index efe5855..2fc9921 100644
--- a/gcc/testsuite/gfortran.dg/interface_proc_end.f90
+++ b/gcc/testsuite/gfortran.dg/interface_proc_end.f90
@@ -16,5 +16,3 @@
       END INTERFACE
       end subroutine
       end module
-
-! { dg-final { cleanup-modules "n" } }
diff --git a/gcc/testsuite/gfortran.dg/internal_dummy_2.f08 b/gcc/testsuite/gfortran.dg/internal_dummy_2.f08
index 7ec6ad4..2d2ec68 100644
--- a/gcc/testsuite/gfortran.dg/internal_dummy_2.f08
+++ b/gcc/testsuite/gfortran.dg/internal_dummy_2.f08
@@ -60,5 +60,3 @@ CONTAINS
   END SUBROUTINE incA
 
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/internal_dummy_3.f08 b/gcc/testsuite/gfortran.dg/internal_dummy_3.f08
index 9780c27..ff8dd82 100644
--- a/gcc/testsuite/gfortran.dg/internal_dummy_3.f08
+++ b/gcc/testsuite/gfortran.dg/internal_dummy_3.f08
@@ -62,5 +62,3 @@ PROGRAM main
 
   CALL test (1)
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/internal_dummy_4.f08 b/gcc/testsuite/gfortran.dg/internal_dummy_4.f08
index 1d8b8b2..8ade99e 100644
--- a/gcc/testsuite/gfortran.dg/internal_dummy_4.f08
+++ b/gcc/testsuite/gfortran.dg/internal_dummy_4.f08
@@ -54,4 +54,3 @@ contains
      two = -123*y
   end function two
 end program main
-! { dg-final { cleanup-modules "test_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/internal_pack_10.f90 b/gcc/testsuite/gfortran.dg/internal_pack_10.f90
index 8d972f4..fd1574d 100644
--- a/gcc/testsuite/gfortran.dg/internal_pack_10.f90
+++ b/gcc/testsuite/gfortran.dg/internal_pack_10.f90
@@ -38,4 +38,3 @@ program test
   type(t_set) :: c (1)
   call get_rule (c)
 end program test
-! { dg-final { cleanup-modules "mo_obs_rules" } }
diff --git a/gcc/testsuite/gfortran.dg/internal_pack_12.f90 b/gcc/testsuite/gfortran.dg/internal_pack_12.f90
index 32bacfa..bdcc7d1 100644
--- a/gcc/testsuite/gfortran.dg/internal_pack_12.f90
+++ b/gcc/testsuite/gfortran.dg/internal_pack_12.f90
@@ -57,5 +57,3 @@ subroutine bar(x)
 end subroutine bar
 ! { dg-final { scan-tree-dump-times "unpack" 4 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/internal_pack_4.f90 b/gcc/testsuite/gfortran.dg/internal_pack_4.f90
index 5ddc035..0bcfc79 100644
--- a/gcc/testsuite/gfortran.dg/internal_pack_4.f90
+++ b/gcc/testsuite/gfortran.dg/internal_pack_4.f90
@@ -29,4 +29,3 @@ 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/internal_pack_6.f90 b/gcc/testsuite/gfortran.dg/internal_pack_6.f90
index 05dd20a..7ec3225 100644
--- a/gcc/testsuite/gfortran.dg/internal_pack_6.f90
+++ b/gcc/testsuite/gfortran.dg/internal_pack_6.f90
@@ -54,6 +54,5 @@ END SUBROUTINE S2
 
  call s2
 end
-! { dg-final { cleanup-modules "m1" } }
 ! { dg-final { scan-tree-dump-times "_gfortran_internal_pack" 0 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
diff --git a/gcc/testsuite/gfortran.dg/internal_pack_7.f90 b/gcc/testsuite/gfortran.dg/internal_pack_7.f90
index 32d98f7..2a056fc 100644
--- a/gcc/testsuite/gfortran.dg/internal_pack_7.f90
+++ b/gcc/testsuite/gfortran.dg/internal_pack_7.f90
@@ -30,6 +30,5 @@ CONTAINS
      s2=0
   END FUNCTION S2
 END MODULE M1
-! { dg-final { cleanup-modules "m1" } }
 ! { dg-final { scan-tree-dump-times "pack" 0 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
diff --git a/gcc/testsuite/gfortran.dg/internal_pack_8.f90 b/gcc/testsuite/gfortran.dg/internal_pack_8.f90
index d38403f..0e27aab 100644
--- a/gcc/testsuite/gfortran.dg/internal_pack_8.f90
+++ b/gcc/testsuite/gfortran.dg/internal_pack_8.f90
@@ -30,4 +30,3 @@ END MODULE M1
 USE M1
 CALL S1
 END
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/internal_references_1.f90 b/gcc/testsuite/gfortran.dg/internal_references_1.f90
index 73b9da6..12041df 100644
--- a/gcc/testsuite/gfortran.dg/internal_references_1.f90
+++ b/gcc/testsuite/gfortran.dg/internal_references_1.f90
@@ -33,4 +33,3 @@ contains
       bar = 1.0
     end function bar
 end program test
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/internal_references_2.f90 b/gcc/testsuite/gfortran.dg/internal_references_2.f90
index 6d4c21d..d72d906 100644
--- a/gcc/testsuite/gfortran.dg/internal_references_2.f90
+++ b/gcc/testsuite/gfortran.dg/internal_references_2.f90
@@ -18,5 +18,3 @@ contains
     real a
   end subroutine sub
 end module aap
-
-! { dg-final { cleanup-modules "aap" } }
diff --git a/gcc/testsuite/gfortran.dg/intrinsic_1.f90 b/gcc/testsuite/gfortran.dg/intrinsic_1.f90
index b2413de..15c0d39a 100644
--- a/gcc/testsuite/gfortran.dg/intrinsic_1.f90
+++ b/gcc/testsuite/gfortran.dg/intrinsic_1.f90
@@ -23,6 +23,3 @@ contains
   END FUNCTION next_state
 
 end module vector_calculus
-
-! { dg-final { cleanup-modules "vector_calculus" } }
-
diff --git a/gcc/testsuite/gfortran.dg/intrinsic_3.f90 b/gcc/testsuite/gfortran.dg/intrinsic_3.f90
index fcd40e94..3d639e3 100644
--- a/gcc/testsuite/gfortran.dg/intrinsic_3.f90
+++ b/gcc/testsuite/gfortran.dg/intrinsic_3.f90
@@ -35,6 +35,3 @@ module p
     end function erfc
 
 end module p
-
-! { dg-final { cleanup-modules "p" } }
-
diff --git a/gcc/testsuite/gfortran.dg/intrinsic_shadow_1.f03 b/gcc/testsuite/gfortran.dg/intrinsic_shadow_1.f03
index 776d0f6..8ad3a63 100644
--- a/gcc/testsuite/gfortran.dg/intrinsic_shadow_1.f03
+++ b/gcc/testsuite/gfortran.dg/intrinsic_shadow_1.f03
@@ -53,5 +53,3 @@ REAL FUNCTION random_seed () ! { dg-bogus "of an intrinsic" }
 END FUNCTION random_seed
 
 ! We do only compile, so no main program needed.
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/intrinsic_shadow_2.f03 b/gcc/testsuite/gfortran.dg/intrinsic_shadow_2.f03
index 5c04616..326edb0 100644
--- a/gcc/testsuite/gfortran.dg/intrinsic_shadow_2.f03
+++ b/gcc/testsuite/gfortran.dg/intrinsic_shadow_2.f03
@@ -25,5 +25,3 @@ REAL FUNCTION acosh (arg) ! { dg-warning "of an intrinsic" }
 END FUNCTION acosh
 
 ! We do only compile, so no main program needed.
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/intrinsic_shadow_3.f03 b/gcc/testsuite/gfortran.dg/intrinsic_shadow_3.f03
index 069a99b..4516349 100644
--- a/gcc/testsuite/gfortran.dg/intrinsic_shadow_3.f03
+++ b/gcc/testsuite/gfortran.dg/intrinsic_shadow_3.f03
@@ -23,5 +23,3 @@ REAL FUNCTION acos (arg) ! { dg-bogus "of an intrinsic" }
 END FUNCTION acos
 
 ! We do only compile, so no main program needed.
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/io_constraints_1.f90 b/gcc/testsuite/gfortran.dg/io_constraints_1.f90
index eb8ab8d..c6f9569 100644
--- a/gcc/testsuite/gfortran.dg/io_constraints_1.f90
+++ b/gcc/testsuite/gfortran.dg/io_constraints_1.f90
@@ -76,5 +76,3 @@ end module global
 100 continue
 200 format (2i6)
  END
-
-! { dg-final { cleanup-modules "fails global" } }
diff --git a/gcc/testsuite/gfortran.dg/io_constraints_2.f90 b/gcc/testsuite/gfortran.dg/io_constraints_2.f90
index 42aba66..e0e0db6 100644
--- a/gcc/testsuite/gfortran.dg/io_constraints_2.f90
+++ b/gcc/testsuite/gfortran.dg/io_constraints_2.f90
@@ -73,5 +73,3 @@ end module global
 100 continue
 200 format (2i6)
  END
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/io_constraints_6.f03 b/gcc/testsuite/gfortran.dg/io_constraints_6.f03
index d0484f5..be7b1c4 100644
--- a/gcc/testsuite/gfortran.dg/io_constraints_6.f03
+++ b/gcc/testsuite/gfortran.dg/io_constraints_6.f03
@@ -36,5 +36,3 @@ program main
   read (*, nml=definable)
   write (*, nml=definable)
 end program main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/io_constraints_7.f03 b/gcc/testsuite/gfortran.dg/io_constraints_7.f03
index 4d18491..6b686f3 100644
--- a/gcc/testsuite/gfortran.dg/io_constraints_7.f03
+++ b/gcc/testsuite/gfortran.dg/io_constraints_7.f03
@@ -33,5 +33,3 @@ program main
   open (newunit=a, file="foo") ! { dg-error "variable definition context" }
   close (unit=a)
 end program main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_3.f90 b/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_3.f90
index d9f9dfd..71fde9d 100644
--- a/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_3.f90
+++ b/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_3.f90
@@ -23,5 +23,3 @@ end module test_mod
 subroutine test
 use test_mod
 end subroutine test
-
-! { dg-final { cleanup-modules "test_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_4.f90 b/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_4.f90
index 8a87fe5..4c35264 100644
--- a/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_4.f90
+++ b/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_4.f90
@@ -14,5 +14,3 @@ module mymod
   public :: c_null_ptr
 
 end module mymod
-
-! { dg-final { cleanup-modules "mymod" } }
diff --git a/gcc/testsuite/gfortran.dg/iso_c_binding_only.f03 b/gcc/testsuite/gfortran.dg/iso_c_binding_only.f03
index dff4318..be2fbbf 100644
--- a/gcc/testsuite/gfortran.dg/iso_c_binding_only.f03
+++ b/gcc/testsuite/gfortran.dg/iso_c_binding_only.f03
@@ -7,5 +7,3 @@ module iso_c_binding_only
   ! a mangled name to prevent collisions.
   integer :: c_ptr
 end module iso_c_binding_only
-! { dg-final { cleanup-modules "iso_c_binding_only" } }  
-
diff --git a/gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03 b/gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03
index 799ba35..12828a7 100644
--- a/gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03
+++ b/gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03
@@ -80,5 +80,3 @@ contains
     end if
   end subroutine sub4
 end module iso_c_binding_rename_1
-
-! { dg-final { cleanup-modules "iso_c_binding_rename_0 iso_c_binding_rename_1" } }
diff --git a/gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03 b/gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03
index e7c18db..75797e7 100644
--- a/gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03
+++ b/gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03
@@ -38,5 +38,3 @@ contains
   end subroutine sub4
 
 end module mod2
-
-! { dg-final { cleanup-modules "mod0 mod1 mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/iso_fortran_env_1.f90 b/gcc/testsuite/gfortran.dg/iso_fortran_env_1.f90
index dfcf49b..17e9c7a 100644
--- a/gcc/testsuite/gfortran.dg/iso_fortran_env_1.f90
+++ b/gcc/testsuite/gfortran.dg/iso_fortran_env_1.f90
@@ -41,4 +41,3 @@ program test
   call bar
   call bar2
 end
-! { dg-final { cleanup-modules "iso_fortran_env" } }
diff --git a/gcc/testsuite/gfortran.dg/iso_fortran_env_2.f90 b/gcc/testsuite/gfortran.dg/iso_fortran_env_2.f90
index 6f8d228..1c5f697 100644
--- a/gcc/testsuite/gfortran.dg/iso_fortran_env_2.f90
+++ b/gcc/testsuite/gfortran.dg/iso_fortran_env_2.f90
@@ -72,5 +72,3 @@ subroutine gee5
   use ,non_intrinsic :: iso_fortran_env
   print *, x
 end
-
-! { dg-final { cleanup-modules "iso_fortran_env" } }
diff --git a/gcc/testsuite/gfortran.dg/iso_fortran_env_4.f90 b/gcc/testsuite/gfortran.dg/iso_fortran_env_4.f90
index 515269b..48d13a8 100644
--- a/gcc/testsuite/gfortran.dg/iso_fortran_env_4.f90
+++ b/gcc/testsuite/gfortran.dg/iso_fortran_env_4.f90
@@ -11,4 +11,3 @@ subroutine truc
  use, non_intrinsic :: iso_fortran_env
  use, intrinsic :: iso_fortran_env ! { dg-error "conflicts with non-intrinsic module" }
 end subroutine truc
-! { dg-final { cleanup-modules "iso_fortran_env" } }
diff --git a/gcc/testsuite/gfortran.dg/kind_tests_2.f03 b/gcc/testsuite/gfortran.dg/kind_tests_2.f03
index 2a0d7c9..d740657 100644
--- a/gcc/testsuite/gfortran.dg/kind_tests_2.f03
+++ b/gcc/testsuite/gfortran.dg/kind_tests_2.f03
@@ -5,5 +5,3 @@ module kind_tests_2
   integer, parameter :: myFKind = c_float
   real(myFKind), bind(c) :: myF
 end module kind_tests_2
-
-! { dg-final { cleanup-modules "kind_tests_2" } }
diff --git a/gcc/testsuite/gfortran.dg/kind_tests_3.f03 b/gcc/testsuite/gfortran.dg/kind_tests_3.f03
index af041b0..83cb91e 100644
--- a/gcc/testsuite/gfortran.dg/kind_tests_3.f03
+++ b/gcc/testsuite/gfortran.dg/kind_tests_3.f03
@@ -8,5 +8,3 @@ module my_module
   use my_kinds
   real(myFKind), bind(c) :: myF  
 end module my_module
-
-! { dg-final { cleanup-modules "my_kinds my_module" } }
diff --git a/gcc/testsuite/gfortran.dg/large_integer_kind_1.f90 b/gcc/testsuite/gfortran.dg/large_integer_kind_1.f90
index 2f272db..9511317 100644
--- a/gcc/testsuite/gfortran.dg/large_integer_kind_1.f90
+++ b/gcc/testsuite/gfortran.dg/large_integer_kind_1.f90
@@ -36,5 +36,3 @@ program test
   x = -huge(0_8)
   call testoutput (x,-huge(0_8),50,'(I50)')
 end program test
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/large_real_kind_1.f90 b/gcc/testsuite/gfortran.dg/large_real_kind_1.f90
index 28e4067..0d95718 100644
--- a/gcc/testsuite/gfortran.dg/large_real_kind_1.f90
+++ b/gcc/testsuite/gfortran.dg/large_real_kind_1.f90
@@ -75,5 +75,3 @@ program test
   c2(1:1) = ' '
   if (c1 /= c2) call abort
 end program test
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/ldist-pr43023.f90 b/gcc/testsuite/gfortran.dg/ldist-pr43023.f90
index 7a298ea..3e2d04c 100644
--- a/gcc/testsuite/gfortran.dg/ldist-pr43023.f90
+++ b/gcc/testsuite/gfortran.dg/ldist-pr43023.f90
@@ -29,5 +29,3 @@ end do
 END SUBROUTINE NFT_Init
 
 END MODULE NFT_mod
-
-! { dg-final { cleanup-modules "nft_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/lto/20100222-1_0.f03 b/gcc/testsuite/gfortran.dg/lto/20100222-1_0.f03
index fece781..e94ec97 100644
--- a/gcc/testsuite/gfortran.dg/lto/20100222-1_0.f03
+++ b/gcc/testsuite/gfortran.dg/lto/20100222-1_0.f03
@@ -32,4 +32,3 @@ program main
   p = c_funloc(ffunc)
   call callFunc(p, 21,-17*21)
 end program main
-! { dg-final { cleanup-modules "c_funloc_tests_3" } }
diff --git a/gcc/testsuite/gfortran.dg/lto/pr40725_0.f03 b/gcc/testsuite/gfortran.dg/lto/pr40725_0.f03
index db78315..91d84bd 100644
--- a/gcc/testsuite/gfortran.dg/lto/pr40725_0.f03
+++ b/gcc/testsuite/gfortran.dg/lto/pr40725_0.f03
@@ -13,5 +13,3 @@ contains
     end if
   end subroutine sub0
 end module bind_c_dts_2
-
-! { dg-final { cleanup-modules "bind_c_dts_2" } }
diff --git a/gcc/testsuite/gfortran.dg/lto/pr45586-2_0.f90 b/gcc/testsuite/gfortran.dg/lto/pr45586-2_0.f90
index 52e2bb1..5f9e502 100644
--- a/gcc/testsuite/gfortran.dg/lto/pr45586-2_0.f90
+++ b/gcc/testsuite/gfortran.dg/lto/pr45586-2_0.f90
@@ -30,5 +30,3 @@ END MODULE
 USE M2
   CALL S1()
 END
-
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/lto/pr45586_0.f90 b/gcc/testsuite/gfortran.dg/lto/pr45586_0.f90
index 551ba6c..84f3633 100644
--- a/gcc/testsuite/gfortran.dg/lto/pr45586_0.f90
+++ b/gcc/testsuite/gfortran.dg/lto/pr45586_0.f90
@@ -27,5 +27,3 @@
       CALL S1(x)
       write(6,*) x%r
       END
-
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/lto/pr47839_0.f90 b/gcc/testsuite/gfortran.dg/lto/pr47839_0.f90
index ec7fe3f..9ea9315 100644
--- a/gcc/testsuite/gfortran.dg/lto/pr47839_0.f90
+++ b/gcc/testsuite/gfortran.dg/lto/pr47839_0.f90
@@ -6,5 +6,3 @@ MODULE globalvar_mod
 integer        :: xstop
 CONTAINS
 END MODULE globalvar_mod
-
-! { dg-final { cleanup-modules "globalvar_mod pec_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/mapping_1.f90 b/gcc/testsuite/gfortran.dg/mapping_1.f90
index 02042c0..eda198e 100644
--- a/gcc/testsuite/gfortran.dg/mapping_1.f90
+++ b/gcc/testsuite/gfortran.dg/mapping_1.f90
@@ -67,4 +67,3 @@ program spec_test
   c_size = 5
   if (tricky ('Help me', butt_ugly) .ne. transfer (butt_ugly (1), chr)) call abort ()
 end program spec_test
-! { dg-final { cleanup-modules "mykinds spec_xpr xtra_fun" } }
diff --git a/gcc/testsuite/gfortran.dg/mapping_2.f90 b/gcc/testsuite/gfortran.dg/mapping_2.f90
index 9104184..1245c66 100644
--- a/gcc/testsuite/gfortran.dg/mapping_2.f90
+++ b/gcc/testsuite/gfortran.dg/mapping_2.f90
@@ -29,4 +29,3 @@ program len_test
 
    if (my_string(x) .ne. "01234567890") call abort ()
 end program len_test
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90 b/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90
index 7ba103d..b1c7ca7 100644
--- a/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90
+++ b/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90
@@ -19,5 +19,3 @@ program main
   call foo(res)
 end program main
 ! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" }
-! { dg-final { cleanup-modules "tst" } }
-
diff --git a/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90 b/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90
index 34d06da..ad93d23 100644
--- a/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90
+++ b/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90
@@ -19,4 +19,3 @@ program main
   call foo(res)
 end program main
 ! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" }
-! { dg-final { cleanup-modules "tst" } }
diff --git a/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90 b/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90
index 817bf8f..206a29b 100644
--- a/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90
+++ b/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90
@@ -19,4 +19,3 @@ program main
   call foo(res)
 end program main
 ! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" }
-! { dg-final { cleanup-modules "tst" } }
diff --git a/gcc/testsuite/gfortran.dg/missing_derived_type_1.f90 b/gcc/testsuite/gfortran.dg/missing_derived_type_1.f90
index c890927..0e6623e 100644
--- a/gcc/testsuite/gfortran.dg/missing_derived_type_1.f90
+++ b/gcc/testsuite/gfortran.dg/missing_derived_type_1.f90
@@ -11,4 +11,3 @@ module test
     type(nonexist),pointer :: l ! { dg-error "has not been declared" }
   end type epot_t
 end module test
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/missing_optional_dummy_2.f90 b/gcc/testsuite/gfortran.dg/missing_optional_dummy_2.f90
index 100784d..d6d0cf0 100644
--- a/gcc/testsuite/gfortran.dg/missing_optional_dummy_2.f90
+++ b/gcc/testsuite/gfortran.dg/missing_optional_dummy_2.f90
@@ -36,5 +36,3 @@ contains
     if (.not.present(substr)) isscan = myscan ("foo", "over")
   end function isscan
 end
-! { dg-final { cleanup-modules "myint" } }
-
diff --git a/gcc/testsuite/gfortran.dg/missing_optional_dummy_4.f90 b/gcc/testsuite/gfortran.dg/missing_optional_dummy_4.f90
index 9b1a574..30db273 100644
--- a/gcc/testsuite/gfortran.dg/missing_optional_dummy_4.f90
+++ b/gcc/testsuite/gfortran.dg/missing_optional_dummy_4.f90
@@ -24,5 +24,3 @@ end module krmod
 
 ! { dg-final { scan-tree-dump " tm_doit \\(0B, 0\\);" "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "krmod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/missing_optional_dummy_5.f90 b/gcc/testsuite/gfortran.dg/missing_optional_dummy_5.f90
index 29a9d70..1130d43 100644
--- a/gcc/testsuite/gfortran.dg/missing_optional_dummy_5.f90
+++ b/gcc/testsuite/gfortran.dg/missing_optional_dummy_5.f90
@@ -25,5 +25,3 @@ end module krmod
 
 ! { dg-final { scan-tree-dump " tm_doit \\(&parm\.., 0B, 0\\);" "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "krmod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/module_blank_common.f90 b/gcc/testsuite/gfortran.dg/module_blank_common.f90
index a06ff00..1eab444 100644
--- a/gcc/testsuite/gfortran.dg/module_blank_common.f90
+++ b/gcc/testsuite/gfortran.dg/module_blank_common.f90
@@ -15,5 +15,3 @@ program blank_common
   b = -999.0_4
   if (z.ne.cmplx (a,b)) call abort ()
 end program blank_common
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/module_commons_1.f90 b/gcc/testsuite/gfortran.dg/module_commons_1.f90
index bd2c7f9..73d5257 100644
--- a/gcc/testsuite/gfortran.dg/module_commons_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_commons_1.f90
@@ -21,5 +21,3 @@ program collision
   b = 99.0
   call foo ()
 end program collision
-
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/module_commons_2.f90 b/gcc/testsuite/gfortran.dg/module_commons_2.f90
index 3c3214c..a610081 100644
--- a/gcc/testsuite/gfortran.dg/module_commons_2.f90
+++ b/gcc/testsuite/gfortran.dg/module_commons_2.f90
@@ -17,5 +17,3 @@ end module h5global
 program bug
   use h5global
 end
-
-! { dg-final { cleanup-modules "h5global" } }
diff --git a/gcc/testsuite/gfortran.dg/module_commons_3.f90 b/gcc/testsuite/gfortran.dg/module_commons_3.f90
index e60cf9b..89c71b8 100644
--- a/gcc/testsuite/gfortran.dg/module_commons_3.f90
+++ b/gcc/testsuite/gfortran.dg/module_commons_3.f90
@@ -54,4 +54,3 @@ PROGRAM TEST1
   call BAR (T2)
   CALL FOOBAR (T2)
 END PROGRAM TEST1
-! { dg-final { cleanup-modules "test2 test3 test4" } }
diff --git a/gcc/testsuite/gfortran.dg/module_double_reuse.f90 b/gcc/testsuite/gfortran.dg/module_double_reuse.f90
index 694e821..0d527f3 100644
--- a/gcc/testsuite/gfortran.dg/module_double_reuse.f90
+++ b/gcc/testsuite/gfortran.dg/module_double_reuse.f90
@@ -16,5 +16,3 @@ program d
   if (kind(x).ne.kind(y)) call abort ()
   if (v.ne.u) call abort ()
 end program d
-
-! { dg-final { cleanup-modules "a" } }
diff --git a/gcc/testsuite/gfortran.dg/module_equivalence_1.f90 b/gcc/testsuite/gfortran.dg/module_equivalence_1.f90
index fecfb89..50a19f2 100644
--- a/gcc/testsuite/gfortran.dg/module_equivalence_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_equivalence_1.f90
@@ -22,5 +22,3 @@ program module_equiv
   c = (/99.0_4, 999.0_4, 999.0_4, 99.0_4/)
   call foo ()
 end program module_equiv
-
-! { dg-final { cleanup-modules "test_equiv" } }
diff --git a/gcc/testsuite/gfortran.dg/module_equivalence_2.f90 b/gcc/testsuite/gfortran.dg/module_equivalence_2.f90
index f6a3c34..3ec8efb 100644
--- a/gcc/testsuite/gfortran.dg/module_equivalence_2.f90
+++ b/gcc/testsuite/gfortran.dg/module_equivalence_2.f90
@@ -22,4 +22,3 @@ end module b
   reM = 0.57d1
   if (M .ne. 0.57d1) call abort ()
 end
-! { dg-final { cleanup-modules "a b" } }
diff --git a/gcc/testsuite/gfortran.dg/module_equivalence_3.f90 b/gcc/testsuite/gfortran.dg/module_equivalence_3.f90
index d646f97..75b9028 100644
--- a/gcc/testsuite/gfortran.dg/module_equivalence_3.f90
+++ b/gcc/testsuite/gfortran.dg/module_equivalence_3.f90
@@ -34,5 +34,3 @@ contains
     if (any(d(3:5) .ne. b)) call abort ()
   end subroutine
 end
-
-! { dg-final { cleanup-modules "aap" } }
diff --git a/gcc/testsuite/gfortran.dg/module_equivalence_4.f90 b/gcc/testsuite/gfortran.dg/module_equivalence_4.f90
index c30fd52..09eb914 100644
--- a/gcc/testsuite/gfortran.dg/module_equivalence_4.f90
+++ b/gcc/testsuite/gfortran.dg/module_equivalence_4.f90
@@ -25,5 +25,3 @@ end subroutine nudata
   real :: a_(2) = (/1.,2./)  
   call nudata (nlibe_, a_, l_)
 end
-
-! { dg-final { cleanup-modules "data_c" } }
diff --git a/gcc/testsuite/gfortran.dg/module_equivalence_5.f90 b/gcc/testsuite/gfortran.dg/module_equivalence_5.f90
index de1d504..e5acfaa 100644
--- a/gcc/testsuite/gfortran.dg/module_equivalence_5.f90
+++ b/gcc/testsuite/gfortran.dg/module_equivalence_5.f90
@@ -29,6 +29,3 @@ program try_cf004
   nf2 = 2
   call cf0004
 end
-
-! { dg-final { cleanup-modules "stuff" } }
-
diff --git a/gcc/testsuite/gfortran.dg/module_equivalence_6.f90 b/gcc/testsuite/gfortran.dg/module_equivalence_6.f90
index 40e8b4b..67a5235 100644
--- a/gcc/testsuite/gfortran.dg/module_equivalence_6.f90
+++ b/gcc/testsuite/gfortran.dg/module_equivalence_6.f90
@@ -19,4 +19,3 @@ PROGRAM fortranlibtest
   INTEGER :: ii
   ii = H5P_DEFAULT_F 
 END PROGRAM fortranlibtest
-! { dg-final { cleanup-modules "h5global hdf5" } }
diff --git a/gcc/testsuite/gfortran.dg/module_function_type_1.f90 b/gcc/testsuite/gfortran.dg/module_function_type_1.f90
index a1063b1..793205c 100644
--- a/gcc/testsuite/gfortran.dg/module_function_type_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_function_type_1.f90
@@ -28,6 +28,3 @@ program C
   type(A_type):: A_var
   A_var = initA()
 end program C
-
-! { dg-final { cleanup-modules "a b" } }
-
diff --git a/gcc/testsuite/gfortran.dg/module_implicit_conversion.f90 b/gcc/testsuite/gfortran.dg/module_implicit_conversion.f90
index d7835a7..9626f95 100644
--- a/gcc/testsuite/gfortran.dg/module_implicit_conversion.f90
+++ b/gcc/testsuite/gfortran.dg/module_implicit_conversion.f90
@@ -5,5 +5,3 @@ module module_implicit_conversion
   ! double complex :: s = (1.0D0, 0D0) 
   double complex :: s = (1.0, 0D0)
 end module module_implicit_conversion
-
-! { dg-final { cleanup-modules "module_implicit_conversion" } }
diff --git a/gcc/testsuite/gfortran.dg/module_interface_1.f90 b/gcc/testsuite/gfortran.dg/module_interface_1.f90
index 54ea14b..354aa97 100644
--- a/gcc/testsuite/gfortran.dg/module_interface_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_interface_1.f90
@@ -34,5 +34,3 @@
       return
     end subroutine Selection_Sort
   end program module_interface
-
-! { dg-final { cleanup-modules "max_loc_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/module_interface_2.f90 b/gcc/testsuite/gfortran.dg/module_interface_2.f90
index 1f9fde8..d233797 100644
--- a/gcc/testsuite/gfortran.dg/module_interface_2.f90
+++ b/gcc/testsuite/gfortran.dg/module_interface_2.f90
@@ -28,4 +28,3 @@ end module foo_mod
   print *, two (2.3)
   print *, dbl (2.3)
 end program xfoo
-! { dg-final { cleanup-modules "foo_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/module_md5_1.f90 b/gcc/testsuite/gfortran.dg/module_md5_1.f90
index 0816a70..1f522cb 100644
--- a/gcc/testsuite/gfortran.dg/module_md5_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_md5_1.f90
@@ -11,4 +11,3 @@ program test
   print *, pi
 end program test
 ! { dg-final { scan-module "foo" "MD5:510304affe70481794fecdb22fc9ca0c" } }
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/module_naming_1.f90 b/gcc/testsuite/gfortran.dg/module_naming_1.f90
index 8024300..2a2d00b 100644
--- a/gcc/testsuite/gfortran.dg/module_naming_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_naming_1.f90
@@ -29,4 +29,3 @@ contains
     ! mangled to __m2_mod_m2_MOD_m3
   end subroutine m3
 end module m2_MOD_m2
-! { dg-final { cleanup-modules "m1 m1__m2 m2 m2_mod_m2" } }
diff --git a/gcc/testsuite/gfortran.dg/module_nan.f90 b/gcc/testsuite/gfortran.dg/module_nan.f90
index 202781f..5f41514 100644
--- a/gcc/testsuite/gfortran.dg/module_nan.f90
+++ b/gcc/testsuite/gfortran.dg/module_nan.f90
@@ -26,5 +26,3 @@ program a
   write(str,*) nan
   if (adjustl(str) /= "NaN") call abort()
 end program a
-
-! { dg-final { cleanup-modules "nonordinal" } }
diff --git a/gcc/testsuite/gfortran.dg/module_parameter_array_refs_1.f90 b/gcc/testsuite/gfortran.dg/module_parameter_array_refs_1.f90
index 592e2f3..9ef75d9 100644
--- a/gcc/testsuite/gfortran.dg/module_parameter_array_refs_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_parameter_array_refs_1.f90
@@ -10,5 +10,3 @@ module foo
    integer :: arr(max(len,1))
 
 end
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/module_parameter_array_refs_2.f90 b/gcc/testsuite/gfortran.dg/module_parameter_array_refs_2.f90
index 385761d..7324ff6 100644
--- a/gcc/testsuite/gfortran.dg/module_parameter_array_refs_2.f90
+++ b/gcc/testsuite/gfortran.dg/module_parameter_array_refs_2.f90
@@ -19,5 +19,3 @@ integer :: i
 i = 1
 if (para(i) /= 1) call i_am_optimized_away()
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/module_private_1.f90 b/gcc/testsuite/gfortran.dg/module_private_1.f90
index 7d854a1..66bc564 100644
--- a/gcc/testsuite/gfortran.dg/module_private_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_private_1.f90
@@ -18,5 +18,3 @@ program main
   j = 1
   print *, i, j
 end program main
-
-! { dg-final { cleanup-modules "bar foo" } }
diff --git a/gcc/testsuite/gfortran.dg/module_private_array_refs_1.f90 b/gcc/testsuite/gfortran.dg/module_private_array_refs_1.f90
index e2591ab..56bd6f2 100644
--- a/gcc/testsuite/gfortran.dg/module_private_array_refs_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_private_array_refs_1.f90
@@ -48,5 +48,3 @@ end
   use bar
   call sub ()
 end
-
-! { dg-final { cleanup-modules "foo bar" } }
diff --git a/gcc/testsuite/gfortran.dg/module_proc_external_dummy.f90 b/gcc/testsuite/gfortran.dg/module_proc_external_dummy.f90
index 86c66c2..08f61b0 100644
--- a/gcc/testsuite/gfortran.dg/module_proc_external_dummy.f90
+++ b/gcc/testsuite/gfortran.dg/module_proc_external_dummy.f90
@@ -27,4 +27,3 @@ end module test_module
    call sub_module (sub)
    call sub_module (str)
 end
-! { dg-final { cleanup-modules "test_module" } }
diff --git a/gcc/testsuite/gfortran.dg/module_procedure_1.f90 b/gcc/testsuite/gfortran.dg/module_procedure_1.f90
index 5e1fa15..35ec18c 100644
--- a/gcc/testsuite/gfortran.dg/module_procedure_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_procedure_1.f90
@@ -50,4 +50,3 @@ subroutine test_sub(input1, input2)
    if (mysum(1) /= 3 .and. mysum(2) /= 4) call abort 
 
 end subroutine test_sub 
-! { dg-final { cleanup-modules "myoperator" } }
diff --git a/gcc/testsuite/gfortran.dg/module_procedure_double_colon_1.f90 b/gcc/testsuite/gfortran.dg/module_procedure_double_colon_1.f90
index 200f0ff..3987759 100644
--- a/gcc/testsuite/gfortran.dg/module_procedure_double_colon_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_procedure_double_colon_1.f90
@@ -20,4 +20,3 @@ contains
      real x
    end subroutine
 end module
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/module_procedure_double_colon_2.f90 b/gcc/testsuite/gfortran.dg/module_procedure_double_colon_2.f90
index 9300215..b59e766 100644
--- a/gcc/testsuite/gfortran.dg/module_procedure_double_colon_2.f90
+++ b/gcc/testsuite/gfortran.dg/module_procedure_double_colon_2.f90
@@ -21,4 +21,3 @@ contains
      real x
    end subroutine
 end module
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/module_read_1.f90 b/gcc/testsuite/gfortran.dg/module_read_1.f90
index 226c736..ad3e3d1 100644
--- a/gcc/testsuite/gfortran.dg/module_read_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_read_1.f90
@@ -27,4 +27,3 @@ program test
   if(len(push(0)) /= 0) call abort()
   if(len(push(1)) /= 1) call abort()
 end program
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/module_read_2.f90 b/gcc/testsuite/gfortran.dg/module_read_2.f90
index d001ca7..565c188 100644
--- a/gcc/testsuite/gfortran.dg/module_read_2.f90
+++ b/gcc/testsuite/gfortran.dg/module_read_2.f90
@@ -26,5 +26,3 @@ str%string = ['H','e','l','l','o']
 if (len (string_to_char (str)) /= 5) call abort ()
 if (string_to_char (str) /= "Hello") call abort ()
 end
-
-! { dg-final { cleanup-modules "m_string" } }
diff --git a/gcc/testsuite/gfortran.dg/module_widestring_1.f90 b/gcc/testsuite/gfortran.dg/module_widestring_1.f90
index f2e9fe2..c340910 100644
--- a/gcc/testsuite/gfortran.dg/module_widestring_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_widestring_1.f90
@@ -12,5 +12,3 @@ end module m
   if (ichar(a(2:2)) /= 0) call abort
   write (s,"(A)") a
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/module_write_1.f90 b/gcc/testsuite/gfortran.dg/module_write_1.f90
index 3b488ce..0613c92 100644
--- a/gcc/testsuite/gfortran.dg/module_write_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_write_1.f90
@@ -56,4 +56,3 @@ use FoX_dom
 implicit none
 print *, vs_str("ABC")
 end
-! { dg-final { cleanup-modules "fox_m_fsys_array_str fox_m_fsys_format m_dom_dom fox_dom" } }
diff --git a/gcc/testsuite/gfortran.dg/move_alloc_10.f90 b/gcc/testsuite/gfortran.dg/move_alloc_10.f90
index 3a538be..e597928 100644
--- a/gcc/testsuite/gfortran.dg/move_alloc_10.f90
+++ b/gcc/testsuite/gfortran.dg/move_alloc_10.f90
@@ -75,5 +75,3 @@ program main
       call abort ()
   end select
 end program main
-
-! { dg-final { cleanup-modules "myalloc" } }
diff --git a/gcc/testsuite/gfortran.dg/move_alloc_8.f90 b/gcc/testsuite/gfortran.dg/move_alloc_8.f90
index 2fa5306..f624b70 100644
--- a/gcc/testsuite/gfortran.dg/move_alloc_8.f90
+++ b/gcc/testsuite/gfortran.dg/move_alloc_8.f90
@@ -102,5 +102,3 @@ CONTAINS
     call move_alloc(dt%VALUE, lv) ! { dg-error "cannot be INTENT.IN." }
   END SUBROUTINE
 end subroutine test4
-
-! { dg-final { cleanup-modules "bug" } }
diff --git a/gcc/testsuite/gfortran.dg/move_alloc_9.f90 b/gcc/testsuite/gfortran.dg/move_alloc_9.f90
index 60d6f14..bf3f7b1 100644
--- a/gcc/testsuite/gfortran.dg/move_alloc_9.f90
+++ b/gcc/testsuite/gfortran.dg/move_alloc_9.f90
@@ -53,5 +53,3 @@ program testmv1
   if (allocated(sm2)) call abort()
   if (.not. allocated(sm)) call abort()
 end program 
-
-! { dg-final { cleanup-modules "m2 m3" } }
diff --git a/gcc/testsuite/gfortran.dg/mvbits_6.f90 b/gcc/testsuite/gfortran.dg/mvbits_6.f90
index 56ceacc..c8986df 100644
--- a/gcc/testsuite/gfortran.dg/mvbits_6.f90
+++ b/gcc/testsuite/gfortran.dg/mvbits_6.f90
@@ -31,4 +31,3 @@
       call yg0009(tda2l,4,3,1,-1,-4,-3)
 
       end
-! { dg-final { cleanup-modules "yg0009_stuff" } }
diff --git a/gcc/testsuite/gfortran.dg/named_interface.f90 b/gcc/testsuite/gfortran.dg/named_interface.f90
index 29cfae8..90fea80 100644
--- a/gcc/testsuite/gfortran.dg/named_interface.f90
+++ b/gcc/testsuite/gfortran.dg/named_interface.f90
@@ -7,5 +7,3 @@ module snafu
     end subroutine really_snafu
   end interface foo
 end module snafu
-
-! { dg-final { cleanup-modules "snafu" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_1.f90 b/gcc/testsuite/gfortran.dg/namelist_1.f90
index e4154e9..ee028dd 100644
--- a/gcc/testsuite/gfortran.dg/namelist_1.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_1.f90
@@ -5,5 +5,3 @@ module namelist_1
   integer,private :: x
   namelist /n/ x ! { dg-error "cannot be member of PUBLIC namelist" "" }
 end module
-
-! { dg-final { cleanup-modules "namelist_1" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_14.f90 b/gcc/testsuite/gfortran.dg/namelist_14.f90
index 478e07f..341d1a3 100644
--- a/gcc/testsuite/gfortran.dg/namelist_14.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_14.f90
@@ -95,5 +95,3 @@ contains
 
     end subroutine foo
 end program namelist_14 
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_15.f90 b/gcc/testsuite/gfortran.dg/namelist_15.f90
index e900e71..ea02f9f 100644
--- a/gcc/testsuite/gfortran.dg/namelist_15.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_15.f90
@@ -61,5 +61,3 @@ program namelist_15
              (x(2)%m(2)%ch(2) == "kz"))) call abort ()
 
 end program namelist_15
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_33.f90 b/gcc/testsuite/gfortran.dg/namelist_33.f90
index 8bbe597..79459ee 100644
--- a/gcc/testsuite/gfortran.dg/namelist_33.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_33.f90
@@ -66,5 +66,3 @@ contains
     namelist /nml2/ t5    ! { dg-error "has use-associated PRIVATE components" }
   end subroutine
 end program
-
-! { dg-final { cleanup-modules "types nml" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_34.f90 b/gcc/testsuite/gfortran.dg/namelist_34.f90
index f7c5e1c..9432771 100644
--- a/gcc/testsuite/gfortran.dg/namelist_34.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_34.f90
@@ -26,5 +26,3 @@ USE types
    namelist /a/ t1    ! { dg-error "has ALLOCATABLE or POINTER components and thus requires a defined input/output" }
    namelist /b/ t3    ! { dg-error "has ALLOCATABLE or POINTER components and thus requires a defined input/output" }
 END MODULE
-
-! { dg-final { cleanup-modules "types nml" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_36.f90 b/gcc/testsuite/gfortran.dg/namelist_36.f90
index b6a14e3..83f420e 100644
--- a/gcc/testsuite/gfortran.dg/namelist_36.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_36.f90
@@ -25,5 +25,3 @@ contains
     namelist /nml3/ t2       ! ok, private components
   end subroutine
 END MODULE
-
-! { dg-final { cleanup-modules "nml" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_4.f90 b/gcc/testsuite/gfortran.dg/namelist_4.f90
index ad4e1ab..538bcea 100644
--- a/gcc/testsuite/gfortran.dg/namelist_4.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_4.f90
@@ -38,4 +38,3 @@ CONTAINS
   END FUNCTION

 END
 

-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_40.f90 b/gcc/testsuite/gfortran.dg/namelist_40.f90
index d6f896a..195a78b 100644
--- a/gcc/testsuite/gfortran.dg/namelist_40.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_40.f90
@@ -51,4 +51,3 @@ end program namelist_40
 ! { dg-output "Missing colon in substring qualifier for namelist variable x%m%ch(\n|\r\n|\r)" }
 ! { dg-output "Substring out of range for namelist variable x%m%ch(\n|\r\n|\r)" }
 ! { dg-output "Bad character in substring qualifier for namelist variable x%m%ch(\n|\r\n|\r)" }
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_47.f90 b/gcc/testsuite/gfortran.dg/namelist_47.f90
index 5819247..45f3823 100644
--- a/gcc/testsuite/gfortran.dg/namelist_47.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_47.f90
@@ -49,4 +49,3 @@ end program namelist_47
 ! { dg-output "Missing colon in substring qualifier for namelist variable x%m%c012345678901234567890123456789012345678901234567890123456789h(\n|\r\n|\r)" }
 ! { dg-output "Substring out of range for namelist variable x%m%c012345678901234567890123456789012345678901234567890123456789h(\n|\r\n|\r)" }
 ! { dg-output "Bad character in substring qualifier for namelist variable x%m%c012345678901234567890123456789012345678901234567890123456789h(\n|\r\n|\r)" }
-! { dg-final { cleanup-modules "nml_47" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_52.f90 b/gcc/testsuite/gfortran.dg/namelist_52.f90
index 253bd3f..6e31382 100644
--- a/gcc/testsuite/gfortran.dg/namelist_52.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_52.f90
@@ -30,5 +30,3 @@ 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/namelist_62.f90 b/gcc/testsuite/gfortran.dg/namelist_62.f90
index 23e2562..eb7f4a8 100644
--- a/gcc/testsuite/gfortran.dg/namelist_62.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_62.f90
@@ -16,5 +16,3 @@ PROGRAM gafortran
   NAMELIST /ga/ nichflg
   READ (23, nml=ga)
 END PROGRAM gafortran
-
-! { dg-final { cleanup-modules "ga_commons" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_use.f90 b/gcc/testsuite/gfortran.dg/namelist_use.f90
index d550e00..d7e6272 100644
--- a/gcc/testsuite/gfortran.dg/namelist_use.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_use.f90
@@ -29,5 +29,3 @@ program namelist_use
 
   close (10)
 end program namelist_use
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/namelist_use_only.f90 b/gcc/testsuite/gfortran.dg/namelist_use_only.f90
index d9a28a8..d2a533e 100644
--- a/gcc/testsuite/gfortran.dg/namelist_use_only.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_use_only.f90
@@ -34,5 +34,3 @@ program namelist_use_only
   if ((i.ne.0).or.(rrrr.ne.3.5).or.foo()) call abort ()
   close (10)
 end program namelist_use_only
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/nan_1.f90 b/gcc/testsuite/gfortran.dg/nan_1.f90
index 609780d..4ff1b87 100644
--- a/gcc/testsuite/gfortran.dg/nan_1.f90
+++ b/gcc/testsuite/gfortran.dg/nan_1.f90
@@ -122,5 +122,3 @@ program test
   if (isinf(max(-large, -inf, nan))) call abort
 
 end program test
-
-! { dg-final { cleanup-modules "aux2" } }
diff --git a/gcc/testsuite/gfortran.dg/nan_2.f90 b/gcc/testsuite/gfortran.dg/nan_2.f90
index 5c821d6..709b147 100644
--- a/gcc/testsuite/gfortran.dg/nan_2.f90
+++ b/gcc/testsuite/gfortran.dg/nan_2.f90
@@ -105,4 +105,3 @@ program test
   if (isinf(max(-large, -inf, nan))) call abort
 
 end program test
-! { dg-final { cleanup-modules "aux2" } }
diff --git a/gcc/testsuite/gfortran.dg/nested_forall_1.f b/gcc/testsuite/gfortran.dg/nested_forall_1.f
index 6aa66ee..bf93b6b 100644
--- a/gcc/testsuite/gfortran.dg/nested_forall_1.f
+++ b/gcc/testsuite/gfortran.dg/nested_forall_1.f
@@ -35,4 +35,3 @@
       END FORALL
       END SUBROUTINE
       END MODULE TESTS
-! { dg-final { cleanup-modules "tests" } }
diff --git a/gcc/testsuite/gfortran.dg/nested_modules_1.f90 b/gcc/testsuite/gfortran.dg/nested_modules_1.f90
index a0bd963..336467f 100644
--- a/gcc/testsuite/gfortran.dg/nested_modules_1.f90
+++ b/gcc/testsuite/gfortran.dg/nested_modules_1.f90
@@ -41,5 +41,3 @@
        call eyeore ()
        call tigger (w)
        end
-
-! { dg-final { cleanup-modules "mod0 mod1 mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/nested_modules_2.f90 b/gcc/testsuite/gfortran.dg/nested_modules_2.f90
index 0714eed..deb980e 100644
--- a/gcc/testsuite/gfortran.dg/nested_modules_2.f90
+++ b/gcc/testsuite/gfortran.dg/nested_modules_2.f90
@@ -35,5 +35,3 @@ program testfoobar
   call sub2 (l)
   if (any (l.ne.(/84,42,0/))) call abort ()
 end program testfoobar
-
-! { dg-final { cleanup-modules "foo bar foobar" } }
diff --git a/gcc/testsuite/gfortran.dg/nested_modules_3.f90 b/gcc/testsuite/gfortran.dg/nested_modules_3.f90
index 7550368..364460c 100644
--- a/gcc/testsuite/gfortran.dg/nested_modules_3.f90
+++ b/gcc/testsuite/gfortran.dg/nested_modules_3.f90
@@ -53,5 +53,3 @@ PROGRAM use_foobar
   CALL sub3 (z, j)
   IF (ALL (j.ne.(/3,2,1/))) CALL abort ()
 END PROGRAM use_foobar
-
-! { dg-final { cleanup-modules "foo bar foobar" } }
diff --git a/gcc/testsuite/gfortran.dg/nested_modules_4.f90 b/gcc/testsuite/gfortran.dg/nested_modules_4.f90
index 6be77b3..f78b16f 100644
--- a/gcc/testsuite/gfortran.dg/nested_modules_4.f90
+++ b/gcc/testsuite/gfortran.dg/nested_modules_4.f90
@@ -24,5 +24,3 @@ end module serial
   character*15  :: buffer  
   buffer = lc ("Have a Nice DAY")
   end
-
-! { dg-final { cleanup-modules "string serial" } }
diff --git a/gcc/testsuite/gfortran.dg/nested_modules_5.f90 b/gcc/testsuite/gfortran.dg/nested_modules_5.f90
index 2ed6824..90a5581 100644
--- a/gcc/testsuite/gfortran.dg/nested_modules_5.f90
+++ b/gcc/testsuite/gfortran.dg/nested_modules_5.f90
@@ -25,5 +25,3 @@ end module serial
   character*15  :: buffer  
   buffer = lc ("Have a Nice DAY")
   end
-
-! { dg-final { cleanup-modules "anything serial" } }
diff --git a/gcc/testsuite/gfortran.dg/nested_modules_6.f90 b/gcc/testsuite/gfortran.dg/nested_modules_6.f90
index ab9cc2e..b957422 100644
--- a/gcc/testsuite/gfortran.dg/nested_modules_6.f90
+++ b/gcc/testsuite/gfortran.dg/nested_modules_6.f90
@@ -32,4 +32,3 @@ end module vamp_rest
   print *, s_last
   print *, diag (x)
 end
-! { dg-final { cleanup-modules "tao_random_numbers linalg vamp_rest" } }
diff --git a/gcc/testsuite/gfortran.dg/operator_1.f90 b/gcc/testsuite/gfortran.dg/operator_1.f90
index 1800b68..6f27246 100644
--- a/gcc/testsuite/gfortran.dg/operator_1.f90
+++ b/gcc/testsuite/gfortran.dg/operator_1.f90
@@ -66,4 +66,3 @@ end module m1
   if (any((ac*bc) /= matmul(ac,bc))) call abort()
 
 end
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/operator_2.f90 b/gcc/testsuite/gfortran.dg/operator_2.f90
index 0e560da..11540ca 100644
--- a/gcc/testsuite/gfortran.dg/operator_2.f90
+++ b/gcc/testsuite/gfortran.dg/operator_2.f90
@@ -38,4 +38,3 @@ contains
  end function f3
 
 end
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/operator_4.f90 b/gcc/testsuite/gfortran.dg/operator_4.f90
index 39cd7eb..f131503 100644
--- a/gcc/testsuite/gfortran.dg/operator_4.f90
+++ b/gcc/testsuite/gfortran.dg/operator_4.f90
@@ -96,5 +96,3 @@ PROGRAM pr17711
   A = (A >  C)   ! { dg-error "comparison operator '>'" }
   A = (A.GT.C)   ! { dg-error "comparison operator '.gt.'" }
 END PROGRAM
-
-! { dg-final { cleanup-modules "mod_t" } }
diff --git a/gcc/testsuite/gfortran.dg/operator_5.f90 b/gcc/testsuite/gfortran.dg/operator_5.f90
index 6ce77c8..307b341 100644
--- a/gcc/testsuite/gfortran.dg/operator_5.f90
+++ b/gcc/testsuite/gfortran.dg/operator_5.f90
@@ -47,5 +47,3 @@ CONTAINS
     t_bar = .FALSE.
   END FUNCTION
 END MODULE
-
-! { dg-final { cleanup-modules "mod_t" } }
diff --git a/gcc/testsuite/gfortran.dg/operator_6.f90 b/gcc/testsuite/gfortran.dg/operator_6.f90
index f7b4693..5ca2d60 100644
--- a/gcc/testsuite/gfortran.dg/operator_6.f90
+++ b/gcc/testsuite/gfortran.dg/operator_6.f90
@@ -9,4 +9,3 @@ end module foo
 program test
   use foo, only : operator(.none.)           ! { dg-error "not found in module" }
   end program test
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/operator_7.f90 b/gcc/testsuite/gfortran.dg/operator_7.f90
index 66d8dd1..a2a81e3 100644
--- a/gcc/testsuite/gfortran.dg/operator_7.f90
+++ b/gcc/testsuite/gfortran.dg/operator_7.f90
@@ -23,5 +23,3 @@ end module
   type(foo) :: a, b
   print *, a == b
 end subroutine
-
-! { dg-final { cleanup-modules "foo_type" } }
diff --git a/gcc/testsuite/gfortran.dg/operator_c1202.f90 b/gcc/testsuite/gfortran.dg/operator_c1202.f90
index ae5e126..c53079a 100644
--- a/gcc/testsuite/gfortran.dg/operator_c1202.f90
+++ b/gcc/testsuite/gfortran.dg/operator_c1202.f90
@@ -66,5 +66,3 @@ module op
       end function f1
 
 end module op
-
-! { dg-final { cleanup-modules "op" } }
diff --git a/gcc/testsuite/gfortran.dg/optional_assumed_charlen_1.f90 b/gcc/testsuite/gfortran.dg/optional_assumed_charlen_1.f90
index 90631aa..5c929e8 100644
--- a/gcc/testsuite/gfortran.dg/optional_assumed_charlen_1.f90
+++ b/gcc/testsuite/gfortran.dg/optional_assumed_charlen_1.f90
@@ -17,4 +17,3 @@
       END SUBROUTINE sub2
 
      END MODULE foo
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/optional_dim_3.f90 b/gcc/testsuite/gfortran.dg/optional_dim_3.f90
index 45099a3..fc66ba5 100644
--- a/gcc/testsuite/gfortran.dg/optional_dim_3.f90
+++ b/gcc/testsuite/gfortran.dg/optional_dim_3.f90
@@ -50,4 +50,3 @@ program main
   call sub(bound=.false., dimmy=1_8)
   call sub()
 end program main
-! { dg-final { cleanup-modules "tst_foo" } }
diff --git a/gcc/testsuite/gfortran.dg/overload_1.f90 b/gcc/testsuite/gfortran.dg/overload_1.f90
index fc38a6c..97aa843 100644
--- a/gcc/testsuite/gfortran.dg/overload_1.f90
+++ b/gcc/testsuite/gfortran.dg/overload_1.f90
@@ -181,4 +181,3 @@ contains
          & abort
   end subroutine checku
 end program main
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/parameter_array_init_3.f90 b/gcc/testsuite/gfortran.dg/parameter_array_init_3.f90
index e39da8e..6eaa98e 100644
--- a/gcc/testsuite/gfortran.dg/parameter_array_init_3.f90
+++ b/gcc/testsuite/gfortran.dg/parameter_array_init_3.f90
@@ -13,4 +13,3 @@ module abuse_mod
    integer(1), parameter :: MSKa1(len(HEX1)) =  [(1,i=1,len(HEX1))]
    integer(1), parameter :: ARR1(len(HEX1)) = [( MSKa1(i), i=1,len(HEX1) )]
 end module abuse_mod
-! { dg-final { cleanup-modules "abuse_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/parameter_array_init_5.f90 b/gcc/testsuite/gfortran.dg/parameter_array_init_5.f90
index 2977b88..0f4127a 100644
--- a/gcc/testsuite/gfortran.dg/parameter_array_init_5.f90
+++ b/gcc/testsuite/gfortran.dg/parameter_array_init_5.f90
@@ -23,4 +23,3 @@ program TEST
     use bug3
     call sr
 end program TEST
-! { dg-final { cleanup-modules "bug3" } }
diff --git a/gcc/testsuite/gfortran.dg/parameter_array_section_1.f90 b/gcc/testsuite/gfortran.dg/parameter_array_section_1.f90
index 6c69593..30c7abd 100644
--- a/gcc/testsuite/gfortran.dg/parameter_array_section_1.f90
+++ b/gcc/testsuite/gfortran.dg/parameter_array_section_1.f90
@@ -21,4 +21,3 @@ end module gfcbug45
   use gfcbug45
   call foo
 end
-! { dg-final { cleanup-modules "gfcbug45" } }
diff --git a/gcc/testsuite/gfortran.dg/parens_5.f90 b/gcc/testsuite/gfortran.dg/parens_5.f90
index ac631ef..91c58d0 100644
--- a/gcc/testsuite/gfortran.dg/parens_5.f90
+++ b/gcc/testsuite/gfortran.dg/parens_5.f90
@@ -19,5 +19,3 @@ program test
    c = bobo(5)
    if (c .ne. "12345") call abort
 end program test
-
-! { dg-final { cleanup-modules "para" } }
diff --git a/gcc/testsuite/gfortran.dg/parens_7.f90 b/gcc/testsuite/gfortran.dg/parens_7.f90
index 9cf9e5b..5060e7a 100644
--- a/gcc/testsuite/gfortran.dg/parens_7.f90
+++ b/gcc/testsuite/gfortran.dg/parens_7.f90
@@ -15,5 +15,3 @@ end function test4
 
  
 end program test
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/parent_result_ref_4.f90 b/gcc/testsuite/gfortran.dg/parent_result_ref_4.f90
index 174d645..d8c84e7 100644
--- a/gcc/testsuite/gfortran.dg/parent_result_ref_4.f90
+++ b/gcc/testsuite/gfortran.dg/parent_result_ref_4.f90
@@ -20,5 +20,3 @@ end module m
   use m

   if (f ().ne.2) call abort ()

 end

-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/pointer_check_6.f90 b/gcc/testsuite/gfortran.dg/pointer_check_6.f90
index 2f7373f..81dbae8 100644
--- a/gcc/testsuite/gfortran.dg/pointer_check_6.f90
+++ b/gcc/testsuite/gfortran.dg/pointer_check_6.f90
@@ -113,6 +113,3 @@ contains
     integer :: b
   end subroutine
 end
-
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/pointer_check_7.f90 b/gcc/testsuite/gfortran.dg/pointer_check_7.f90
index 0f6dcdc..5b0c212 100644
--- a/gcc/testsuite/gfortran.dg/pointer_check_7.f90
+++ b/gcc/testsuite/gfortran.dg/pointer_check_7.f90
@@ -32,5 +32,3 @@ contains
   end subroutine
 
 end module
-
-! { dg-final { cleanup-modules "base_mat_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/pointer_comp_init_1.f90 b/gcc/testsuite/gfortran.dg/pointer_comp_init_1.f90
index 44f360e..5738de6 100644
--- a/gcc/testsuite/gfortran.dg/pointer_comp_init_1.f90
+++ b/gcc/testsuite/gfortran.dg/pointer_comp_init_1.f90
@@ -26,5 +26,3 @@ contains
   end subroutine add_item_to_dict
 
 end module m_common_attrs
-
-! { dg-final { cleanup-modules "m_common_attrs" } }
diff --git a/gcc/testsuite/gfortran.dg/pointer_init_3.f90 b/gcc/testsuite/gfortran.dg/pointer_init_3.f90
index 867a428..a91e518 100644
--- a/gcc/testsuite/gfortran.dg/pointer_init_3.f90
+++ b/gcc/testsuite/gfortran.dg/pointer_init_3.f90
@@ -40,5 +40,3 @@ dp3 = 4
 if (u%i/=4) call abort()
 
 end 
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/pointer_init_4.f90 b/gcc/testsuite/gfortran.dg/pointer_init_4.f90
index 75ead45..2ca1734 100644
--- a/gcc/testsuite/gfortran.dg/pointer_init_4.f90
+++ b/gcc/testsuite/gfortran.dg/pointer_init_4.f90
@@ -38,5 +38,3 @@ if (pp()/=42) call abort()
 if (u%ppc()/=43) call abort()
 
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/pointer_init_5.f90 b/gcc/testsuite/gfortran.dg/pointer_init_5.f90
index beedad2..1ca7738 100644
--- a/gcc/testsuite/gfortran.dg/pointer_init_5.f90
+++ b/gcc/testsuite/gfortran.dg/pointer_init_5.f90
@@ -38,5 +38,3 @@ if (pp()/=42) call abort()
 if (u%ppc()/=43) call abort()
 
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/pointer_init_6.f90 b/gcc/testsuite/gfortran.dg/pointer_init_6.f90
index cc5cf36..428a7de 100644
--- a/gcc/testsuite/gfortran.dg/pointer_init_6.f90
+++ b/gcc/testsuite/gfortran.dg/pointer_init_6.f90
@@ -35,5 +35,3 @@ contains
   end subroutine
 
 end module m2
-
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/pr15164.f90 b/gcc/testsuite/gfortran.dg/pr15164.f90
index f809871..def2931 100644
--- a/gcc/testsuite/gfortran.dg/pr15164.f90
+++ b/gcc/testsuite/gfortran.dg/pr15164.f90
@@ -13,5 +13,3 @@
       return
       end subroutine split
       end module specfiles
-
-! { dg-final { cleanup-modules "specfiles" } }
diff --git a/gcc/testsuite/gfortran.dg/pr16861.f90 b/gcc/testsuite/gfortran.dg/pr16861.f90
index 88f89fa..4a73eda 100644
--- a/gcc/testsuite/gfortran.dg/pr16861.f90
+++ b/gcc/testsuite/gfortran.dg/pr16861.f90
@@ -30,5 +30,3 @@ end subroutine quus
 program test
   call quus
 end program test
-
-! { dg-final { cleanup-modules "foo bar" } }
diff --git a/gcc/testsuite/gfortran.dg/pr17615.f90 b/gcc/testsuite/gfortran.dg/pr17615.f90
index 7667618..13b90334 100644
--- a/gcc/testsuite/gfortran.dg/pr17615.f90
+++ b/gcc/testsuite/gfortran.dg/pr17615.f90
@@ -17,5 +17,3 @@ PROGRAM TEST
   real(8) :: c(3)
   c = cross_product()
 END PROGRAM TEST
-
-! { dg-final { cleanup-modules "module_vec3d" } }
diff --git a/gcc/testsuite/gfortran.dg/pr19926.f90 b/gcc/testsuite/gfortran.dg/pr19926.f90
index ae70d5b..3b452c1 100644
--- a/gcc/testsuite/gfortran.dg/pr19926.f90
+++ b/gcc/testsuite/gfortran.dg/pr19926.f90
@@ -22,5 +22,3 @@ subroutine string_comp(i)
    integer :: i
    i = map(42)
 end subroutine string_comp
-
-! { dg-final { cleanup-modules "b" } }
diff --git a/gcc/testsuite/gfortran.dg/pr21177.f90 b/gcc/testsuite/gfortran.dg/pr21177.f90
index 48d3531..8ce0180 100644
--- a/gcc/testsuite/gfortran.dg/pr21177.f90
+++ b/gcc/testsuite/gfortran.dg/pr21177.f90
@@ -51,5 +51,3 @@ program test
   if (tt(null(c4)) /= 3) call abort()
   if (tt(null(c8)) /= 4) call abort()
 end program test
-
-! { dg-final { cleanup-modules "mymod" } }
diff --git a/gcc/testsuite/gfortran.dg/pr25923.f90 b/gcc/testsuite/gfortran.dg/pr25923.f90
index e0df5b0..3283ba2 100644
--- a/gcc/testsuite/gfortran.dg/pr25923.f90
+++ b/gcc/testsuite/gfortran.dg/pr25923.f90
@@ -22,5 +22,3 @@ contains
   end function baz ! { dg-warning "res.yr' may be" }
 
 end module foo
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/pr26246_1.f90 b/gcc/testsuite/gfortran.dg/pr26246_1.f90
index e35bcac..a1cb455 100644
--- a/gcc/testsuite/gfortran.dg/pr26246_1.f90
+++ b/gcc/testsuite/gfortran.dg/pr26246_1.f90
@@ -16,4 +16,3 @@ end module pr26246_1
 
 ! { dg-final { scan-tree-dump-times "static int" 0 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "pr26246_1" } }
diff --git a/gcc/testsuite/gfortran.dg/pr32222.f90 b/gcc/testsuite/gfortran.dg/pr32222.f90
index 1daac1e..fbe33ed 100644
--- a/gcc/testsuite/gfortran.dg/pr32222.f90
+++ b/gcc/testsuite/gfortran.dg/pr32222.f90
@@ -1,6 +1,5 @@
 !PR fortran/32222
 ! { dg-do compile }
-! { dg-final { cleanup-modules "splinemod" } }
 
 module splinemod
 implicit none
diff --git a/gcc/testsuite/gfortran.dg/pr32238.f90 b/gcc/testsuite/gfortran.dg/pr32238.f90
index 2c88b35..6af64ca 100644
--- a/gcc/testsuite/gfortran.dg/pr32238.f90
+++ b/gcc/testsuite/gfortran.dg/pr32238.f90
@@ -1,6 +1,5 @@
 !PR fortran/32238
 ! { dg-do compile }
-! { dg-final { cleanup-modules "bug_test" } }
 
 module bug_test
 
diff --git a/gcc/testsuite/gfortran.dg/pr32242.f90 b/gcc/testsuite/gfortran.dg/pr32242.f90
index 21ecdd1..8699e00 100644
--- a/gcc/testsuite/gfortran.dg/pr32242.f90
+++ b/gcc/testsuite/gfortran.dg/pr32242.f90
@@ -1,7 +1,6 @@
 !PR fortran/32242
 ! { dg-do compile }
 ! { dg-options "-Wreturn-type" }
-! { dg-final { cleanup-modules "kahan_sum" } }
 
 MODULE kahan_sum
   INTEGER, PARAMETER :: dp=KIND(0.0D0)
diff --git a/gcc/testsuite/gfortran.dg/pr32535.f90 b/gcc/testsuite/gfortran.dg/pr32535.f90
index 43ea48e..e168821 100644
--- a/gcc/testsuite/gfortran.dg/pr32535.f90
+++ b/gcc/testsuite/gfortran.dg/pr32535.f90
@@ -22,5 +22,3 @@ contains
     end subroutine subsub
   end subroutine sub
 end module mo
-
-! { dg-final { cleanup-modules "mo" } }
diff --git a/gcc/testsuite/gfortran.dg/pr32601.f03 b/gcc/testsuite/gfortran.dg/pr32601.f03
index 90fa6b3..6fa275e 100644
--- a/gcc/testsuite/gfortran.dg/pr32601.f03
+++ b/gcc/testsuite/gfortran.dg/pr32601.f03
@@ -25,4 +25,3 @@ print *, t ! { dg-error "has PRIVATE components" }
 print *, c_loc(get_ptr()) ! { dg-error "has PRIVATE components" }
 
 end
-! { dg-final { cleanup-modules "pr32601" } }  
diff --git a/gcc/testsuite/gfortran.dg/pr32738.f90 b/gcc/testsuite/gfortran.dg/pr32738.f90
index bee6f18..3c413f1 100644
--- a/gcc/testsuite/gfortran.dg/pr32738.f90
+++ b/gcc/testsuite/gfortran.dg/pr32738.f90
@@ -42,5 +42,3 @@ program example
   implicit none
      print *, tree_size(1)
 end program example
-
-! { dg-final { cleanup-modules "cluster_definition cluster_tree" } }
diff --git a/gcc/testsuite/gfortran.dg/pr32921.f b/gcc/testsuite/gfortran.dg/pr32921.f
index e809d6c..45ea647 100644
--- a/gcc/testsuite/gfortran.dg/pr32921.f
+++ b/gcc/testsuite/gfortran.dg/pr32921.f
@@ -47,4 +47,3 @@
       END
 ! { dg-final { scan-tree-dump-times "stride" 4 "lim1" } }
 ! { dg-final { cleanup-tree-dump "lim1" } }
-! { dg-final { cleanup-modules "les3d_data" } }
diff --git a/gcc/testsuite/gfortran.dg/pr33646.f90 b/gcc/testsuite/gfortran.dg/pr33646.f90
index 15186b6..3b5662e 100644
--- a/gcc/testsuite/gfortran.dg/pr33646.f90
+++ b/gcc/testsuite/gfortran.dg/pr33646.f90
@@ -55,5 +55,3 @@ contains
       call create_(self)
    end subroutine
 end
-
-! { dg-final { cleanup-modules "bar_module foo_module" } }
diff --git a/gcc/testsuite/gfortran.dg/pr33794.f90 b/gcc/testsuite/gfortran.dg/pr33794.f90
index 740f1ea..affad5e 100644
--- a/gcc/testsuite/gfortran.dg/pr33794.f90
+++ b/gcc/testsuite/gfortran.dg/pr33794.f90
@@ -46,5 +46,3 @@ program test
 
   call self_ind_cir_coil (r, l, turns, mu, self_l)
 end program test
-
-! { dg-final { cleanup-modules "scc_m" } }
diff --git a/gcc/testsuite/gfortran.dg/pr37286.f90 b/gcc/testsuite/gfortran.dg/pr37286.f90
index 75c6814..607fca4 100644
--- a/gcc/testsuite/gfortran.dg/pr37286.f90
+++ b/gcc/testsuite/gfortran.dg/pr37286.f90
@@ -54,5 +54,3 @@ contains
   end function gn_monte_rand
 
 end module general_rand
-
-! { dg-final { cleanup-modules "general_rand" } }
diff --git a/gcc/testsuite/gfortran.dg/pr37287-1.f90 b/gcc/testsuite/gfortran.dg/pr37287-1.f90
index 629966f..c2d42e6 100644
--- a/gcc/testsuite/gfortran.dg/pr37287-1.f90
+++ b/gcc/testsuite/gfortran.dg/pr37287-1.f90
@@ -12,5 +12,3 @@ contains
   end subroutine set_null
 end module pr37287_1
 end
-! { dg-final { cleanup-modules "pr37287_1" } }
-! { dg-final { cleanup-modules "pr37287_2" } }
diff --git a/gcc/testsuite/gfortran.dg/pr37287-2.F90 b/gcc/testsuite/gfortran.dg/pr37287-2.F90
index 330ab42..576b645 100644
--- a/gcc/testsuite/gfortran.dg/pr37287-2.F90
+++ b/gcc/testsuite/gfortran.dg/pr37287-2.F90
@@ -7,4 +7,3 @@ module pr37287_2
 #endif
   implicit none
 end module pr37287_2
-! { dg-final { cleanup-modules "pr37287_2" } }
diff --git a/gcc/testsuite/gfortran.dg/pr41347.f90 b/gcc/testsuite/gfortran.dg/pr41347.f90
index e8ceef5..ae48857 100644
--- a/gcc/testsuite/gfortran.dg/pr41347.f90
+++ b/gcc/testsuite/gfortran.dg/pr41347.f90
@@ -30,4 +30,3 @@ 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 3d0c25c..1438b0c 100644
--- a/gcc/testsuite/gfortran.dg/pr41928.f90
+++ b/gcc/testsuite/gfortran.dg/pr41928.f90
@@ -261,4 +261,3 @@ CONTAINS
     END DO
   END SUBROUTINE diff_momop
 END MODULE ai_moments
-! { dg-final { cleanup-modules "kinds ai_moments" } }
diff --git a/gcc/testsuite/gfortran.dg/pr42051.f03 b/gcc/testsuite/gfortran.dg/pr42051.f03
index 308c1e7..7a5be63 100644
--- a/gcc/testsuite/gfortran.dg/pr42051.f03
+++ b/gcc/testsuite/gfortran.dg/pr42051.f03
@@ -32,5 +32,3 @@ contains
 end module
 
 end
-
-! { dg-final { cleanup-modules "grid_module field_module" } }
diff --git a/gcc/testsuite/gfortran.dg/pr42119.f90 b/gcc/testsuite/gfortran.dg/pr42119.f90
index 962181d..f848e9e 100644
--- a/gcc/testsuite/gfortran.dg/pr42119.f90
+++ b/gcc/testsuite/gfortran.dg/pr42119.f90
@@ -22,4 +22,3 @@ program Main
 
   call Check(C_FUNLOC(Callback))
 end program Main
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/pr42166.f90 b/gcc/testsuite/gfortran.dg/pr42166.f90
index 910a08c..e29867e 100644
--- a/gcc/testsuite/gfortran.dg/pr42166.f90
+++ b/gcc/testsuite/gfortran.dg/pr42166.f90
@@ -17,5 +17,3 @@ CONTAINS
     END DO
   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 b912c9f..1f6b0b2 100644
--- a/gcc/testsuite/gfortran.dg/pr43505.f90
+++ b/gcc/testsuite/gfortran.dg/pr43505.f90
@@ -39,6 +39,3 @@
       end subroutine
 
     END PROGRAM TEST
-! { dg-final { cleanup-modules "main1" } }
-
-
diff --git a/gcc/testsuite/gfortran.dg/pr43793.f90 b/gcc/testsuite/gfortran.dg/pr43793.f90
index c30f842..17d5bbe 100644
--- a/gcc/testsuite/gfortran.dg/pr43793.f90
+++ b/gcc/testsuite/gfortran.dg/pr43793.f90
@@ -20,4 +20,3 @@ contains
     end if
   end subroutine sparse_alltoall
 end module fft_tools
-! { dg-final { cleanup-modules "fft_tools" } }
diff --git a/gcc/testsuite/gfortran.dg/pr43866.f90 b/gcc/testsuite/gfortran.dg/pr43866.f90
index abfdaa1..4cfec0f 100644
--- a/gcc/testsuite/gfortran.dg/pr43866.f90
+++ b/gcc/testsuite/gfortran.dg/pr43866.f90
@@ -40,5 +40,3 @@ END MODULE PR43866
   Q%B=0
   CALL FOO (Q,N,N,.FALSE.)
 END
-
-! { dg-final { cleanup-modules "pr43866" } }
diff --git a/gcc/testsuite/gfortran.dg/pr43984.f90 b/gcc/testsuite/gfortran.dg/pr43984.f90
index a4f151d..40c81b8 100644
--- a/gcc/testsuite/gfortran.dg/pr43984.f90
+++ b/gcc/testsuite/gfortran.dg/pr43984.f90
@@ -54,4 +54,3 @@ end
 
 ! { dg-final { scan-tree-dump-times "= iyz.data" 3 "pre" } }
 ! { dg-final { cleanup-tree-dump "pre" } }
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/pr50875.f90 b/gcc/testsuite/gfortran.dg/pr50875.f90
index 6b4476c..0c71080 100644
--- a/gcc/testsuite/gfortran.dg/pr50875.f90
+++ b/gcc/testsuite/gfortran.dg/pr50875.f90
@@ -35,5 +35,3 @@ contains
   end subroutine routine_A
 
 end module test
-
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/present_1.f90 b/gcc/testsuite/gfortran.dg/present_1.f90
index a3850c4..22e6c0a 100644
--- a/gcc/testsuite/gfortran.dg/present_1.f90
+++ b/gcc/testsuite/gfortran.dg/present_1.f90
@@ -17,4 +17,3 @@
   END SUBROUTINE S1
  END MODULE
  END
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_1.f90 b/gcc/testsuite/gfortran.dg/private_type_1.f90
index 96b2eb4..0f0f8d2 100644
--- a/gcc/testsuite/gfortran.dg/private_type_1.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_1.f90
@@ -17,5 +17,3 @@ contains
    real :: local_array(4)
   end subroutine dummysub
 end module modboom
-
-! { dg-final { cleanup-modules "modboom" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_10.f90 b/gcc/testsuite/gfortran.dg/private_type_10.f90
index 561cfb7..b091db4 100644
--- a/gcc/testsuite/gfortran.dg/private_type_10.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_10.f90
@@ -30,5 +30,3 @@ module demo2
   type(myint), save :: foo2 ! { dg-error "of PRIVATE derived type" }
   public :: foo2
 end module demo2
-
-! { dg-final { cleanup-modules "demo" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_11.f90 b/gcc/testsuite/gfortran.dg/private_type_11.f90
index 57c22dd..53d5f4c 100644
--- a/gcc/testsuite/gfortran.dg/private_type_11.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_11.f90
@@ -21,4 +21,3 @@ 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 5bebcf0..c9867bc 100644
--- a/gcc/testsuite/gfortran.dg/private_type_12.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_12.f90
@@ -21,4 +21,3 @@ 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/private_type_13.f90 b/gcc/testsuite/gfortran.dg/private_type_13.f90
index 77c41a4..598e062 100644
--- a/gcc/testsuite/gfortran.dg/private_type_13.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_13.f90
@@ -29,4 +29,3 @@ module m
     end subroutine
 
 end module
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_14.f90 b/gcc/testsuite/gfortran.dg/private_type_14.f90
index 6c90b86..ac31721 100644
--- a/gcc/testsuite/gfortran.dg/private_type_14.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_14.f90
@@ -39,5 +39,3 @@ program test_ext
   end do
   write(*, *) 'OK'
 end program
-
-! { dg-final { cleanup-modules "type_ext" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_2.f90 b/gcc/testsuite/gfortran.dg/private_type_2.f90
index f41e151..3850ad1 100644
--- a/gcc/testsuite/gfortran.dg/private_type_2.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_2.f90
@@ -23,5 +23,3 @@ MODULE TEST
   public  all_type, any_type
 END MODULE
 END
-
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_3.f90 b/gcc/testsuite/gfortran.dg/private_type_3.f90
index dea3581..89ffa63 100644
--- a/gcc/testsuite/gfortran.dg/private_type_3.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_3.f90
@@ -30,5 +30,3 @@ module c
 	arg_t%c = 42
      end subroutine d
 end module c
-
-! { dg-final { cleanup-modules "a c" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_4.f90 b/gcc/testsuite/gfortran.dg/private_type_4.f90
index 42303ca..95b8fe3 100644
--- a/gcc/testsuite/gfortran.dg/private_type_4.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_4.f90
@@ -18,5 +18,3 @@ contains
     end function
 
 end module
-
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_5.f90 b/gcc/testsuite/gfortran.dg/private_type_5.f90
index 0fcf00e..a6a417f 100644
--- a/gcc/testsuite/gfortran.dg/private_type_5.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_5.f90
@@ -22,4 +22,3 @@ contains
     end subroutine init
   end subroutine sub
 end module test
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_6.f90 b/gcc/testsuite/gfortran.dg/private_type_6.f90
index 4af3f70..e980cb9 100644
--- a/gcc/testsuite/gfortran.dg/private_type_6.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_6.f90
@@ -22,4 +22,3 @@ program foo_test
   foo2 = bartype(1,2) ! { dg-error "is a PRIVATE component" }
   foo2%dummy2 = 5 ! { dg-error "is a PRIVATE component" }
 end program foo_test
-! { dg-final { cleanup-modules "foomod" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_7.f90 b/gcc/testsuite/gfortran.dg/private_type_7.f90
index b9ad8fa..c449172 100644
--- a/gcc/testsuite/gfortran.dg/private_type_7.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_7.f90
@@ -32,4 +32,3 @@ program testit
   k = foo(i)
   print *, "in the main:", k
 end program testit
-! { dg-final { cleanup-modules "gfcbug68" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_8.f90 b/gcc/testsuite/gfortran.dg/private_type_8.f90
index df16096..111cbb1 100644
--- a/gcc/testsuite/gfortran.dg/private_type_8.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_8.f90
@@ -17,5 +17,3 @@ contains
    real :: local_array(4)
   end subroutine dummysub
 end module modboom
-
-! { dg-final { cleanup-modules "modboom" } }
diff --git a/gcc/testsuite/gfortran.dg/private_type_9.f90 b/gcc/testsuite/gfortran.dg/private_type_9.f90
index 3ca2fd5..078041a 100644
--- a/gcc/testsuite/gfortran.dg/private_type_9.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_9.f90
@@ -39,4 +39,3 @@ module m4
 end module m4
 
 end
-! { dg-final { cleanup-modules "m1 m2 m3 m4" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_assign_1.f90 b/gcc/testsuite/gfortran.dg/proc_assign_1.f90
index e85df76..d6a8783 100644
--- a/gcc/testsuite/gfortran.dg/proc_assign_1.f90
+++ b/gcc/testsuite/gfortran.dg/proc_assign_1.f90
@@ -77,4 +77,3 @@ contains
         y = 2                ! OK - function result

     end function y

 end

-! { dg-final { cleanup-modules "simple simpler" } }

diff --git a/gcc/testsuite/gfortran.dg/proc_assign_2.f90 b/gcc/testsuite/gfortran.dg/proc_assign_2.f90
index 8f313c5..4c343bf 100644
--- a/gcc/testsuite/gfortran.dg/proc_assign_2.f90
+++ b/gcc/testsuite/gfortran.dg/proc_assign_2.f90
@@ -18,4 +18,3 @@ CONTAINS
     END FUNCTION
   END FUNCTION
 END MODULE
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_10.f90 b/gcc/testsuite/gfortran.dg/proc_decl_10.f90
index 88fd6d8..ff725c3 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_10.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_10.f90
@@ -28,5 +28,3 @@ procedure(cos) :: my2 ! { dg-error "Cannot change attributes" }
 procedure(dprod) :: my3 ! { dg-error "Cannot change attributes" }
 
 end program test
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_12.f90 b/gcc/testsuite/gfortran.dg/proc_decl_12.f90
index 092c24d..37fc4a4 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_12.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_12.f90
@@ -23,5 +23,3 @@ contains
     call f([1,2,3])
   end subroutine foo
 end program test
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_13.f90 b/gcc/testsuite/gfortran.dg/proc_decl_13.f90
index b875376..1df220b 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_13.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_13.f90
@@ -40,6 +40,4 @@ contains
     end interface
     call f([1,2,3]) ! Works
   end subroutine foo2
-
-! { dg-final { cleanup-modules "m" } }
 end program test
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_17.f90 b/gcc/testsuite/gfortran.dg/proc_decl_17.f90
index 858022a..0daee46 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_17.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_17.f90
@@ -64,5 +64,3 @@ my_message = (/'a','b','c','d','e','f'/)
 call check(foo,i)
 
 end program
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_18.f90 b/gcc/testsuite/gfortran.dg/proc_decl_18.f90
index 46493eb..1599362 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_18.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_18.f90
@@ -59,5 +59,3 @@ end
       p(l) = y(l)*2
     end do
   end function
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_2.f90 b/gcc/testsuite/gfortran.dg/proc_decl_2.f90
index 1cbfe97..a16b4db 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_2.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_2.f90
@@ -146,5 +146,3 @@ function p7(x)
  integer :: x, p7
  p7 = x*(-2)
 end function
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_20.f90 b/gcc/testsuite/gfortran.dg/proc_decl_20.f90
index 612dac1..7afac33 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_20.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_20.f90
@@ -20,5 +20,3 @@ end module other_fun
     use other_fun
     procedure(abstract_fun) :: fun
  end program fptr
-
-! { dg-final { cleanup-modules "other_fun" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_23.f90 b/gcc/testsuite/gfortran.dg/proc_decl_23.f90
index 66cf5ff..fa50dc1 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_23.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_23.f90
@@ -41,4 +41,3 @@ 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/proc_decl_27.f90 b/gcc/testsuite/gfortran.dg/proc_decl_27.f90
index 30ff4de..cb16ecf 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_27.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_27.f90
@@ -21,5 +21,3 @@ end
   implicit none
   procedure(Proc) :: Proc_Get
 end
-
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_5.f90 b/gcc/testsuite/gfortran.dg/proc_decl_5.f90
index b327d5c..d2cb046 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_5.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_5.f90
@@ -24,5 +24,3 @@ program test
   implicit none
   if(x() /= -5) call abort()
 end program test
-
-! { dg-final { cleanup-modules "modproc" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_7.f90 b/gcc/testsuite/gfortran.dg/proc_decl_7.f90
index c8c2a81..829add2 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_7.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_7.f90
@@ -18,4 +18,3 @@ implicit none
 intrinsic cos
 call sub(cos) ! { dg-error "wrong number of arguments" }
 end
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_8.f90 b/gcc/testsuite/gfortran.dg/proc_decl_8.f90
index 2d3514e..dce45b4 100644
--- a/gcc/testsuite/gfortran.dg/proc_decl_8.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_8.f90
@@ -22,4 +22,3 @@ EXTERNAL foo  ! interface is undefined
 procedure(cos) :: foo ! { dg-error "Duplicate EXTERNAL attribute specified" }
 call sub(foo)         ! { dg-error "is not a function" }
 end
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_1.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_1.f90
index fe8e201..b9c0ce6 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_1.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_1.f90
@@ -69,5 +69,3 @@ program procPtrTest
   if (ptr6()/=6.3) call abort()
 
 end program 
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_10.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_10.f90
index e673efe..dfe8ce9 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_10.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_10.f90
@@ -27,4 +27,3 @@ program myProg
   call proc4( p )
 end program myProg
  
-! { dg-final { cleanup-modules "mymod" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_13.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_13.f90
index 5c66c54..989cd66 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_13.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_13.f90
@@ -25,5 +25,3 @@ END MODULE myfortran_binding
 use myfortran_binding
 error_handler => error_stop
 end
-
-! { dg-final { cleanup-modules "myfortran_binding" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_20.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_20.f90
index 79c9ba8..5aead5b 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_20.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_20.f90
@@ -37,6 +37,3 @@ CONTAINS
    PRINT*, 'sub'
  END SUBROUTINE s
 END PROGRAM prog
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_22.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_22.f90
index 1f13280..69d165e 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_22.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_22.f90
@@ -25,6 +25,3 @@ program bugTest
   pp2 => returnMat
   if (sum(pp2(3,2))/=6) call abort()
 end program bugTest
-
-! { dg-final { cleanup-modules "bugtestmod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_26.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_26.f90
index 044f0a4..8ae027f 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_26.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_26.f90
@@ -27,5 +27,3 @@ program main
   if (associated(p_fun) .or. associated(p_fun2)) &
     call abort ()
 end program main
-
-! { dg-final { cleanup-modules "mod_a" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_27.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_27.f90
index 83f0959..1d916de 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_27.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_27.f90
@@ -16,5 +16,3 @@ module m
  end interface
  procedure(i_f), pointer, protected :: p_f => null()
 end module m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_28.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_28.f90
index 8754d8e..ce383cf 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_28.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_28.f90
@@ -35,5 +35,3 @@ CONTAINS
  END SUBROUTINE use_sub
 
 END MODULE m 
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_29.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_29.f90
index 69f0b03..7247c06 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_29.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_29.f90
@@ -25,5 +25,3 @@ contains
    y = p(x)
  end function i_g
 end module m2
-
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_33.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_33.f90
index 803d90e..973162b 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_33.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_33.f90
@@ -28,5 +28,3 @@ program start
    f => my_dcos     ! { dg-error "Mismatch in PURE attribute" }
    write(*,*) f(x)
 end program start 
-
-! { dg-final { cleanup-modules "funcs" } }
\ No newline at end of file
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_34.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_34.f90
index 6226414b..fc5df1f 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_34.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_34.f90
@@ -75,5 +75,3 @@ program test_proc_ptr
 
   stop
 end program test_proc_ptr
-
-! { dg-final { cleanup-modules "examplefuncs" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_36.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_36.f90
index ada5c56..7f3525e 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_36.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_36.f90
@@ -44,5 +44,3 @@ end subroutine s
 
 subroutine sub2
 end subroutine sub2
-
-! { dg-final { cleanup-modules "m0" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_8.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_8.f90
index 55ba58d..4785383 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_8.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_8.f90
@@ -41,5 +41,3 @@ contains
   end subroutine
 
 END
-
-! { dg-final { cleanup-modules "x" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_10.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_10.f90
index 382f412..715d436 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_10.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_10.f90
@@ -26,6 +26,3 @@ type(t) :: obj
 obj%ppc => pp
 pp => obj%ppc
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_12.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_12.f90
index 41668b8..8c658d8 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_12.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_12.f90
@@ -30,6 +30,3 @@ program bugTest
   print *,testObj%test(3,3)
   if (sum(testObj%test(3,3))/=9) call abort()
 end program bugTest
-
-! { dg-final { cleanup-modules "bugtestmod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_15.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_15.f90
index 9f15d14..37f3a7a 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_15.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_15.f90
@@ -23,6 +23,3 @@ use m
  str = x%ptr()
  if (str/='abcde') call abort()
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_16.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_16.f90
index e6b77a2..ff5634b 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_16.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_16.f90
@@ -25,6 +25,3 @@ use m
  str = x%ptr(3)
  if (str/='abc') call abort()
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_17.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_17.f90
index cfe498b..6a9f32f 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_17.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_17.f90
@@ -27,6 +27,3 @@ use m
  str = 'fghij'
  if (strptr/='fghij') call abort()
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_22.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_22.f90
index b82564f..ac3982e 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_22.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_22.f90
@@ -28,4 +28,3 @@ PROGRAM main
   arr%myproc => myproc  ! { dg-error "must not have the POINTER attribute" }
 END PROGRAM main
  
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_23.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_23.f90
index 8b1c691..d91851e 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_23.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_23.f90
@@ -70,4 +70,3 @@ print *, p(nr=3,x=(/0.1,0.1/))
 print *, funcp%p(nr=3,x=(/0.1,0.1/))
 
 end program t
-! { dg-final { cleanup-modules "poisson_functions_m element_defs_m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_31.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_31.f90
index 6a5d8c9..e0e528b 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_31.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_31.f90
@@ -18,5 +18,3 @@ program test_objects
   type(rectangle) :: rect
   write(*,*) rect          ! { dg-error "cannot have procedure pointer components" }
 end program
-
-! { dg-final { cleanup-modules "proc_pointers" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_32.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_32.f90
index eda972a..c1d01c5 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_32.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_32.f90
@@ -33,5 +33,3 @@ use m
 type(rectangle) :: rect
 rect%get_special_area => get_my_area  ! { dg-error "Interface mismatch in procedure pointer assignment" }
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_33.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_33.f90
index 1bb863d..b6a31fe 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_33.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_33.f90
@@ -66,6 +66,3 @@ contains
   end function get2
 
 end
-
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_4.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_4.f90
index b904a2f..be36fda 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_4.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_4.f90
@@ -115,6 +115,3 @@ contains
   end function var_list_get_var_ptr
 
 end
-
-! { dg-final { cleanup-modules "expressions process_libraries hard_interactions" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_6.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_6.f90
index f0dcf4c..12aaf79 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_6.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_6.f90
@@ -59,6 +59,3 @@ program main
     if (calls/=2) call abort
 
 end program main 
-
-! { dg-final { cleanup-modules "proc_component_example" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_7.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_7.f90
index 860c2dd..48fd521 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_7.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_7.f90
@@ -35,6 +35,3 @@ type(public_t) :: x
 integer :: j
 j = x%ppc()
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_1.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_1.f90
index 4513083..0798a7b 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_1.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_1.f90
@@ -43,6 +43,3 @@ program Test_03
     if (m%i/=6) call abort()
 
 end program Test_03
-
-! { dg-final { cleanup-modules "mymod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_2.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_2.f90
index 03770ce..dc5253d 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_2.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_2.f90
@@ -43,6 +43,3 @@ program main
   call x%proc (output_unit)
 
 end program main
-
-! { dg-final { cleanup-modules "passed_object_example" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_4.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_4.f90
index 0a28b53..b0e7a77 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_4.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_4.f90
@@ -70,6 +70,3 @@ contains
  end function
 
 end module m
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_5.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_5.f90
index 216a554..70a99f9 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_5.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_5.f90
@@ -34,6 +34,3 @@ call t1%foo()
 call t2%foo()
 call t2%foo(t1)
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_6.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_6.f90
index 4382a3b..b9ce92d 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_6.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_6.f90
@@ -31,5 +31,3 @@ PROGRAM ProgA
     CALL arr(i)%Proc(ierr)
   END DO
 END PROGRAM ProgA
-
-! { dg-final { cleanup-modules "moda" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_7.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_7.f90
index a15018d..9c960dd 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_7.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_7.f90
@@ -61,5 +61,3 @@ program main
   call obj%base_t%write_procptr               ! { dg-error "is of ABSTRACT type" }
 
 end program main
-
-! { dg-final { cleanup-modules "types" } }
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_result_1.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_result_1.f90
index df830d3..a7ea218 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_result_1.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_result_1.f90
@@ -178,6 +178,3 @@ contains
   end function 
 
 end
-
-! { dg-final { cleanup-modules "mo" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_result_2.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_result_2.f90
index 362a1f7..f5a4fd2 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_result_2.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_result_2.f90
@@ -57,6 +57,3 @@ contains
   end function
 
 end
-
-! { dg-final { cleanup-modules "proc_ptr_15" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_result_3.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_result_3.f90
index a84ff24..6e2e524 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_result_3.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_result_3.f90
@@ -51,6 +51,3 @@ recursive subroutine my_sub(j)
    j = j*3
    call set_sub(my_sub)
 end subroutine my_sub
-
-! { dg-final { cleanup-modules "store_subroutine" } }
-
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_result_6.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_result_6.f90
index c9e1a8b..9d625af 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_result_6.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_result_6.f90
@@ -46,6 +46,3 @@ contains
     getPtr2 => func
   end function
 end program test
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/procedure_lvalue.f90 b/gcc/testsuite/gfortran.dg/procedure_lvalue.f90
index 741dc8c..915f75e 100644
--- a/gcc/testsuite/gfortran.dg/procedure_lvalue.f90
+++ b/gcc/testsuite/gfortran.dg/procedure_lvalue.f90
@@ -17,5 +17,3 @@ subroutine r
   b = 1.       ! { dg-error "is not a variable" }
   y = a(1.)
 end subroutine r
-
-! { dg-final { cleanup-modules "t" } }
diff --git a/gcc/testsuite/gfortran.dg/protected_1.f90 b/gcc/testsuite/gfortran.dg/protected_1.f90
index fbc30e8..0805e98 100644
--- a/gcc/testsuite/gfortran.dg/protected_1.f90
+++ b/gcc/testsuite/gfortran.dg/protected_1.f90
@@ -57,5 +57,3 @@ contains
     if(a /= 44 .or. ap /= 79 .or. at /= 4) call abort()
   end subroutine
 end program main
-
-! { dg-final { cleanup-modules "protmod" } }
diff --git a/gcc/testsuite/gfortran.dg/protected_2.f90 b/gcc/testsuite/gfortran.dg/protected_2.f90
index dcdce51..c00222d 100644
--- a/gcc/testsuite/gfortran.dg/protected_2.f90
+++ b/gcc/testsuite/gfortran.dg/protected_2.f90
@@ -51,5 +51,3 @@ contains
     if(a /= 44 .or. ap /= 79 .or. at /= 4) call abort()
   end subroutine
 end program main
-
-! { dg-final { cleanup-modules "protmod" } }
diff --git a/gcc/testsuite/gfortran.dg/protected_4.f90 b/gcc/testsuite/gfortran.dg/protected_4.f90
index 7f0e49f..2834680 100644
--- a/gcc/testsuite/gfortran.dg/protected_4.f90
+++ b/gcc/testsuite/gfortran.dg/protected_4.f90
@@ -54,5 +54,3 @@ module test
   real :: a
   protected :: test ! { dg-error "MODULE attribute conflicts with PROTECTED" }
 end module test
-
-! { dg-final { cleanup-modules "protmod test" } }
diff --git a/gcc/testsuite/gfortran.dg/protected_5.f90 b/gcc/testsuite/gfortran.dg/protected_5.f90
index 85046c3..4901b82 100644
--- a/gcc/testsuite/gfortran.dg/protected_5.f90
+++ b/gcc/testsuite/gfortran.dg/protected_5.f90
@@ -53,5 +53,3 @@ program main
   nullify(t%p)         ! { dg-error "pointer association context" }
   allocate(t%array(15))! { dg-error "variable definition context" }
 end program main
-
-! { dg-final { cleanup-modules "good1 good2 bad1 bad2" } }
diff --git a/gcc/testsuite/gfortran.dg/protected_6.f90 b/gcc/testsuite/gfortran.dg/protected_6.f90
index e7f3e4e..8e85bbf 100644
--- a/gcc/testsuite/gfortran.dg/protected_6.f90
+++ b/gcc/testsuite/gfortran.dg/protected_6.f90
@@ -47,5 +47,3 @@ contains
     real, protected :: b ! { dg-error "only allowed in specification part of a module" }
   end subroutine bar
 end module prot2
-
-! { dg-final { cleanup-modules "protmod" } }
diff --git a/gcc/testsuite/gfortran.dg/protected_7.f90 b/gcc/testsuite/gfortran.dg/protected_7.f90
index abdc959..0f84da5 100644
--- a/gcc/testsuite/gfortran.dg/protected_7.f90
+++ b/gcc/testsuite/gfortran.dg/protected_7.f90
@@ -18,5 +18,3 @@ program p
   unprotected_pointer => protected_target  ! { dg-error "target has PROTECTED attribute" }
   unprotected_pointer => protected_pointer ! OK
 end program p
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/protected_8.f90 b/gcc/testsuite/gfortran.dg/protected_8.f90
index aaa34a6..7e02044 100644
--- a/gcc/testsuite/gfortran.dg/protected_8.f90
+++ b/gcc/testsuite/gfortran.dg/protected_8.f90
@@ -46,5 +46,3 @@ PROGRAM test
    b%j = 5  ! OK 5
 
 END PROGRAM test
-
-! { dg-final { cleanup-modules "amod" } }
diff --git a/gcc/testsuite/gfortran.dg/public_private_module.f90 b/gcc/testsuite/gfortran.dg/public_private_module.f90
index 48e78b6..709c01e 100644
--- a/gcc/testsuite/gfortran.dg/public_private_module.f90
+++ b/gcc/testsuite/gfortran.dg/public_private_module.f90
@@ -16,4 +16,3 @@ module d
   implicit none
   private a  ! { dg-error "attribute applied to" }
 end module d
-! { dg-final { cleanup-modules "a" } }
diff --git a/gcc/testsuite/gfortran.dg/pure_byref_3.f90 b/gcc/testsuite/gfortran.dg/pure_byref_3.f90
index a9d860b..cb2644f 100644
--- a/gcc/testsuite/gfortran.dg/pure_byref_3.f90
+++ b/gcc/testsuite/gfortran.dg/pure_byref_3.f90
@@ -31,5 +31,3 @@ program pure_byref_3
     a = hoj()
     if (.not. all(a == (/1, 2, 3/))) call abort()
 end program pure_byref_3
-
-! { dg-final { cleanup-modules "huj_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/pure_formal_proc_2.f90 b/gcc/testsuite/gfortran.dg/pure_formal_proc_2.f90
index 687e43e..c683a6c 100644
--- a/gcc/testsuite/gfortran.dg/pure_formal_proc_2.f90
+++ b/gcc/testsuite/gfortran.dg/pure_formal_proc_2.f90
@@ -45,4 +45,3 @@ program Test
   deallocate(pT1)
 
 end program Test
-! { dg-final { cleanup-modules "testpure" } }
diff --git a/gcc/testsuite/gfortran.dg/pure_initializer_2.f90 b/gcc/testsuite/gfortran.dg/pure_initializer_2.f90
index 4fd2556..afb00c6 100644
--- a/gcc/testsuite/gfortran.dg/pure_initializer_2.f90
+++ b/gcc/testsuite/gfortran.dg/pure_initializer_2.f90
@@ -43,4 +43,3 @@ pure function test()
   integer :: test
   test = p
 end function test
-! { dg-final { cleanup-modules "mod_xyz mod_xyz2 mod_xyz3" } }
diff --git a/gcc/testsuite/gfortran.dg/realloc_on_assign_13.f90 b/gcc/testsuite/gfortran.dg/realloc_on_assign_13.f90
index 9661d72..bc7395a 100644
--- a/gcc/testsuite/gfortran.dg/realloc_on_assign_13.f90
+++ b/gcc/testsuite/gfortran.dg/realloc_on_assign_13.f90
@@ -16,5 +16,3 @@ contains
       reduced = pack (array, mask)
     end function reduced
 end module cascades
-! { dg-final { cleanup-modules "cascades" } }
-
diff --git a/gcc/testsuite/gfortran.dg/realloc_on_assign_4.f03 b/gcc/testsuite/gfortran.dg/realloc_on_assign_4.f03
index 682a81c..8e7d49b 100644
--- a/gcc/testsuite/gfortran.dg/realloc_on_assign_4.f03
+++ b/gcc/testsuite/gfortran.dg/realloc_on_assign_4.f03
@@ -46,6 +46,3 @@ contains
     bar = carg(1:12)
   end function
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/realloc_on_assign_6.f03 b/gcc/testsuite/gfortran.dg/realloc_on_assign_6.f03
index 7c170eb..3c96c73 100644
--- a/gcc/testsuite/gfortran.dg/realloc_on_assign_6.f03
+++ b/gcc/testsuite/gfortran.dg/realloc_on_assign_6.f03
@@ -124,6 +124,3 @@ do k = 1,size(some_type_to_save)
 end do
 
 end subroutine print_after_transfer
-! { dg-final { cleanup-modules "m gf33" } }
-! { dg-final { cleanup-modules "custom_type custom_interfaces" } }
-! { dg-final { cleanup-modules "store_data_test" } }
diff --git a/gcc/testsuite/gfortran.dg/realloc_on_assign_9.f90 b/gcc/testsuite/gfortran.dg/realloc_on_assign_9.f90
index d03db32..69f1ecc 100644
--- a/gcc/testsuite/gfortran.dg/realloc_on_assign_9.f90
+++ b/gcc/testsuite/gfortran.dg/realloc_on_assign_9.f90
@@ -30,5 +30,3 @@ program main
 
   july4 = new_show(boom=fireworks)
 end program
-
-! { dg-final { cleanup-modules "soop_stars_class" } }
diff --git a/gcc/testsuite/gfortran.dg/recursive_check_12.f90 b/gcc/testsuite/gfortran.dg/recursive_check_12.f90
index 22eaf7d..ec85c11 100644
--- a/gcc/testsuite/gfortran.dg/recursive_check_12.f90
+++ b/gcc/testsuite/gfortran.dg/recursive_check_12.f90
@@ -26,4 +26,3 @@ program test
  call f(.false.)
  call f(.false.)
 end program test
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/recursive_check_13.f90 b/gcc/testsuite/gfortran.dg/recursive_check_13.f90
index ed222a3..05d0c2f 100644
--- a/gcc/testsuite/gfortran.dg/recursive_check_13.f90
+++ b/gcc/testsuite/gfortran.dg/recursive_check_13.f90
@@ -29,4 +29,3 @@ program test
  call f(.false.)
  call f(.true.)
 end program test
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/recursive_check_3.f90 b/gcc/testsuite/gfortran.dg/recursive_check_3.f90
index 7678286..ec358cb 100644
--- a/gcc/testsuite/gfortran.dg/recursive_check_3.f90
+++ b/gcc/testsuite/gfortran.dg/recursive_check_3.f90
@@ -20,4 +20,3 @@ 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/recursive_check_4.f03 b/gcc/testsuite/gfortran.dg/recursive_check_4.f03
index d33e535..ece42ca 100644
--- a/gcc/testsuite/gfortran.dg/recursive_check_4.f03
+++ b/gcc/testsuite/gfortran.dg/recursive_check_4.f03
@@ -32,5 +32,3 @@ CONTAINS
   END FUNCTION func
 
 END MODULE m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/recursive_check_5.f03 b/gcc/testsuite/gfortran.dg/recursive_check_5.f03
index 4014986..4fe8410 100644
--- a/gcc/testsuite/gfortran.dg/recursive_check_5.f03
+++ b/gcc/testsuite/gfortran.dg/recursive_check_5.f03
@@ -23,5 +23,3 @@ CONTAINS
   END FUNCTION func
 
 END MODULE m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/recursive_check_6.f03 b/gcc/testsuite/gfortran.dg/recursive_check_6.f03
index 478539e..9414f58 100644
--- a/gcc/testsuite/gfortran.dg/recursive_check_6.f03
+++ b/gcc/testsuite/gfortran.dg/recursive_check_6.f03
@@ -62,5 +62,3 @@ CONTAINS
   END SUBROUTINE main
 
 END MODULE m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/recursive_reference_2.f90 b/gcc/testsuite/gfortran.dg/recursive_reference_2.f90
index 59df43c..265b870 100644
--- a/gcc/testsuite/gfortran.dg/recursive_reference_2.f90
+++ b/gcc/testsuite/gfortran.dg/recursive_reference_2.f90
@@ -30,5 +30,3 @@ integer :: ans(5)
 IF (ANY(TEST(3).NE.(/5,5,5,5,5/))) CALL ABORT()
 IF (ANY(TEST(6).NE.(/0,0,0,0,0/))) CALL ABORT()
 END
-! { dg-final { cleanup-modules "m1" } }
-
diff --git a/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90 b/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90
index 8eb47e1..40a0910 100644
--- a/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90
+++ b/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90
@@ -16,4 +16,3 @@ CONTAINS
    I=-J
  END SUBROUTINE T1
 END MODULE M1
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment_2.f90 b/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment_2.f90
index ba70902..5e95322 100644
--- a/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment_2.f90
+++ b/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment_2.f90
@@ -64,5 +64,3 @@ contains
     lhs(:) = rhs(:)
   end subroutine invalid3
 end module test4
-
-! { dg-final { cleanup-modules "test1" } }
diff --git a/gcc/testsuite/gfortran.dg/reshape_2.f90 b/gcc/testsuite/gfortran.dg/reshape_2.f90
index d28058d..1a85712 100644
--- a/gcc/testsuite/gfortran.dg/reshape_2.f90
+++ b/gcc/testsuite/gfortran.dg/reshape_2.f90
@@ -21,4 +21,3 @@ program test
   if (nxttab(linem, 1) .ne. 6) call abort
   if (nxttab(linem, nplam) .ne. 132) call abort
 end program test
-! { dg-final { cleanup-modules "splitprms" } }
\ No newline at end of file
diff --git a/gcc/testsuite/gfortran.dg/reshape_zerosize_3.f90 b/gcc/testsuite/gfortran.dg/reshape_zerosize_3.f90
index 870a76c..de39a30 100644
--- a/gcc/testsuite/gfortran.dg/reshape_zerosize_3.f90
+++ b/gcc/testsuite/gfortran.dg/reshape_zerosize_3.f90
@@ -40,4 +40,3 @@ END MODULE M1
 USE M1
 CALL S2(0)
 END
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/result_in_spec_1.f90 b/gcc/testsuite/gfortran.dg/result_in_spec_1.f90
index cbeb60f..6189e55 100644
--- a/gcc/testsuite/gfortran.dg/result_in_spec_1.f90
+++ b/gcc/testsuite/gfortran.dg/result_in_spec_1.f90
@@ -49,4 +49,3 @@ pure function f(x)
   integer f
   f = 2*x+1
 end function f
-! { dg-final { cleanup-modules "test1" } }
diff --git a/gcc/testsuite/gfortran.dg/result_in_spec_2.f90 b/gcc/testsuite/gfortran.dg/result_in_spec_2.f90
index cffa230..028e403 100644
--- a/gcc/testsuite/gfortran.dg/result_in_spec_2.f90
+++ b/gcc/testsuite/gfortran.dg/result_in_spec_2.f90
@@ -28,4 +28,3 @@ program test
   if(len (test2()) /= 3) call abort ()
   if(test2() /= '123') call abort ()
 end program test
-! { dg-final { cleanup-modules "test1" } }
diff --git a/gcc/testsuite/gfortran.dg/result_in_spec_4.f90 b/gcc/testsuite/gfortran.dg/result_in_spec_4.f90
index 3f0e9a3..5228b9b 100644
--- a/gcc/testsuite/gfortran.dg/result_in_spec_4.f90
+++ b/gcc/testsuite/gfortran.dg/result_in_spec_4.f90
@@ -23,5 +23,3 @@ contains
       sigma2 = MATMUL(getPhaseMatrix(), sigma2)
    END SUBROUTINE
 end module m
-
-! { dg-final { cleanup-modules "m m2" } }
diff --git a/gcc/testsuite/gfortran.dg/same_name_1.f90 b/gcc/testsuite/gfortran.dg/same_name_1.f90
index 5cf13a9..cbeb875 100644
--- a/gcc/testsuite/gfortran.dg/same_name_1.f90
+++ b/gcc/testsuite/gfortran.dg/same_name_1.f90
@@ -11,5 +11,3 @@ contains
   subroutine u
   end subroutine u
 end module m
-
-! { dg-final { cleanup-modules "n m" } }
diff --git a/gcc/testsuite/gfortran.dg/same_name_2.f90 b/gcc/testsuite/gfortran.dg/same_name_2.f90
index c8da3e1..463ac85 100644
--- a/gcc/testsuite/gfortran.dg/same_name_2.f90
+++ b/gcc/testsuite/gfortran.dg/same_name_2.f90
@@ -13,4 +13,3 @@ subroutine aa ! { dg-error "is already defined" }
    write(*,*) 'BB'
 end subroutine aa
 end module
-! { dg-final { cleanup-modules "aha" } }
diff --git a/gcc/testsuite/gfortran.dg/save_3.f90 b/gcc/testsuite/gfortran.dg/save_3.f90
index ab2ee52..d2deed1 100644
--- a/gcc/testsuite/gfortran.dg/save_3.f90
+++ b/gcc/testsuite/gfortran.dg/save_3.f90
@@ -14,5 +14,3 @@ pure function tell_i() result (answer)
   answer=i
 end function tell_i
 end module g95bug
-
-! { dg-final { cleanup-modules "g95bug" } }
diff --git a/gcc/testsuite/gfortran.dg/save_parameter.f90 b/gcc/testsuite/gfortran.dg/save_parameter.f90
index dd879bb..9020ac5 100644
--- a/gcc/testsuite/gfortran.dg/save_parameter.f90
+++ b/gcc/testsuite/gfortran.dg/save_parameter.f90
@@ -6,5 +6,3 @@ MODULE test
   CHARACTER(len=1), PARAMETER :: backslash = '\\'
   PUBLIC :: backslash
 END MODULE
-
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/select_type_10.f03 b/gcc/testsuite/gfortran.dg/select_type_10.f03
index 217d72a..0db9af9 100644
--- a/gcc/testsuite/gfortran.dg/select_type_10.f03
+++ b/gcc/testsuite/gfortran.dg/select_type_10.f03
@@ -30,5 +30,3 @@ contains
   end function
 
 end module 
-
-! { dg-final { cleanup-modules "bar_module" } }
diff --git a/gcc/testsuite/gfortran.dg/select_type_15.f03 b/gcc/testsuite/gfortran.dg/select_type_15.f03
index 6be045c..f408527 100644
--- a/gcc/testsuite/gfortran.dg/select_type_15.f03
+++ b/gcc/testsuite/gfortran.dg/select_type_15.f03
@@ -72,6 +72,3 @@ program bug20
   end select
 
 end program bug20
-
-
-! { dg-final { cleanup-modules "base_mat_mod d_base_mat_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/select_type_16.f03 b/gcc/testsuite/gfortran.dg/select_type_16.f03
index 29d1930..109252e 100644
--- a/gcc/testsuite/gfortran.dg/select_type_16.f03
+++ b/gcc/testsuite/gfortran.dg/select_type_16.f03
@@ -36,6 +36,3 @@ contains
   end subroutine bug21
 
 end module d_base_mat_mod
-
-
-! { dg-final { cleanup-modules "d_base_mat_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/select_type_18.f03 b/gcc/testsuite/gfortran.dg/select_type_18.f03
index e4bacd3..e2a481d 100644
--- a/gcc/testsuite/gfortran.dg/select_type_18.f03
+++ b/gcc/testsuite/gfortran.dg/select_type_18.f03
@@ -86,5 +86,3 @@ subroutine trans2(a,b)
   return
 
 end subroutine trans2
-
-! { dg-final { cleanup-modules "base_mod s_base_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/select_type_4.f90 b/gcc/testsuite/gfortran.dg/select_type_4.f90
index 95488e5..7e12d93 100644
--- a/gcc/testsuite/gfortran.dg/select_type_4.f90
+++ b/gcc/testsuite/gfortran.dg/select_type_4.f90
@@ -172,4 +172,3 @@ program main
   call destroy_list(list) 
   stop 
 end program main 
-! { dg-final { cleanup-modules "poly_list" } }
diff --git a/gcc/testsuite/gfortran.dg/sequence_types_1.f90 b/gcc/testsuite/gfortran.dg/sequence_types_1.f90
index 62cd8fd..6c0bb24 100644
--- a/gcc/testsuite/gfortran.dg/sequence_types_1.f90
+++ b/gcc/testsuite/gfortran.dg/sequence_types_1.f90
@@ -77,4 +77,3 @@ module data_types
     Integer(kindInt), dimension(:), pointer :: subset
   end type GroupDefLL
 end module data_types
-! { dg-final { cleanup-modules "data_types" } }
diff --git a/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_1.f90 b/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_1.f90
index c632c5b..2c7acbe 100644
--- a/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_1.f90
+++ b/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_1.f90
@@ -30,5 +30,3 @@ contains
       call bar(self, z)
    end subroutine
 end
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_2.f90 b/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_2.f90
index 3bd3164..0426660 100644
--- a/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_2.f90
+++ b/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_2.f90
@@ -30,5 +30,3 @@ contains
       call bar_(self, z)
    end subroutine
 end
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_3.f90 b/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_3.f90
index 21bdcee..5f1391e 100644
--- a/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_3.f90
+++ b/gcc/testsuite/gfortran.dg/sibling_dummy_procedure_3.f90
@@ -16,5 +16,3 @@ module ice
       end subroutine bar
     end subroutine foo
 end module
-
-! { dg-final { cleanup-modules "ice" } }
diff --git a/gcc/testsuite/gfortran.dg/simplify_argN_1.f90 b/gcc/testsuite/gfortran.dg/simplify_argN_1.f90
index 933b1f3..6cc6471 100644
--- a/gcc/testsuite/gfortran.dg/simplify_argN_1.f90
+++ b/gcc/testsuite/gfortran.dg/simplify_argN_1.f90
@@ -23,4 +23,3 @@ END MODULE MODS
   if (any (ISHFTC(X, 3, 5) /= D)) call abort ()
   if (any (ISHFTC(X, Y, 5) /= E)) call abort ()
 end
-! { dg-final { cleanup-modules "mods" } }
diff --git a/gcc/testsuite/gfortran.dg/spec_expr_4.f90 b/gcc/testsuite/gfortran.dg/spec_expr_4.f90
index cf655b9..7b2d5b6 100644
--- a/gcc/testsuite/gfortran.dg/spec_expr_4.f90
+++ b/gcc/testsuite/gfortran.dg/spec_expr_4.f90
@@ -31,4 +31,3 @@ end module global_numbering
   e%numbering => ent
   print *, element_local_coords (e)
 end
-! { dg-final { cleanup-modules "elements global_numbering" } }
diff --git a/gcc/testsuite/gfortran.dg/spec_expr_6.f90 b/gcc/testsuite/gfortran.dg/spec_expr_6.f90
index 3b5b973..2d15b31 100644
--- a/gcc/testsuite/gfortran.dg/spec_expr_6.f90
+++ b/gcc/testsuite/gfortran.dg/spec_expr_6.f90
@@ -48,5 +48,3 @@ contains
     p1_type = 42
   end function p1_type
 end module m2
-
-! { dg-final { cleanup-modules "m m2" } }
diff --git a/gcc/testsuite/gfortran.dg/specification_type_resolution_1.f90 b/gcc/testsuite/gfortran.dg/specification_type_resolution_1.f90
index b830b5d..1e4bb08 100644
--- a/gcc/testsuite/gfortran.dg/specification_type_resolution_1.f90
+++ b/gcc/testsuite/gfortran.dg/specification_type_resolution_1.f90
@@ -28,4 +28,3 @@ end module test
    print *, elements_uncommon_with (z)
    print *, n_elements_uncommon_with_ (z)
 end
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/specification_type_resolution_2.f90 b/gcc/testsuite/gfortran.dg/specification_type_resolution_2.f90
index 0fcb7bd..f87cd11 100644
--- a/gcc/testsuite/gfortran.dg/specification_type_resolution_2.f90
+++ b/gcc/testsuite/gfortran.dg/specification_type_resolution_2.f90
@@ -21,5 +21,3 @@ contains
   end function bar
 
 end module gfcbug50
-
-! { dg-final { cleanup-modules "gfcbug50" } }
diff --git a/gcc/testsuite/gfortran.dg/stfunc_5.f90 b/gcc/testsuite/gfortran.dg/stfunc_5.f90
index 09b6da3..4917020 100644
--- a/gcc/testsuite/gfortran.dg/stfunc_5.f90
+++ b/gcc/testsuite/gfortran.dg/stfunc_5.f90
@@ -6,6 +6,3 @@
 MODULE stmt
 f(x) = x**2      ! { dg-error "Unexpected STATEMENT FUNCTION" }
 END MODULE
-
-! { dg-final { cleanup-modules "stmt" } }
-
diff --git a/gcc/testsuite/gfortran.dg/string_compare_2.f90 b/gcc/testsuite/gfortran.dg/string_compare_2.f90
index 966ed55..dc68bef 100644
--- a/gcc/testsuite/gfortran.dg/string_compare_2.f90
+++ b/gcc/testsuite/gfortran.dg/string_compare_2.f90
@@ -35,5 +35,3 @@ program pack_bug
       end if
     end do
 end
-
-! { dg-final { cleanup-modules "xparams" } }
diff --git a/gcc/testsuite/gfortran.dg/structure_constructor_10.f90 b/gcc/testsuite/gfortran.dg/structure_constructor_10.f90
index eed7fa3..3231571 100644
--- a/gcc/testsuite/gfortran.dg/structure_constructor_10.f90
+++ b/gcc/testsuite/gfortran.dg/structure_constructor_10.f90
@@ -23,6 +23,3 @@ SUBROUTINE cdf_beta()
   IMPLICIT NONE
   CALL check_complements(the_beta%name)
 END SUBROUTINE cdf_beta
-
-! { dg-final { cleanup-modules "cdf_aux_mod" } }
-
diff --git a/gcc/testsuite/gfortran.dg/structure_constructor_8.f03 b/gcc/testsuite/gfortran.dg/structure_constructor_8.f03
index b86d0ec..1c0ecd1 100644
--- a/gcc/testsuite/gfortran.dg/structure_constructor_8.f03
+++ b/gcc/testsuite/gfortran.dg/structure_constructor_8.f03
@@ -58,4 +58,3 @@ PROGRAM test
   WRITE (*,*) ispriv_t (5) ! { dg-error "has no IMPLICIT type" }
 
 END PROGRAM test
-! { dg-final { cleanup-modules "privmod" } }
diff --git a/gcc/testsuite/gfortran.dg/substr_1.f90 b/gcc/testsuite/gfortran.dg/substr_1.f90
index a811d96..9816430 100644
--- a/gcc/testsuite/gfortran.dg/substr_1.f90
+++ b/gcc/testsuite/gfortran.dg/substr_1.f90
@@ -10,5 +10,3 @@ use m
 character(4) :: b
 b = a
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/substring_equivalence.f90 b/gcc/testsuite/gfortran.dg/substring_equivalence.f90
index 1d0c0cd..1a01024 100644
--- a/gcc/testsuite/gfortran.dg/substring_equivalence.f90
+++ b/gcc/testsuite/gfortran.dg/substring_equivalence.f90
@@ -6,5 +6,3 @@ module FLAGS
   character :: at, dev
   equivalence ( encodings(1:1),at ), ( encodings(2:2),dev)
 end module FLAGS
-
-! { dg-final { cleanup-modules "flags" } }
diff --git a/gcc/testsuite/gfortran.dg/test_com_block.f90 b/gcc/testsuite/gfortran.dg/test_com_block.f90
index 37175d2..df3f643 100644
--- a/gcc/testsuite/gfortran.dg/test_com_block.f90
+++ b/gcc/testsuite/gfortran.dg/test_com_block.f90
@@ -30,5 +30,3 @@ program testComBlock
      call abort()
   endif
 end program testComBlock
-
-! { dg-final { cleanup-modules "nonf03comblock" } }
diff --git a/gcc/testsuite/gfortran.dg/test_common_binding_labels.f03 b/gcc/testsuite/gfortran.dg/test_common_binding_labels.f03
index ea9a59a..554a59d 100644
--- a/gcc/testsuite/gfortran.dg/test_common_binding_labels.f03
+++ b/gcc/testsuite/gfortran.dg/test_common_binding_labels.f03
@@ -38,5 +38,3 @@ module z
   integer(c_int) :: i
   bind(c, name="mycom2") /com2/
 end module z
-
-! { dg-final { cleanup-modules "x y" } }
diff --git a/gcc/testsuite/gfortran.dg/test_only_clause.f90 b/gcc/testsuite/gfortran.dg/test_only_clause.f90
index a02a759..7c63e2b 100644
--- a/gcc/testsuite/gfortran.dg/test_only_clause.f90
+++ b/gcc/testsuite/gfortran.dg/test_only_clause.f90
@@ -18,5 +18,3 @@ module testOnlyClause
       endif
     end subroutine testOnly
 end module testOnlyClause
-
-! { dg-final { cleanup-modules "testonlyclause" } }
diff --git a/gcc/testsuite/gfortran.dg/transfer_assumed_size_1.f90 b/gcc/testsuite/gfortran.dg/transfer_assumed_size_1.f90
index 1b0e156..c1485a6 100644
--- a/gcc/testsuite/gfortran.dg/transfer_assumed_size_1.f90
+++ b/gcc/testsuite/gfortran.dg/transfer_assumed_size_1.f90
@@ -41,5 +41,3 @@ program main
    call BytesToString( StringToBytes('Hi'), str )
    if (trim(str) .ne. "Hi") call abort ()
 end program
-! { dg-final { cleanup-modules "transferbug" } }
-
diff --git a/gcc/testsuite/gfortran.dg/transfer_intrinsic_3.f90 b/gcc/testsuite/gfortran.dg/transfer_intrinsic_3.f90
index f0b9b54..d993da2 100644
--- a/gcc/testsuite/gfortran.dg/transfer_intrinsic_3.f90
+++ b/gcc/testsuite/gfortran.dg/transfer_intrinsic_3.f90
@@ -35,4 +35,3 @@ end module m
   end do
   deallocate(qname)
 end
-! { dg-final { cleanup-modules "m" } }
\ No newline at end of file
diff --git a/gcc/testsuite/gfortran.dg/transpose_optimization_1.f90 b/gcc/testsuite/gfortran.dg/transpose_optimization_1.f90
index d0ba6c4..885ff7c 100644
--- a/gcc/testsuite/gfortran.dg/transpose_optimization_1.f90
+++ b/gcc/testsuite/gfortran.dg/transpose_optimization_1.f90
@@ -104,4 +104,3 @@ end module foo
 
 ! { dg-final { scan-tree-dump-times "struct\[^\\n\]*atmp" 4 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/transpose_optimization_2.f90 b/gcc/testsuite/gfortran.dg/transpose_optimization_2.f90
index ba03374..54ef841 100644
--- a/gcc/testsuite/gfortran.dg/transpose_optimization_2.f90
+++ b/gcc/testsuite/gfortran.dg/transpose_optimization_2.f90
@@ -63,4 +63,3 @@ end
 ! { dg-final { scan-tree-dump-times "parm" 66 "original" } }
 ! { dg-final { scan-tree-dump-times "atmp" 12 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
-! { dg-final { cleanup-modules "mod" } }
diff --git a/gcc/testsuite/gfortran.dg/trim_optimize_2.f90 b/gcc/testsuite/gfortran.dg/trim_optimize_2.f90
index 46ae7fb..b7ae1e3 100644
--- a/gcc/testsuite/gfortran.dg/trim_optimize_2.f90
+++ b/gcc/testsuite/gfortran.dg/trim_optimize_2.f90
@@ -35,4 +35,3 @@ 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/trim_optimize_6.f90 b/gcc/testsuite/gfortran.dg/trim_optimize_6.f90
index 2be4a34..2303bb4 100644
--- a/gcc/testsuite/gfortran.dg/trim_optimize_6.f90
+++ b/gcc/testsuite/gfortran.dg/trim_optimize_6.f90
@@ -23,5 +23,3 @@ program main
   if (line /= "aX          ") call abort
   if (f() .ne. 2) call abort
 end program main
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/type_decl_1.f90 b/gcc/testsuite/gfortran.dg/type_decl_1.f90
index 9392865..badb9ae 100644
--- a/gcc/testsuite/gfortran.dg/type_decl_1.f90
+++ b/gcc/testsuite/gfortran.dg/type_decl_1.f90
@@ -26,5 +26,3 @@ type(integer (kind=k4)) function f()
   use m
   f = 42
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_assignment_1.f03 b/gcc/testsuite/gfortran.dg/typebound_assignment_1.f03
index 359572b..2d06097 100644
--- a/gcc/testsuite/gfortran.dg/typebound_assignment_1.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_assignment_1.f03
@@ -31,5 +31,3 @@ contains
     this%st = st
   end subroutine init_comps
 end module hydro_flow 
-
-! { dg-final { cleanup-modules "hydro_state hydro_flow" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_assignment_2.f03 b/gcc/testsuite/gfortran.dg/typebound_assignment_2.f03
index 862535a..ca994dd 100644
--- a/gcc/testsuite/gfortran.dg/typebound_assignment_2.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_assignment_2.f03
@@ -35,5 +35,3 @@ contains
     this%gr = gr
   end subroutine init_comps
 end module hydro_flow 
-
-! { dg-final { cleanup-modules "hydro_grid hydro_flow" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_assignment_3.f03 b/gcc/testsuite/gfortran.dg/typebound_assignment_3.f03
index 2001589..9379570 100644
--- a/gcc/testsuite/gfortran.dg/typebound_assignment_3.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_assignment_3.f03
@@ -26,5 +26,3 @@ end module
   type (bar) :: foobar(2)
   foobar = bar()           ! There was a not-implemented error here 
 end
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_1.f03 b/gcc/testsuite/gfortran.dg/typebound_call_1.f03
index d0da0ec..4e7797b 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_1.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_1.f03
@@ -94,5 +94,3 @@ PROGRAM main
   USE m, ONLY: test
   CALL test ()
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_10.f03 b/gcc/testsuite/gfortran.dg/typebound_call_10.f03
index ca6038e..22a2a72 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_10.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_10.f03
@@ -34,6 +34,3 @@ call t1%foo()
 call t2%foo()
 call t1%foo(t2)
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_11.f03 b/gcc/testsuite/gfortran.dg/typebound_call_11.f03
index 8d7b8f0..fa3693e 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_11.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_11.f03
@@ -44,5 +44,3 @@ contains
  end function new_field3
 
 end module
-
-! { dg-final { cleanup-modules "grid_module field_module" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_12.f03 b/gcc/testsuite/gfortran.dg/typebound_call_12.f03
index 5591dd9..f36b826 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_12.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_12.f03
@@ -33,4 +33,3 @@ PROGRAM ProgA
   END DO
 END PROGRAM ProgA
  
-! { dg-final { cleanup-modules "moda" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_13.f03 b/gcc/testsuite/gfortran.dg/typebound_call_13.f03
index 0800ba5..db22078 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_13.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_13.f03
@@ -39,5 +39,3 @@ program test_optional
   if (res /= 2) call abort()
 
 end program
-
-! { dg-final { cleanup-modules "module_myobj" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_14.f03 b/gcc/testsuite/gfortran.dg/typebound_call_14.f03
index e8cbf84..e39b38d 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_14.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_14.f03
@@ -25,5 +25,3 @@ contains
     print *,ice_array(2)%next%ice_fun()
   end subroutine
 end module ice_module
-
-! { dg-final { cleanup-modules "ice_module" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_15.f03 b/gcc/testsuite/gfortran.dg/typebound_call_15.f03
index ac6a668..843dff4 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_15.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_15.f03
@@ -22,4 +22,3 @@ contains
   end subroutine
 end module ice5
  
-! { dg-final { cleanup-modules "ice5" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_16.f03 b/gcc/testsuite/gfortran.dg/typebound_call_16.f03
index fdd60c6..3983195 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_16.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_16.f03
@@ -31,5 +31,3 @@ end module  base_mat_mod
   m = a%get_nrows()
 
 end
-
-! { dg-final { cleanup-modules "base_mat_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_17.f03 b/gcc/testsuite/gfortran.dg/typebound_call_17.f03
index 5bd0547..5996857 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_17.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_17.f03
@@ -53,5 +53,3 @@ program test_poly
    call p1%add_poly()
 
 end program test_poly
-
-! { dg-final { cleanup-modules "polynomial" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_18.f03 b/gcc/testsuite/gfortran.dg/typebound_call_18.f03
index bb94717..e417ebf 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_18.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_18.f03
@@ -63,5 +63,3 @@ program main
   call g%assign (g_initial)
   print *, "cg: after  g%assign"
 end program main
-
-! { dg-final { cleanup-modules "abstract_vector concrete_vector concrete_gradient" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_19.f03 b/gcc/testsuite/gfortran.dg/typebound_call_19.f03
index 95b272a..3c8b768 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_19.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_19.f03
@@ -47,5 +47,3 @@ program test
   this%x = this%find_x()
   if (this%x%i /= 4) call abort()
 end
-
-! { dg-final { cleanup-modules "class_t" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_2.f03 b/gcc/testsuite/gfortran.dg/typebound_call_2.f03
index 5d70f7c..d0846f4 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_2.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_2.f03
@@ -86,5 +86,3 @@ PROGRAM main
   USE m, ONLY: test
   CALL test ()
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_20.f03 b/gcc/testsuite/gfortran.dg/typebound_call_20.f03
index 61eee5b..8ee7302 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_20.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_20.f03
@@ -37,5 +37,3 @@ program p
   y = this%find_y()
   if (y/=3) call abort()
 end 
-
-! { dg-final { cleanup-modules "class_t" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_21.f03 b/gcc/testsuite/gfortran.dg/typebound_call_21.f03
index 5f7d672..e31bd6d 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_21.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_21.f03
@@ -34,6 +34,4 @@ end module m
 end
 
 ! { dg-final { scan-tree-dump-times "_vptr->" 0 "original" } }
-
-! { dg-final { cleanup-modules "m" } }
 ! { dg-final { cleanup-tree-dump "original" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_22.f03 b/gcc/testsuite/gfortran.dg/typebound_call_22.f03
index b5aa8ee..31e5894 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_22.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_22.f03
@@ -28,5 +28,3 @@ end program
 
 ! { dg-final { scan-tree-dump-times "base \\(\\);" 1 "optimized" } }
 ! { dg-final { cleanup-tree-dump "optimized" } }
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_3.f03 b/gcc/testsuite/gfortran.dg/typebound_call_3.f03
index eabb28e..ba71886 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_3.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_3.f03
@@ -44,5 +44,3 @@ PROGRAM main
     CALL abort ()
   END IF
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_4.f03 b/gcc/testsuite/gfortran.dg/typebound_call_4.f03
index 6cb5e69..c56f22d 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_4.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_4.f03
@@ -47,5 +47,3 @@ CONTAINS
   END SUBROUTINE test
 
 END MODULE m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_5.f03 b/gcc/testsuite/gfortran.dg/typebound_call_5.f03
index d9a845b..3691292 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_5.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_5.f03
@@ -37,5 +37,3 @@ SUBROUTINE test2 ()
   CALL obj%priv () ! { dg-error "PRIVATE" }
   CALL obj%publ ()
 END SUBROUTINE test2
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_6.f03 b/gcc/testsuite/gfortran.dg/typebound_call_6.f03
index 0ad510e..fbecabd 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_6.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_6.f03
@@ -41,5 +41,3 @@ PROGRAM main
   CALL super%proc
   CALL sub%proc
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_7.f03 b/gcc/testsuite/gfortran.dg/typebound_call_7.f03
index 03a1a51..7e7209c19 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_7.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_7.f03
@@ -46,5 +46,3 @@ CONTAINS
   END SUBROUTINE fill_gap
 
 END MODULE touching
-
-! { dg-final { cleanup-modules "touching" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_8.f03 b/gcc/testsuite/gfortran.dg/typebound_call_8.f03
index 3f65846..1784cce 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_8.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_8.f03
@@ -28,5 +28,3 @@ CONTAINS
   END SUBROUTINE fill_gap
 
 END MODULE touching
-
-! { dg-final { cleanup-modules "touching" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_9.f03 b/gcc/testsuite/gfortran.dg/typebound_call_9.f03
index 4863f07..c408506 100644
--- a/gcc/testsuite/gfortran.dg/typebound_call_9.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_call_9.f03
@@ -56,5 +56,3 @@ contains
   End Subroutine foo_free
 
 end module foo_mod
-
-! { dg-final { cleanup-modules "foo_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_generic_1.f03 b/gcc/testsuite/gfortran.dg/typebound_generic_1.f03
index fb1dfae..f9c471a 100644
--- a/gcc/testsuite/gfortran.dg/typebound_generic_1.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_generic_1.f03
@@ -92,5 +92,3 @@ CONTAINS
   END SUBROUTINE subr
 
 END MODULE m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_generic_10.f03 b/gcc/testsuite/gfortran.dg/typebound_generic_10.f03
index 590fa52..56952e1 100644
--- a/gcc/testsuite/gfortran.dg/typebound_generic_10.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_generic_10.f03
@@ -28,5 +28,3 @@ contains
   end subroutine b_subroutine
 
 end module generic 
-
-! { dg-final { cleanup-modules "generic" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_generic_11.f90 b/gcc/testsuite/gfortran.dg/typebound_generic_11.f90
index eb89d0d..c71f686 100644
--- a/gcc/testsuite/gfortran.dg/typebound_generic_11.f90
+++ b/gcc/testsuite/gfortran.dg/typebound_generic_11.f90
@@ -59,5 +59,3 @@ contains
     res = ( t%i == i )
   end function i_equal_t2
 end module m_test2
-
-! { dg-final { cleanup-modules "m_test m_test2" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_generic_2.f03 b/gcc/testsuite/gfortran.dg/typebound_generic_2.f03
index c18b306..8094d86 100644
--- a/gcc/testsuite/gfortran.dg/typebound_generic_2.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_generic_2.f03
@@ -60,5 +60,3 @@ PROGRAM main
   WRITE (*,*) myobj%sub (1) ! { dg-error "FUNCTION" }
 
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_generic_3.f03 b/gcc/testsuite/gfortran.dg/typebound_generic_3.f03
index d56f914..6f7af2e 100644
--- a/gcc/testsuite/gfortran.dg/typebound_generic_3.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_generic_3.f03
@@ -59,4 +59,3 @@ PROGRAM main
 END PROGRAM main
 
 ! { dg-output "Plain Integer(\n|\r\n|\r).*Plain Real(\n|\r\n|\r).*Passed Integer(\n|\r\n|\r).*Passed Real" }
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_generic_4.f03 b/gcc/testsuite/gfortran.dg/typebound_generic_4.f03
index ff5cd05..a74cdae 100644
--- a/gcc/testsuite/gfortran.dg/typebound_generic_4.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_generic_4.f03
@@ -51,4 +51,3 @@ program foobar
 end program foobar
 
 ! { dg-output "Vector.*Matrix" }
-! { dg-final { cleanup-modules "bar_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_generic_5.f03 b/gcc/testsuite/gfortran.dg/typebound_generic_5.f03
index 3fd94b1..561fcce 100644
--- a/gcc/testsuite/gfortran.dg/typebound_generic_5.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_generic_5.f03
@@ -51,5 +51,3 @@ PROGRAM main
     CALL abort ()
   END IF
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_generic_6.f03 b/gcc/testsuite/gfortran.dg/typebound_generic_6.f03
index 973e10a..d0a17567 100644
--- a/gcc/testsuite/gfortran.dg/typebound_generic_6.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_generic_6.f03
@@ -65,5 +65,3 @@ program testd15
   if (afab%get() .ne. 3) call abort
 
 end program testd15
-
-! { dg-final { cleanup-modules "foo_mod foo2_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_generic_7.f03 b/gcc/testsuite/gfortran.dg/typebound_generic_7.f03
index 2519ab0..cb551b8 100644
--- a/gcc/testsuite/gfortran.dg/typebound_generic_7.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_generic_7.f03
@@ -24,5 +24,3 @@ contains
     call x%do()
   end subroutine
 end 
-
-! { dg-final { cleanup-modules "foo_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_generic_8.f03 b/gcc/testsuite/gfortran.dg/typebound_generic_8.f03
index 0ee6610..2c507e1 100644
--- a/gcc/testsuite/gfortran.dg/typebound_generic_8.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_generic_8.f03
@@ -25,5 +25,3 @@ contains
   end subroutine do_something
 
 end module ice6 
-
-! { dg-final { cleanup-modules "ice6" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_generic_9.f03 b/gcc/testsuite/gfortran.dg/typebound_generic_9.f03
index f85bb38..42be602 100644
--- a/gcc/testsuite/gfortran.dg/typebound_generic_9.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_generic_9.f03
@@ -58,6 +58,4 @@ program testd15
   if (af2%get() .ne. 3) call abort
 
 end program testd15
-
-! { dg-final { cleanup-modules "foo_mod foo2_mod" } }
  
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_1.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_1.f03
index f756a59..962c2bd 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_1.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_1.f03
@@ -45,5 +45,3 @@ CONTAINS
   END SUBROUTINE assign_proc
 
 END MODULE m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_10.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_10.f03
index 146eab0..e8f9f1e 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_10.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_10.f03
@@ -26,4 +26,3 @@ program main
   class(field) ,pointer :: u
   u = (u)*2. ! { dg-error "check that there is a matching specific" }
 end program
-! { dg-final { cleanup-modules "field_module" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_11.f90 b/gcc/testsuite/gfortran.dg/typebound_operator_11.f90
index 1f5c195..b37e975 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_11.f90
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_11.f90
@@ -38,5 +38,3 @@ contains
     x = x%t()*dt
   end subroutine 
 end module
-
-! { dg-final { cleanup-modules "foo_module" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_12.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_12.f03
index 3496ed3..4f72957 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_12.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_12.f03
@@ -41,5 +41,3 @@ program main
   if (any (fireworks%position .ne. [6, 12, 18])) call abort
   if (any (fireworks%velocity .ne. [24, 30, 36])) call abort
 end program
-! { dg-final { cleanup-modules "soop_stars_class" } }
-
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_13.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_13.f03
index e1371c8..4982894 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_13.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_13.f03
@@ -55,5 +55,3 @@ program main
   if (any (fireworks%position .ne. [6, 12, 18])) call abort
   if (any (fireworks%velocity .ne. [24, 30, 36])) call abort
 end program
-! { dg-final { cleanup-modules "soop_stars_class" } }
-
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_2.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_2.f03
index cae2cda..67b6b5e 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_2.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_2.f03
@@ -63,5 +63,3 @@ CONTAINS
   END SUBROUTINE sub2
 
 END MODULE m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_3.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_3.f03
index 51ad1d2..c558dfd 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_3.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_3.f03
@@ -121,5 +121,3 @@ PROGRAM main
 
   IF (.GET. num1 /= 3.0) CALL abort ()
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_4.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_4.f03
index 835ceb6..6ede14e 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_4.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_4.f03
@@ -88,5 +88,3 @@ PROGRAM main
   x = x + 42 ! { dg-error "Operands of" }
   x = x .PLUS. 5 ! { dg-error "Unknown operator" }
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_5.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_5.f03
index 25a8c38..a6c9c2b 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_5.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_5.f03
@@ -26,5 +26,3 @@ PROGRAM P
   CLASS (NODE),POINTER :: A, B
   PRINT *, A%PT .LT. B%PT
 END
-
-! { dg-final { cleanup-modules "def1" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_6.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_6.f03
index 132b32b..02bd01a 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_6.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_6.f03
@@ -69,5 +69,3 @@ PROGRAM TEST
 
   if (.NOT. NDA .LT. NDB) call abort()
 END
-
-! { dg-final { cleanup-modules "dat_mod node_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_7.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_7.f03
index a7b0f81..280072d 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_7.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_7.f03
@@ -99,5 +99,3 @@ program main
     type is (i_field); if (u%i .ne. 152064) call abort
   end select
 end program
-! { dg-final { cleanup-modules "field_module i_field_module" } }
-
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_8.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_8.f03
index a3726ba..88d485d 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_8.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_8.f03
@@ -97,4 +97,3 @@ program main
   
   if (u%i .ne. 152064) call abort
 end program
-! { dg-final { cleanup-modules "field_module i_field_module" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_9.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_9.f03
index 9fda1eb..6e62526 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_9.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_9.f03
@@ -498,4 +498,3 @@ contains
     end select
   end subroutine
 end program test_pde_solver
-! { dg-final { cleanup-modules "pde_specific define_pde_objects cartesian_2d_objects base_pde_objects" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_override_1.f90 b/gcc/testsuite/gfortran.dg/typebound_override_1.f90
index c2b7193..a7e340e 100644
--- a/gcc/testsuite/gfortran.dg/typebound_override_1.f90
+++ b/gcc/testsuite/gfortran.dg/typebound_override_1.f90
@@ -121,5 +121,3 @@ contains
  end function
 
 end module w2
-
-! { dg-final { cleanup-modules "m w1 w2" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_override_2.f90 b/gcc/testsuite/gfortran.dg/typebound_override_2.f90
index 98146b6..375875e 100644
--- a/gcc/testsuite/gfortran.dg/typebound_override_2.f90
+++ b/gcc/testsuite/gfortran.dg/typebound_override_2.f90
@@ -28,5 +28,3 @@ contains
     integer, intent(inout) :: j
   end subroutine ext_bar
 end module extfoo_mod 
-
-! { dg-final { cleanup-modules "foo_mod extfoo_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_1.f08 b/gcc/testsuite/gfortran.dg/typebound_proc_1.f08
index 53868a4..674d4e0 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_1.f08
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_1.f08
@@ -65,5 +65,3 @@ CONTAINS
   END FUNCTION proc3
 
 END MODULE testmod
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_10.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_10.f03
index 3f372c8..cbb61b6 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_10.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_10.f03
@@ -39,5 +39,3 @@ MODULE m2
   END TYPE sub_type2
 
 END MODULE m2
-
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_11.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_11.f03
index fafc149..6105b8c 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_11.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_11.f03
@@ -29,5 +29,3 @@ CONTAINS
   END SUBROUTINE realproc
 
 END MODULE testmod
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_13.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_13.f03
index 62054b6..af486ff 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_13.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_13.f03
@@ -45,5 +45,3 @@ CONTAINS
   END SUBROUTINE test
 
 END MODULE m
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_14.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_14.f03
index 766a0ef..1f0d7de 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_14.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_14.f03
@@ -29,5 +29,3 @@ contains
   end subroutine
 
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_15.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_15.f03
index 37907b3..31d10ca 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_15.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_15.f03
@@ -30,5 +30,3 @@ contains
   end subroutine
 
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_16.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_16.f03
index 828f510..e43b3f8 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_16.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_16.f03
@@ -54,5 +54,3 @@ MODULE rational_numbers
       r%d = a%d*b%d
     END FUNCTION
 END
-
-! { dg-final { cleanup-modules "rational_numbers" } } 
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_17.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_17.f03
index 5c1a1c3..4bc177b 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_17.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_17.f03
@@ -21,6 +21,3 @@ function get_coeff(self) result(coeff)
 end function get_coeff
 
 end module array
-
-
-! { dg-final { cleanup-modules "array" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_18.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_18.f03
index 956c02e..725cba6 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_18.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_18.f03
@@ -25,5 +25,3 @@ contains
   end function Tree_Node_Get
 
 end module Merger_Trees
-
-! { dg-final { cleanup-modules "merger_trees" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_19.f90 b/gcc/testsuite/gfortran.dg/typebound_proc_19.f90
index be15bf0..b9068b6 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_19.f90
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_19.f90
@@ -39,5 +39,3 @@ end subroutine test
 
 call test()
 end
-
-! { dg-final { cleanup-modules "mytypes" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_2.f90 b/gcc/testsuite/gfortran.dg/typebound_proc_2.f90
index 70ae2ca..a34d935 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_2.f90
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_2.f90
@@ -29,6 +29,4 @@ CONTAINS
   END FUNCTION proc2
 
 END MODULE testmod
-
-! { dg-final { cleanup-modules "testmod" } }
 ! { dg-excess-errors "no IMPLICIT type" }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_20.f90 b/gcc/testsuite/gfortran.dg/typebound_proc_20.f90
index 4fee2f3..b63daf9 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_20.f90
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_20.f90
@@ -64,5 +64,3 @@ use class_t
 type(t) :: x
 call x%calc()
 end
-
-! { dg-final { cleanup-modules "class_t" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_21.f90 b/gcc/testsuite/gfortran.dg/typebound_proc_21.f90
index 6c16d46..382f6d8 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_21.f90
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_21.f90
@@ -23,5 +23,3 @@ contains
         find_x => null()
     end function find_x
 end module class_t
-
-! { dg-final { cleanup-modules "class_t" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_22.f90 b/gcc/testsuite/gfortran.dg/typebound_proc_22.f90
index f7691c5..2d9f17c 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_22.f90
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_22.f90
@@ -45,5 +45,3 @@
       bar = foo%getx()  ! OK
       bar = fooPriv%getxPriv() ! { dg-error " is PRIVATE " }
       end program quicktest
-
-! { dg-final { cleanup-modules "qtest qtestpriv" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_23.f90 b/gcc/testsuite/gfortran.dg/typebound_proc_23.f90
index ff682a4..0109c74 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_23.f90
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_23.f90
@@ -28,5 +28,3 @@ if (it/=0) call abort()
 call ice_sub(t)
 if (it/=1) call abort()
 end
-
-! { dg-final { cleanup-modules "ice" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_24.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_24.f03
index f200e0e..e8ed918 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_24.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_24.f03
@@ -28,5 +28,3 @@ contains
   end subroutine
 
 end module 
-
-! { dg-final { cleanup-modules "datetime_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_25.f90 b/gcc/testsuite/gfortran.dg/typebound_proc_25.f90
index 4a68fb9..3646b65 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_25.f90
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_25.f90
@@ -106,5 +106,3 @@ end module
    CALL factory%finalize()        ! Destroy the object
 
   END PROGRAM main
-
-! { dg-final { cleanup-modules "factory_pattern" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_3.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_3.f03
index 13b90c1..56cb9cf 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_3.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_3.f03
@@ -13,5 +13,3 @@ MODULE testmod
   END TYPE t ! { dg-error "Fortran 2008" }
 
 END MODULE testmod
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_4.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_4.f03
index 60aa728..9b7a4fa 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_4.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_4.f03
@@ -35,5 +35,3 @@ MODULE testmod
 CONTAINS
 
 END MODULE testmod
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_5.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_5.f03
index fdd15b3..c80deed 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_5.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_5.f03
@@ -115,5 +115,3 @@ CONTAINS
   END SUBROUTINE proc_no_module
 
 END PROGRAM main
-
-! { dg-final { cleanup-modules "othermod testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_6.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_6.f03
index 36dc9b1..0f4f311 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_6.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_6.f03
@@ -176,5 +176,3 @@ CONTAINS
   END SUBROUTINE proc_tmereal
 
 END MODULE testmod
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_7.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_7.f03
index ebf611e..ecde98f5 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_7.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_7.f03
@@ -28,5 +28,3 @@ CONTAINS
   END SUBROUTINE proc_noarg
 
 END MODULE testmod
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_8.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_8.f03
index df7764d..ed5e422 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_8.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_8.f03
@@ -33,5 +33,3 @@ CONTAINS
   END SUBROUTINE proc
 
 END MODULE testmod
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_9.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_9.f03
index 9106de6..3a96c0a 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_9.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_9.f03
@@ -29,5 +29,3 @@ MODULE testmod
   END TYPE abstract_type
 
 END MODULE testmod
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/unreferenced_use_assoc_1.f90 b/gcc/testsuite/gfortran.dg/unreferenced_use_assoc_1.f90
index b2fdd79..1f36b2d 100644
--- a/gcc/testsuite/gfortran.dg/unreferenced_use_assoc_1.f90
+++ b/gcc/testsuite/gfortran.dg/unreferenced_use_assoc_1.f90
@@ -37,4 +37,3 @@ program main
    call DoSomethingWithBytes( UserTypeToBytes(user) )
 
 end program 
-! { dg-final { cleanup-modules "internalcompilererror" } }
diff --git a/gcc/testsuite/gfortran.dg/unused_artificial_dummies_1.f90 b/gcc/testsuite/gfortran.dg/unused_artificial_dummies_1.f90
index bfeceaf..68ceee7 100644
--- a/gcc/testsuite/gfortran.dg/unused_artificial_dummies_1.f90
+++ b/gcc/testsuite/gfortran.dg/unused_artificial_dummies_1.f90
@@ -47,4 +47,3 @@ contains
   end function
 
 end module foo
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/use_1.f90 b/gcc/testsuite/gfortran.dg/use_1.f90
index 2750d10..46d8fa9 100644
--- a/gcc/testsuite/gfortran.dg/use_1.f90
+++ b/gcc/testsuite/gfortran.dg/use_1.f90
@@ -6,4 +6,3 @@
       subroutine bar1
       usefoo
       end
-      ! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/use_10.f90 b/gcc/testsuite/gfortran.dg/use_10.f90
index 3c752ed..e52fcff 100644
--- a/gcc/testsuite/gfortran.dg/use_10.f90
+++ b/gcc/testsuite/gfortran.dg/use_10.f90
@@ -27,5 +27,3 @@ operator(.my.)=>operator(.op.),operator(.ops.)=>operator(.op.)
 implicit none
 if (.my.2 /= -2 .or. .op.3 /= -3 .or. .ops.7 /= -7) call abort()
 end
-
-! { dg-final { cleanup-modules "a" } }
diff --git a/gcc/testsuite/gfortran.dg/use_11.f90 b/gcc/testsuite/gfortran.dg/use_11.f90
index ba7cf09..1353099 100644
--- a/gcc/testsuite/gfortran.dg/use_11.f90
+++ b/gcc/testsuite/gfortran.dg/use_11.f90
@@ -15,4 +15,3 @@ local1 = 5
 local2 = 3
 if (local1 .ne. local2) call abort ()
 end
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/use_12.f90 b/gcc/testsuite/gfortran.dg/use_12.f90
index 7406dc4..9a0c78c 100644
--- a/gcc/testsuite/gfortran.dg/use_12.f90
+++ b/gcc/testsuite/gfortran.dg/use_12.f90
@@ -23,4 +23,3 @@ program kmeans_driver
    integer :: nfirst(3)
    nfirst(1:numclusters) = get_nfirst( )
 end program kmeans_driver
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/use_13.f90 b/gcc/testsuite/gfortran.dg/use_13.f90
index 1fe7b1e..2f6d4e7 100644
--- a/gcc/testsuite/gfortran.dg/use_13.f90
+++ b/gcc/testsuite/gfortran.dg/use_13.f90
@@ -42,4 +42,3 @@ end module m2
 use m2
 call test()
 end
-! { dg-final { cleanup-modules "m m2" } }
diff --git a/gcc/testsuite/gfortran.dg/use_14.f90 b/gcc/testsuite/gfortran.dg/use_14.f90
index 4ea5aed..63f3dff 100644
--- a/gcc/testsuite/gfortran.dg/use_14.f90
+++ b/gcc/testsuite/gfortran.dg/use_14.f90
@@ -17,5 +17,3 @@ subroutine my_sub (a)
 end subroutine
 
 END
-
-! { dg-final { cleanup-modules "test_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/use_15.f90 b/gcc/testsuite/gfortran.dg/use_15.f90
index 0995888..bd5920a 100644
--- a/gcc/testsuite/gfortran.dg/use_15.f90
+++ b/gcc/testsuite/gfortran.dg/use_15.f90
@@ -35,5 +35,3 @@ subroutine my_sub3 (a)
 end subroutine
 
 END
-
-! { dg-final { cleanup-modules "test_mod test_mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/use_16.f90 b/gcc/testsuite/gfortran.dg/use_16.f90
index 35176de..7b22c41 100644
--- a/gcc/testsuite/gfortran.dg/use_16.f90
+++ b/gcc/testsuite/gfortran.dg/use_16.f90
@@ -14,5 +14,3 @@ use a ! { dg-error "Symbol 'bar' at \\(1\\) conflicts with symbol from module 'a
 implicit none
 integer :: bar ! { dg-error "Symbol 'bar' at \\(1\\) conflicts with symbol from module 'a'" }
 end
-
-! { dg-final { cleanup-modules "a" } }
diff --git a/gcc/testsuite/gfortran.dg/use_17.f90 b/gcc/testsuite/gfortran.dg/use_17.f90
index b1b002e..d513920 100644
--- a/gcc/testsuite/gfortran.dg/use_17.f90
+++ b/gcc/testsuite/gfortran.dg/use_17.f90
@@ -35,5 +35,3 @@ subroutine test1
   integer :: c_double
   integer, parameter :: p1 = c_int, p2 = c_double_orig
 end subroutine test1
-
-! { dg-final { cleanup-modules "mod1 mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/use_18.f90 b/gcc/testsuite/gfortran.dg/use_18.f90
index a46cdc4..7975acd 100644
--- a/gcc/testsuite/gfortran.dg/use_18.f90
+++ b/gcc/testsuite/gfortran.dg/use_18.f90
@@ -47,5 +47,3 @@ type(t2) :: k = t2(1), l = t2(2)
 print *, i*j
 print *, k > l
 end
-
-! { dg-final { cleanup-modules "foo bar" } }
diff --git a/gcc/testsuite/gfortran.dg/use_19.f90 b/gcc/testsuite/gfortran.dg/use_19.f90
index 5ddc5d1..83ef713 100644
--- a/gcc/testsuite/gfortran.dg/use_19.f90
+++ b/gcc/testsuite/gfortran.dg/use_19.f90
@@ -7,5 +7,3 @@ end module m
 
 use m, only: operator(/) ! { dg-error "Intrinsic operator '/' referenced at .1. not found in module 'm'" }
 end
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/use_20.f90 b/gcc/testsuite/gfortran.dg/use_20.f90
index 61a15d9..86e7509 100644
--- a/gcc/testsuite/gfortran.dg/use_20.f90
+++ b/gcc/testsuite/gfortran.dg/use_20.f90
@@ -45,5 +45,3 @@ module merry_ICE
    use foo,  only: foo_t   ! <------ change order to prevent ICE
    use bar,  only: bar_t   ! <------ change order to prevent ICE
 end module merry_ICE
-
-! { dg-final { cleanup-modules "foo bar merry_ice" } }
diff --git a/gcc/testsuite/gfortran.dg/use_21.f90 b/gcc/testsuite/gfortran.dg/use_21.f90
index eba412d..4ec1751 100644
--- a/gcc/testsuite/gfortran.dg/use_21.f90
+++ b/gcc/testsuite/gfortran.dg/use_21.f90
@@ -31,5 +31,3 @@ program ala
    implicit none
    call dom%init
 end program ala
-
-! { dg-final { cleanup-modules "domain" } }
diff --git a/gcc/testsuite/gfortran.dg/use_3.f90 b/gcc/testsuite/gfortran.dg/use_3.f90
index 54100d1..1cfc71b 100644
--- a/gcc/testsuite/gfortran.dg/use_3.f90
+++ b/gcc/testsuite/gfortran.dg/use_3.f90
@@ -9,4 +9,3 @@ end module foo
   use, nonintrinsic :: iso_fortran_env ! { dg-error "shall be either INTRINSIC or NON_INTRINSIC" }
   use, intrinsic :: iso_fortran_env
 end
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/use_4.f90 b/gcc/testsuite/gfortran.dg/use_4.f90
index b7249b0..a05689d 100644
--- a/gcc/testsuite/gfortran.dg/use_4.f90
+++ b/gcc/testsuite/gfortran.dg/use_4.f90
@@ -31,4 +31,3 @@ program test_foo
   use foo, only: i => foo! { dg-error "been used as an external module name" }
   use foo, only: foo => i! { dg-error "been used as an external module name" }
 end program
-! { dg-final { cleanup-modules "foo bar test test2 test3" } }
diff --git a/gcc/testsuite/gfortran.dg/use_5.f90 b/gcc/testsuite/gfortran.dg/use_5.f90
index 0554f39..44f5389 100644
--- a/gcc/testsuite/gfortran.dg/use_5.f90
+++ b/gcc/testsuite/gfortran.dg/use_5.f90
@@ -45,5 +45,3 @@ use z
  if ((.my. i) /= 2+15) call abort ()
  if ((.addfive. i) /= 2+5) call abort ()
 end
-
-! { dg-final { cleanup-modules "x y z" } }
diff --git a/gcc/testsuite/gfortran.dg/use_6.f90 b/gcc/testsuite/gfortran.dg/use_6.f90
index 2be10b7..0579e83 100644
--- a/gcc/testsuite/gfortran.dg/use_6.f90
+++ b/gcc/testsuite/gfortran.dg/use_6.f90
@@ -41,5 +41,3 @@ use x, only : operator(.bar.) => operator(.addfive.) ! { dg-error "Fortran 2003:
 use y, operator(.my.) => operator(.addfive.) ! { dg-error "Fortran 2003: Renaming operators in USE statements" }
 use z
 end
-
-! { dg-final { cleanup-modules "x y z" } }
diff --git a/gcc/testsuite/gfortran.dg/use_7.f90 b/gcc/testsuite/gfortran.dg/use_7.f90
index 7ebd1e2..5e0b3c7 100644
--- a/gcc/testsuite/gfortran.dg/use_7.f90
+++ b/gcc/testsuite/gfortran.dg/use_7.f90
@@ -45,5 +45,3 @@ use x, only : bar => operator(.addfive.) ! { dg-error "Syntax error in USE state
 use y, operator(.my.) => sub ! { dg-error "Syntax error in USE statement" }
 use y, operator(+) => operator(.addfive.) ! { dg-error "Syntax error in USE statement" }
 end
-
-! { dg-final { cleanup-modules "x y z" } }
diff --git a/gcc/testsuite/gfortran.dg/use_9.f90 b/gcc/testsuite/gfortran.dg/use_9.f90
index 419ef47..588f29d 100644
--- a/gcc/testsuite/gfortran.dg/use_9.f90
+++ b/gcc/testsuite/gfortran.dg/use_9.f90
@@ -13,4 +13,3 @@ end module test
 
 use test, only: operator(.func.) ! { dg-error "not found in module 'test'" }
 end
-! { dg-final { cleanup-modules "test" } }
diff --git a/gcc/testsuite/gfortran.dg/use_allocated_1.f90 b/gcc/testsuite/gfortran.dg/use_allocated_1.f90
index e590f6a..fb51502e 100644
--- a/gcc/testsuite/gfortran.dg/use_allocated_1.f90
+++ b/gcc/testsuite/gfortran.dg/use_allocated_1.f90
@@ -16,5 +16,3 @@ subroutine init
   use foo
   if (.not.allocated(bar)) call abort
 end subroutine init
-
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/use_iso_c_binding.f90 b/gcc/testsuite/gfortran.dg/use_iso_c_binding.f90
index 8a28490..99323d6 100644
--- a/gcc/testsuite/gfortran.dg/use_iso_c_binding.f90
+++ b/gcc/testsuite/gfortran.dg/use_iso_c_binding.f90
@@ -46,5 +46,3 @@ module use_stmt_7
   ! --Rickett, 09.13.06
   use iso_c_binding, only: c_int, c_int
 end module use_stmt_7
-
-! { dg-final { cleanup-modules "use_stmt_2 use_stmt_3 use_stmt_4 use_stmt_5 use_stmt_6 use_stmt_7" } }
diff --git a/gcc/testsuite/gfortran.dg/use_only_1.f90 b/gcc/testsuite/gfortran.dg/use_only_1.f90
index e013243..c40e751 100644
--- a/gcc/testsuite/gfortran.dg/use_only_1.f90
+++ b/gcc/testsuite/gfortran.dg/use_only_1.f90
@@ -89,4 +89,3 @@ contains
     if (yfoobar (77) /= 77_4) call abort ()
   end subroutine
 END PROGRAM test2uses
-! { dg-final { cleanup-modules "xmod ymod" } }
diff --git a/gcc/testsuite/gfortran.dg/use_only_2.f90 b/gcc/testsuite/gfortran.dg/use_only_2.f90
index a2bfb30..71db83c 100644
--- a/gcc/testsuite/gfortran.dg/use_only_2.f90
+++ b/gcc/testsuite/gfortran.dg/use_only_2.f90
@@ -27,4 +27,3 @@ end module MyMod3
 module MyMod4

   USE MyMod3, only: write_MyInt

 end module MYMOD4

-! { dg-final { cleanup-modules "mymod1 mymod2 mymod3 mymod4" } }
diff --git a/gcc/testsuite/gfortran.dg/use_only_3.f90 b/gcc/testsuite/gfortran.dg/use_only_3.f90
index 509752a..b264506 100644
--- a/gcc/testsuite/gfortran.dg/use_only_3.f90
+++ b/gcc/testsuite/gfortran.dg/use_only_3.f90
@@ -32,7 +32,3 @@ subroutine dforceb(c0, i, betae, ipol, bec0, ctabin, gqq, gqqm, qmat, dq2, df)
        &   dq2,  gmes
 
  end subroutine dforceb
-! { dg-final { cleanup-modules "cell_base cvan gvecs kinds" } }
-! { dg-final { cleanup-modules "constants electrons_base gvecw parameters" } }
-! { dg-final { cleanup-modules "control_flags electrons_nose ions_base" } }
-
diff --git a/gcc/testsuite/gfortran.dg/use_only_4.f90 b/gcc/testsuite/gfortran.dg/use_only_4.f90
index a37db45..6a6cb06 100644
--- a/gcc/testsuite/gfortran.dg/use_only_4.f90
+++ b/gcc/testsuite/gfortran.dg/use_only_4.f90
@@ -31,4 +31,3 @@ end module m2
   use m2
   call two
 end
-! { dg-final { cleanup-modules "m1 m2" } }
diff --git a/gcc/testsuite/gfortran.dg/use_only_5.f90 b/gcc/testsuite/gfortran.dg/use_only_5.f90
index 56d33f4..fb16981 100644
--- a/gcc/testsuite/gfortran.dg/use_only_5.f90
+++ b/gcc/testsuite/gfortran.dg/use_only_5.f90
@@ -34,5 +34,3 @@ module m_common_namespaces
   use m_common_attrs, only: dictionary_t
   use m_common_attrs, only: get_prefix_by_index
 end module m_common_namespaces
-
-! { dg-final { cleanup-modules "m_common_attrs m_common_namespaces" } }
diff --git a/gcc/testsuite/gfortran.dg/use_rename_1.f90 b/gcc/testsuite/gfortran.dg/use_rename_1.f90
index 2e9a3c8..5feda7a 100644
--- a/gcc/testsuite/gfortran.dg/use_rename_1.f90
+++ b/gcc/testsuite/gfortran.dg/use_rename_1.f90
@@ -24,4 +24,3 @@ subroutine read_initial_config_nml2()
   integer :: nmoltype_phase
   namelist /confNmoltypePhase/ nmoltype_phase
 end subroutine read_initial_config_nml2
-! { dg-final { cleanup-modules "common_init_conf" } }
diff --git a/gcc/testsuite/gfortran.dg/use_rename_2.f90 b/gcc/testsuite/gfortran.dg/use_rename_2.f90
index 3ca6f69..3688bc8 100644
--- a/gcc/testsuite/gfortran.dg/use_rename_2.f90
+++ b/gcc/testsuite/gfortran.dg/use_rename_2.f90
@@ -22,5 +22,3 @@ contains
     if (b .ne. 5) call abort ()
   end subroutine test2
 end
-
-! { dg-final { cleanup-modules "reduction5" } }
diff --git a/gcc/testsuite/gfortran.dg/use_rename_3.f90 b/gcc/testsuite/gfortran.dg/use_rename_3.f90
index 9f28e2e..33b21e5 100644
--- a/gcc/testsuite/gfortran.dg/use_rename_3.f90
+++ b/gcc/testsuite/gfortran.dg/use_rename_3.f90
@@ -32,4 +32,3 @@ program main
     print *, 'Is flag'
   endif
 end program
-! { dg-final { cleanup-modules "funcinterfacemod secondmod" } }
diff --git a/gcc/testsuite/gfortran.dg/use_rename_4.f90 b/gcc/testsuite/gfortran.dg/use_rename_4.f90
index 4ce7104..e0e83b8 100644
--- a/gcc/testsuite/gfortran.dg/use_rename_4.f90
+++ b/gcc/testsuite/gfortran.dg/use_rename_4.f90
@@ -20,5 +20,3 @@ PROGRAM main
     CALL abort ()
   END IF
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/use_rename_5.f90 b/gcc/testsuite/gfortran.dg/use_rename_5.f90
index 09f87c4..3d7839a 100644
--- a/gcc/testsuite/gfortran.dg/use_rename_5.f90
+++ b/gcc/testsuite/gfortran.dg/use_rename_5.f90
@@ -15,5 +15,3 @@ PROGRAM main
   i = 4 ! { dg-error "no IMPLICIT type" }
   j = 5
 END PROGRAM main
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/used_before_typed_3.f90 b/gcc/testsuite/gfortran.dg/used_before_typed_3.f90
index ab1b2a9..5654d97 100644
--- a/gcc/testsuite/gfortran.dg/used_before_typed_3.f90
+++ b/gcc/testsuite/gfortran.dg/used_before_typed_3.f90
@@ -37,5 +37,3 @@ END FUNCTION test4
 ! Test an empty function works, too.
 INTEGER FUNCTION test5 ()
 END FUNCTION test5
-
-! { dg-final { cleanup-modules "testmod" } }
diff --git a/gcc/testsuite/gfortran.dg/used_dummy_types_1.f90 b/gcc/testsuite/gfortran.dg/used_dummy_types_1.f90
index 0cf01bb..30f3d4c 100644
--- a/gcc/testsuite/gfortran.dg/used_dummy_types_1.f90
+++ b/gcc/testsuite/gfortran.dg/used_dummy_types_1.f90
@@ -34,5 +34,3 @@ end module atest
   call test (res)
   if (res%a.ne.42) call abort
 end  
-
-! { dg-final { cleanup-modules "mtyp atest" } }
diff --git a/gcc/testsuite/gfortran.dg/used_dummy_types_2.f90 b/gcc/testsuite/gfortran.dg/used_dummy_types_2.f90
index a47cabc..f12d286 100644
--- a/gcc/testsuite/gfortran.dg/used_dummy_types_2.f90
+++ b/gcc/testsuite/gfortran.dg/used_dummy_types_2.f90
@@ -30,5 +30,3 @@ contains
     v = x%f2(:)
   end subroutine foo
 end module mod2
-
-! { dg-final { cleanup-modules "mod1 mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/used_dummy_types_3.f90 b/gcc/testsuite/gfortran.dg/used_dummy_types_3.f90
index c7e373a..5ff7608 100644
--- a/gcc/testsuite/gfortran.dg/used_dummy_types_3.f90
+++ b/gcc/testsuite/gfortran.dg/used_dummy_types_3.f90
@@ -33,5 +33,3 @@
     TYPE(data_type) :: x
     CALL TEST(x)         ! { dg-error "Type mismatch in argument" }
   END
-
-! { dg-final { cleanup-modules "t1 t2" } }
diff --git a/gcc/testsuite/gfortran.dg/used_dummy_types_4.f90 b/gcc/testsuite/gfortran.dg/used_dummy_types_4.f90
index fb36fa7..9a627b8 100644
--- a/gcc/testsuite/gfortran.dg/used_dummy_types_4.f90
+++ b/gcc/testsuite/gfortran.dg/used_dummy_types_4.f90
@@ -98,5 +98,3 @@ contains
     y = seq_type3 (99)
   end subroutine foo
 END
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/used_dummy_types_5.f90 b/gcc/testsuite/gfortran.dg/used_dummy_types_5.f90
index 2000c32..10c90c4 100644
--- a/gcc/testsuite/gfortran.dg/used_dummy_types_5.f90
+++ b/gcc/testsuite/gfortran.dg/used_dummy_types_5.f90
@@ -82,5 +82,3 @@ contains
     print *, x, y, z, dt2, st2, ns2, ns1
   end subroutine foo
 END
-
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/used_dummy_types_6.f90 b/gcc/testsuite/gfortran.dg/used_dummy_types_6.f90
index ea39051..5b1c797 100644
--- a/gcc/testsuite/gfortran.dg/used_dummy_types_6.f90
+++ b/gcc/testsuite/gfortran.dg/used_dummy_types_6.f90
@@ -43,5 +43,3 @@ MODULE P_POTENTIAL_ENERGY
 USE ATOMS
 USE CONSTRAINT,         ONLY : ENERGY_CONSTRAINT
 END MODULE P_POTENTIAL_ENERGY
-
-! { dg-final { cleanup-modules "atoms constraint potential_energy p_constraint p_potential_energy" } }
diff --git a/gcc/testsuite/gfortran.dg/used_dummy_types_7.f90 b/gcc/testsuite/gfortran.dg/used_dummy_types_7.f90
index b0acc51..c3dea45 100644
--- a/gcc/testsuite/gfortran.dg/used_dummy_types_7.f90
+++ b/gcc/testsuite/gfortran.dg/used_dummy_types_7.f90
@@ -42,4 +42,3 @@ INTERFACE
   END SUBROUTINE
 END INTERFACE
 END MODULE
-! { dg-final { cleanup-modules "atom types list" } }
diff --git a/gcc/testsuite/gfortran.dg/used_dummy_types_8.f90 b/gcc/testsuite/gfortran.dg/used_dummy_types_8.f90
index 8a966a8..8423384 100644
--- a/gcc/testsuite/gfortran.dg/used_dummy_types_8.f90
+++ b/gcc/testsuite/gfortran.dg/used_dummy_types_8.f90
@@ -32,4 +32,3 @@ END MODULE M1
   D1=T1(3)
   write(6,*) E1(D1)
 END
-! { dg-final { cleanup-modules "m1" } }
diff --git a/gcc/testsuite/gfortran.dg/used_interface_ref.f90 b/gcc/testsuite/gfortran.dg/used_interface_ref.f90
index 10746c7..1b241e9 100644
--- a/gcc/testsuite/gfortran.dg/used_interface_ref.f90
+++ b/gcc/testsuite/gfortran.dg/used_interface_ref.f90
@@ -43,5 +43,3 @@
     REAL :: solveCConvert(1:anzKomponenten)
     solveCConvert = (/(real(i), i = 1, anzKomponenten)/)
   END FUNCTION solveCConvert
-
-! { dg-final { cleanup-modules "module_conc module_thermocalc" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_1.f90 b/gcc/testsuite/gfortran.dg/used_types_1.f90
index 4fbd328..61356ab 100644
--- a/gcc/testsuite/gfortran.dg/used_types_1.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_1.f90
@@ -19,5 +19,3 @@ CONTAINS
     mtpcar%coo='a'             !ICE was here
   END SUBROUTINE str_clan
 END MODULE
-
-! { dg-final { cleanup-modules "testcase tp_trace" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_10.f90 b/gcc/testsuite/gfortran.dg/used_types_10.f90
index c35fb58..4fbdc8e 100644
--- a/gcc/testsuite/gfortran.dg/used_types_10.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_10.f90
@@ -69,4 +69,3 @@ contains
 
 
 end subroutine foo_bar
-! { dg-final { cleanup-modules "derived_type_mod tools" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_11.f90 b/gcc/testsuite/gfortran.dg/used_types_11.f90
index 0cae5f1..b3f4eaa 100644
--- a/gcc/testsuite/gfortran.dg/used_types_11.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_11.f90
@@ -35,4 +35,3 @@ end subroutine bar
   x => foo ()
   print *, associated (x)
 end
-! { dg-final { cleanup-modules "a b" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_12.f90 b/gcc/testsuite/gfortran.dg/used_types_12.f90
index 21d0fe2..cc9870f 100644
--- a/gcc/testsuite/gfortran.dg/used_types_12.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_12.f90
@@ -26,5 +26,3 @@ PROGRAM MAIN
   TYPE(T1) :: BAZ
   BAZ = BAR
 END
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/used_types_13.f90 b/gcc/testsuite/gfortran.dg/used_types_13.f90
index 9208b59..12804fb 100644
--- a/gcc/testsuite/gfortran.dg/used_types_13.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_13.f90
@@ -24,5 +24,3 @@ subroutine plane ()
   call point ( gp)
 end subroutine plane
 end module gfcbug44
-! { dg-final { cleanup-modules "geo gfcbug44" } }
-
diff --git a/gcc/testsuite/gfortran.dg/used_types_14.f90 b/gcc/testsuite/gfortran.dg/used_types_14.f90
index 3316b4a..bc166a8 100644
--- a/gcc/testsuite/gfortran.dg/used_types_14.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_14.f90
@@ -29,4 +29,3 @@ contains
   end subroutine foo_ext
 
 end module foo_mod
-! { dg-final { cleanup-modules "foo_type_mod foo_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_15.f90 b/gcc/testsuite/gfortran.dg/used_types_15.f90
index 7f7dbb8..885ecb1 100644
--- a/gcc/testsuite/gfortran.dg/used_types_15.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_15.f90
@@ -32,4 +32,3 @@ CONTAINS
     atom = dam%atoms%table(1)
   END SUBROUTINE
 END MODULE
-! { dg-final { cleanup-modules "class_dummy_atom_types test_class_intensity_private" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_16.f90 b/gcc/testsuite/gfortran.dg/used_types_16.f90
index b1ad779..f5c3108 100644
--- a/gcc/testsuite/gfortran.dg/used_types_16.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_16.f90
@@ -48,4 +48,3 @@ SUBROUTINE dummy_atom_list_init_copy(this, other)
 

   this%table(1:this%nused) = other%table(1:other%nused)

 END SUBROUTINE

-! { dg-final { cleanup-modules "class_dummy_atom_types class_dummy_atom_list" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_17.f90 b/gcc/testsuite/gfortran.dg/used_types_17.f90
index 964f371..631efaf 100644
--- a/gcc/testsuite/gfortran.dg/used_types_17.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_17.f90
@@ -46,5 +46,3 @@ contains
   end subroutine boxarray_sort
 
 end module boxarray_module
-
-! { dg-final { cleanup-modules "box_module sort_box_module boxarray_module" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_19.f90 b/gcc/testsuite/gfortran.dg/used_types_19.f90
index dbec8dc..406e874 100644
--- a/gcc/testsuite/gfortran.dg/used_types_19.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_19.f90
@@ -23,4 +23,3 @@ program C
   use A
   type(A_type):: A_var
 end program C
-! { dg-final { cleanup-modules "a b" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_2.f90 b/gcc/testsuite/gfortran.dg/used_types_2.f90
index b1870d1..c819f5e 100644
--- a/gcc/testsuite/gfortran.dg/used_types_2.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_2.f90
@@ -30,5 +30,3 @@ LOGICAL FUNCTION foobar (x)
    foobar = .FALSE.
    c = bar (x)
 END FUNCTION foobar
-! { dg-final { cleanup-modules "types foo" } }
-
diff --git a/gcc/testsuite/gfortran.dg/used_types_20.f90 b/gcc/testsuite/gfortran.dg/used_types_20.f90
index c08235c..272c0e8 100644
--- a/gcc/testsuite/gfortran.dg/used_types_20.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_20.f90
@@ -46,4 +46,3 @@ CONTAINS
     TYPE(outer), INTENT(IN) :: a
   END SUBROUTINE test3
 END MODULE test
-! { dg-final { cleanup-modules "types mymod test" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_22.f90 b/gcc/testsuite/gfortran.dg/used_types_22.f90
index 2a5ae45..c1d9326 100644
--- a/gcc/testsuite/gfortran.dg/used_types_22.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_22.f90
@@ -290,5 +290,3 @@ subroutine smooth_mesh
   type(vector) :: new_pos  ! the new vertex position, after smoothing

 

 end subroutine smooth_mesh

-! { dg-final { cleanup-modules "class_vector class_dimensions tools_math" } }
-! { dg-final { cleanup-modules "class_motion class_bc_math class_bc tools_mesh_basics" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_23.f90 b/gcc/testsuite/gfortran.dg/used_types_23.f90
index 7374223..71aefff 100644
--- a/gcc/testsuite/gfortran.dg/used_types_23.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_23.f90
@@ -26,4 +26,3 @@ module smooth_mesh
   type(vector ) :: new_pos  ! { dg-error "used before it is defined" }

 end module smooth_mesh

 

-! { dg-final { cleanup-modules "class_vector tools_math smooth_mesh" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_24.f90 b/gcc/testsuite/gfortran.dg/used_types_24.f90
index 44d2f5e..39eed6f 100644
--- a/gcc/testsuite/gfortran.dg/used_types_24.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_24.f90
@@ -29,5 +29,3 @@ module test_mod
 
   implicit none
 end module test_mod
-
-! { dg-final { cleanup-modules "m1 m2 test_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_25.f90 b/gcc/testsuite/gfortran.dg/used_types_25.f90
index 35ac8c7..4d10813 100644
--- a/gcc/testsuite/gfortran.dg/used_types_25.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_25.f90
@@ -12,6 +12,3 @@ use m
  type t ! { dg-error "Derived type definition of 't' at .1. has already been defined" }
  end type t ! { dg-error "Expecting END PROGRAM statement" }
 end
-
-! { dg-final { cleanup-modules "m" } }
-
diff --git a/gcc/testsuite/gfortran.dg/used_types_26.f90 b/gcc/testsuite/gfortran.dg/used_types_26.f90
index 2c0437f..8051930 100644
--- a/gcc/testsuite/gfortran.dg/used_types_26.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_26.f90
@@ -18,5 +18,3 @@
   use m2
   type(t) :: x ! { dg-error "Type name 't' at .1. is ambiguous" }
   end
-
-! { dg-final { cleanup-modules "m m2" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_3.f90 b/gcc/testsuite/gfortran.dg/used_types_3.f90
index 812db11..8273ee4 100644
--- a/gcc/testsuite/gfortran.dg/used_types_3.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_3.f90
@@ -55,4 +55,3 @@ ofTypB => a%ofTypA
 a%ofTypA(i,j) = ofTypB(k,j)
 end subroutine buggy
 end module modC
-! { dg-final { cleanup-modules "moda modb modc" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_4.f90 b/gcc/testsuite/gfortran.dg/used_types_4.f90
index 58877c6..b8dc488 100644
--- a/gcc/testsuite/gfortran.dg/used_types_4.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_4.f90
@@ -37,4 +37,3 @@ contains
     call InitRECFAST(CP%omegab,CP%h0,CP%tcmb,CP%yhe)

   end subroutine inithermo

 end module ThermoData

-! { dg-final { cleanup-modules "precision modelparams timesteps thermodata" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_5.f90 b/gcc/testsuite/gfortran.dg/used_types_5.f90
index 427ede1..7f729b8 100644
--- a/gcc/testsuite/gfortran.dg/used_types_5.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_5.f90
@@ -56,4 +56,3 @@ end module global
   if (any (x .ne. (/42.0, 42.0, -42.0, -42.0/))) call abort ()
   if (cam%i .ne. 99) call abort ()
 end
-! { dg-final { cleanup-modules "types global" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_6.f90 b/gcc/testsuite/gfortran.dg/used_types_6.f90
index 52fa554..1811213 100644
--- a/gcc/testsuite/gfortran.dg/used_types_6.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_6.f90
@@ -34,4 +34,3 @@ CONTAINS
     RETURN
   END SUBROUTINE bar
 END MODULE seg_mod
-! { dg-final { cleanup-modules "type_mod seg_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_7.f90 b/gcc/testsuite/gfortran.dg/used_types_7.f90
index 9135400..1557da5 100644
--- a/gcc/testsuite/gfortran.dg/used_types_7.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_7.f90
@@ -36,4 +36,3 @@ contains
     clock%CurrTime = clock%CurrTime + clock%CurrTime
   end subroutine ESMF_ClockAdvance
 end module foo
-! { dg-final { cleanup-modules "foo bar" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_8.f90 b/gcc/testsuite/gfortran.dg/used_types_8.f90
index 58d2084..256b835 100644
--- a/gcc/testsuite/gfortran.dg/used_types_8.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_8.f90
@@ -43,4 +43,3 @@ contains
     clock%CurrTime = clock%CurrTime + clock%CurrTime
   end subroutine ESMF_ClockAdvance
 end module foo
-! { dg-final { cleanup-modules "foo bar" } }
diff --git a/gcc/testsuite/gfortran.dg/used_types_9.f90 b/gcc/testsuite/gfortran.dg/used_types_9.f90
index fc09d15..960b0c6 100644
--- a/gcc/testsuite/gfortran.dg/used_types_9.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_9.f90
@@ -33,4 +33,3 @@ contains
     end interface

   end subroutine integrate

 end module foo

-! { dg-final { cleanup-modules "foo bar" } }

diff --git a/gcc/testsuite/gfortran.dg/userdef_operator_1.f90 b/gcc/testsuite/gfortran.dg/userdef_operator_1.f90
index e8af372..bf965e5 100644
--- a/gcc/testsuite/gfortran.dg/userdef_operator_1.f90
+++ b/gcc/testsuite/gfortran.dg/userdef_operator_1.f90
@@ -32,5 +32,3 @@ program opshape
   a = dot_product (t(:,1), t(:,2) .cross. t(:,3))
 
 end program opshape
-
-! { dg-final { cleanup-modules "geometry" } }
diff --git a/gcc/testsuite/gfortran.dg/userdef_operator_2.f90 b/gcc/testsuite/gfortran.dg/userdef_operator_2.f90
index 5b294c3..83392c6 100644
--- a/gcc/testsuite/gfortran.dg/userdef_operator_2.f90
+++ b/gcc/testsuite/gfortran.dg/userdef_operator_2.f90
@@ -15,5 +15,3 @@ contains
     print*, a .myop. b
   end subroutine test_fn
 end module test_mod
-
-! { dg-final { cleanup-modules "test_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/value_1.f90 b/gcc/testsuite/gfortran.dg/value_1.f90
index 526a028..be459b0 100644
--- a/gcc/testsuite/gfortran.dg/value_1.f90
+++ b/gcc/testsuite/gfortran.dg/value_1.f90
@@ -81,4 +81,3 @@ contains
   end subroutine complex_foo
 
 end program test_value
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/value_4.f90 b/gcc/testsuite/gfortran.dg/value_4.f90
index 718f9ae..473c281 100644
--- a/gcc/testsuite/gfortran.dg/value_4.f90
+++ b/gcc/testsuite/gfortran.dg/value_4.f90
@@ -81,4 +81,3 @@ program value_4
   v = c_to_c (u, w)
   if (delta ((4.0 * u), v)) call abort ()
 end program value_4
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/value_6.f03 b/gcc/testsuite/gfortran.dg/value_6.f03
index 0650d32..844960f 100644
--- a/gcc/testsuite/gfortran.dg/value_6.f03
+++ b/gcc/testsuite/gfortran.dg/value_6.f03
@@ -22,4 +22,3 @@ program main
   implicit none
   call test('a')
 end program main
-! { dg-final { cleanup-modules "pr32732" } }
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 2d40180..eb6330d 100644
--- a/gcc/testsuite/gfortran.dg/vect/fast-math-real8-pr40801.f90
+++ b/gcc/testsuite/gfortran.dg/vect/fast-math-real8-pr40801.f90
@@ -35,4 +35,3 @@ ENDIF
 END SUBROUTINE ACCONV
 
 ! { dg-final { cleanup-tree-dump "vect" } }
-! { dg-final { cleanup-modules "yomphy0" } }
diff --git a/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90 b/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90
index a5436b7..26d850d 100644
--- a/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90
+++ b/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90
@@ -92,4 +92,3 @@ end module solv_cap
 
 ! { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" { target vect_intfloat_cvt } } }
 ! { dg-final { cleanup-tree-dump "vect" } } 
-! { dg-final { cleanup-modules "solv_cap" } }
diff --git a/gcc/testsuite/gfortran.dg/vect/pr46213.f90 b/gcc/testsuite/gfortran.dg/vect/pr46213.f90
index 2eb12dd..504d1a3 100644
--- a/gcc/testsuite/gfortran.dg/vect/pr46213.f90
+++ b/gcc/testsuite/gfortran.dg/vect/pr46213.f90
@@ -23,4 +23,3 @@ contains
 end program test
 
 ! { dg-final { cleanup-tree-dump "vect" } }
-! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/vect/vect-8.f90 b/gcc/testsuite/gfortran.dg/vect/vect-8.f90
index a3ce768..c12cde1 100644
--- a/gcc/testsuite/gfortran.dg/vect/vect-8.f90
+++ b/gcc/testsuite/gfortran.dg/vect/vect-8.f90
@@ -705,4 +705,3 @@ END SUBROUTINE kernel
 
 ! { dg-final { scan-tree-dump-times "vectorized 19 loops" 1 "vect" } }
 ! { dg-final { cleanup-tree-dump "vect" } }
-! { dg-final { cleanup-modules "lfk_prec" } }
diff --git a/gcc/testsuite/gfortran.dg/vect/vect-gems.f90 b/gcc/testsuite/gfortran.dg/vect/vect-gems.f90
index 66e878d..019b415 100644
--- a/gcc/testsuite/gfortran.dg/vect/vect-gems.f90
+++ b/gcc/testsuite/gfortran.dg/vect/vect-gems.f90
@@ -55,4 +55,3 @@ 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/vector_subscript_bound_1.f90 b/gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90
index 00e31f9..f432850 100644
--- a/gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90
+++ b/gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90
@@ -17,5 +17,3 @@ CONTAINS
     PRINT *, pw%cr(UBOUND(pw%cr))
   END SUBROUTINE pw_write
 END MODULE
-
-! { dg-final { cleanup-modules "pw_types" } }
diff --git a/gcc/testsuite/gfortran.dg/volatile10.f90 b/gcc/testsuite/gfortran.dg/volatile10.f90
index 2065b16..47356d9 100644
--- a/gcc/testsuite/gfortran.dg/volatile10.f90
+++ b/gcc/testsuite/gfortran.dg/volatile10.f90
@@ -146,4 +146,3 @@ end program main
 ! TODO: dg-final { scan-tree-dump-not  "main_test2_3" "optimized" } 
 ! { dg-final { scan-tree-dump      "main_test2_4" "optimized" } }
 ! { dg-final { cleanup-tree-dump  "optimized" } }
-! { dg-final { cleanup-modules "impl one two" } }
diff --git a/gcc/testsuite/gfortran.dg/volatile5.f90 b/gcc/testsuite/gfortran.dg/volatile5.f90
index 42607a1..57a4c89 100644
--- a/gcc/testsuite/gfortran.dg/volatile5.f90
+++ b/gcc/testsuite/gfortran.dg/volatile5.f90
@@ -40,4 +40,3 @@ end program main
 ! { dg-final { scan-tree-dump-not "cPresent" "optimized" } }
 ! { dg-final { scan-tree-dump-not "cStillPresent" "optimized" } }
 ! { dg-final { cleanup-tree-dump "optimized" } }
-! { dg-final { cleanup-modules "volmod" } }
diff --git a/gcc/testsuite/gfortran.dg/volatile9.f90 b/gcc/testsuite/gfortran.dg/volatile9.f90
index e7cba6b..41be085 100644
--- a/gcc/testsuite/gfortran.dg/volatile9.f90
+++ b/gcc/testsuite/gfortran.dg/volatile9.f90
@@ -40,5 +40,3 @@
     implicit none
     volatile :: v13
   end subroutine s14 
-
-! { dg-final { cleanup-modules "mod13 mod13a mod13b" } }
diff --git a/gcc/testsuite/gfortran.dg/warn_function_without_result_2.f90 b/gcc/testsuite/gfortran.dg/warn_function_without_result_2.f90
index 25fd0b7..64f6eb6 100644
--- a/gcc/testsuite/gfortran.dg/warn_function_without_result_2.f90
+++ b/gcc/testsuite/gfortran.dg/warn_function_without_result_2.f90
@@ -16,4 +16,3 @@ contains
     k = 8
   end function j
 end module m
-! { dg-final { cleanup-modules "mod" } }
diff --git a/gcc/testsuite/gfortran.dg/warn_implicit_procedure_1.f90 b/gcc/testsuite/gfortran.dg/warn_implicit_procedure_1.f90
index 8f21b60..3f907c7 100644
--- a/gcc/testsuite/gfortran.dg/warn_implicit_procedure_1.f90
+++ b/gcc/testsuite/gfortran.dg/warn_implicit_procedure_1.f90
@@ -39,5 +39,3 @@ PROGRAM main
   ! Can't check undefined function, because it needs to be declared a type
   ! in any case (and the implicit type is enough to not trigger this warning).
 END PROGRAM
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/warn_intent_out_not_set.f90 b/gcc/testsuite/gfortran.dg/warn_intent_out_not_set.f90
index 76c62ea..22bef8c 100644
--- a/gcc/testsuite/gfortran.dg/warn_intent_out_not_set.f90
+++ b/gcc/testsuite/gfortran.dg/warn_intent_out_not_set.f90
@@ -26,5 +26,3 @@ CONTAINS
     type(t2), intent(out) :: x
   END SUBROUTINE
 END MODULE
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/warn_unused_var_2.f90 b/gcc/testsuite/gfortran.dg/warn_unused_var_2.f90
index 7eccc6e..5dcf499 100644
--- a/gcc/testsuite/gfortran.dg/warn_unused_var_2.f90
+++ b/gcc/testsuite/gfortran.dg/warn_unused_var_2.f90
@@ -15,5 +15,3 @@ program main
   j = 1
   print*,"j=",j
 end program main
-
-! { dg-final { cleanup-modules "util_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/warn_unused_var_3.f90 b/gcc/testsuite/gfortran.dg/warn_unused_var_3.f90
index 86a8883..9bc7f0b 100644
--- a/gcc/testsuite/gfortran.dg/warn_unused_var_3.f90
+++ b/gcc/testsuite/gfortran.dg/warn_unused_var_3.f90
@@ -11,5 +11,3 @@ program main
     use util_mod, only: i ! { dg-warning "Unused parameter .i. which has been explicitly imported" }
     integer, parameter :: j = 4 ! { dg-warning "Unused parameter .j. declared at" }
 end program main
-
-! { dg-final { cleanup-modules "util_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/where_operator_assign_1.f90 b/gcc/testsuite/gfortran.dg/where_operator_assign_1.f90
index c2b4abf..bc4790a 100644
--- a/gcc/testsuite/gfortran.dg/where_operator_assign_1.f90
+++ b/gcc/testsuite/gfortran.dg/where_operator_assign_1.f90
@@ -104,5 +104,3 @@ CONTAINS
    END FUNCTION iaef
 
 END PROGRAM test_prog
-
-! { dg-final { cleanup-modules "kind_mod pointer_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/where_operator_assign_2.f90 b/gcc/testsuite/gfortran.dg/where_operator_assign_2.f90
index 420103f..52fbd27 100644
--- a/gcc/testsuite/gfortran.dg/where_operator_assign_2.f90
+++ b/gcc/testsuite/gfortran.dg/where_operator_assign_2.f90
@@ -102,5 +102,3 @@ contains
     endwhere
   end subroutine test_where_4
 end program test 
-! { dg-final { cleanup-modules "global" } }
-
diff --git a/gcc/testsuite/gfortran.dg/where_operator_assign_3.f90 b/gcc/testsuite/gfortran.dg/where_operator_assign_3.f90
index eddbdfc..d1b5e37 100644
--- a/gcc/testsuite/gfortran.dg/where_operator_assign_3.f90
+++ b/gcc/testsuite/gfortran.dg/where_operator_assign_3.f90
@@ -77,5 +77,3 @@ contains
     endwhere
   end subroutine test_where_char2
 end program test 
-! { dg-final { cleanup-modules "global" } }
-
diff --git a/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90 b/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
index e1c479e..74ce1ba 100644
--- a/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
+++ b/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
@@ -28,4 +28,3 @@ 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 d50e481..d01b210 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_11.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_11.f90
@@ -35,5 +35,3 @@ FUNCTION foo_count()
   USE module_foo, ONLY: foo
   INTEGER :: foo_count
 END FUNCTION
-
-! { dg-final { cleanup-modules "module_foo" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_14.f90 b/gcc/testsuite/gfortran.dg/whole_file_14.f90
index 6505896..030e8cd 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_14.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_14.f90
@@ -25,4 +25,3 @@ contains
     j%this => base                      !to one another
   end subroutine check                  !take j out of scope
 end program test_equi
-! { dg-final { cleanup-modules "global" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_15.f90 b/gcc/testsuite/gfortran.dg/whole_file_15.f90
index 08d6120..9988757 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_15.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_15.f90
@@ -29,4 +29,3 @@ CONTAINS
   SUBROUTINE ep_force_release()
   END SUBROUTINE ep_force_release
 END MODULE ep_types
-! { dg-final { cleanup-modules "replica_types ep_types" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_19.f90 b/gcc/testsuite/gfortran.dg/whole_file_19.f90
index 56f3cb6..cd69f92 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_19.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_19.f90
@@ -22,4 +22,3 @@ END MODULE
 USE M
 CALL b()
 END
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_20.f03 b/gcc/testsuite/gfortran.dg/whole_file_20.f03
index 61e2a4d..7668517 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_20.f03
+++ b/gcc/testsuite/gfortran.dg/whole_file_20.f03
@@ -29,5 +29,3 @@ SUBROUTINE polymorph(b)
   USE classtype
   CLASS(t) :: b
 END SUBROUTINE
-
-! { dg-final { cleanup-modules "classtype" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_21.f90 b/gcc/testsuite/gfortran.dg/whole_file_21.f90
index ec9256a..b1c1dac 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_21.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_21.f90
@@ -23,5 +23,3 @@ CONTAINS
   END SUBROUTINE four
 END MODULE mod
 END
-
-! { dg-final { cleanup-modules "mod" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_22.f90 b/gcc/testsuite/gfortran.dg/whole_file_22.f90
index d833491..69e8107 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_22.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_22.f90
@@ -35,5 +35,3 @@ subroutine test()
 USE M
 CALL b()
 END
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_23.f90 b/gcc/testsuite/gfortran.dg/whole_file_23.f90
index c8f66e6..3fd1051 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_23.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_23.f90
@@ -45,5 +45,3 @@ program xjoin
   character (len=5) :: words(2) = (/"two  ","three"/) 
   write (*,"(1x,'words = ',a)") "'"//join (words, "&")//"'"
 end program xjoin
-
-! { dg-final { cleanup-modules "util_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_24.f90 b/gcc/testsuite/gfortran.dg/whole_file_24.f90
index 4ac11cc..3ff6ca8 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_24.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_24.f90
@@ -31,5 +31,3 @@ contains
   end subroutine syntax_init_from_ifile
 end module syntax_rules
 end
-
-! { dg-final { cleanup-modules "iso_red ifiles syntax_rules" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_25.f90 b/gcc/testsuite/gfortran.dg/whole_file_25.f90
index d2cbd36..8eaa5a5 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_25.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_25.f90
@@ -17,5 +17,3 @@ end module ints
       USE INTS
       CALL NOZZLE ()
       END program CORTESA
-
-! { dg-final { cleanup-modules "ints" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_26.f90 b/gcc/testsuite/gfortran.dg/whole_file_26.f90
index 8ce4510..eec0945 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_26.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_26.f90
@@ -22,5 +22,3 @@ subroutine VALUE()
 end subroutine VALUE
 
 end
-
-! { dg-final { cleanup-modules "ints" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_27.f90 b/gcc/testsuite/gfortran.dg/whole_file_27.f90
index 4129547..48362c6 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_27.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_27.f90
@@ -206,5 +206,3 @@ program d_coo_err
 
   stop
 end program d_coo_err
-
-! { dg-final { cleanup-modules "base_mat_mod const_mod d_base_mat_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_33.f90 b/gcc/testsuite/gfortran.dg/whole_file_33.f90
index 31faeaa..4163b77 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_33.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_33.f90
@@ -46,5 +46,3 @@ MODULE DENSEOP
    x=x_o
   END SUBROUTINE GEINV8
 END MODULE DENSEOP
-
-! { dg-final { cleanup-modules "la_precision lapack90 denseop" } }
diff --git a/gcc/testsuite/gfortran.dg/whole_file_35.f90 b/gcc/testsuite/gfortran.dg/whole_file_35.f90
index 46a8865..e52a2c4 100644
--- a/gcc/testsuite/gfortran.dg/whole_file_35.f90
+++ b/gcc/testsuite/gfortran.dg/whole_file_35.f90
@@ -24,5 +24,3 @@
         use m
         print *,ichar('~') ! must print "1"
       end program p
-
-! { dg-final { cleanup-modules "m" } }
diff --git a/gcc/testsuite/gfortran.dg/widechar_5.f90 b/gcc/testsuite/gfortran.dg/widechar_5.f90
index ed2f32f..ece1e4d 100644
--- a/gcc/testsuite/gfortran.dg/widechar_5.f90
+++ b/gcc/testsuite/gfortran.dg/widechar_5.f90
@@ -55,5 +55,3 @@ program test_modules
   if (any (len_trim (outer4) /= [len(outer4), 3])) call abort
 
 end program test_modules
-
-! { dg-final { cleanup-modules "kinds inner middle outer" } }
diff --git a/gcc/testsuite/gfortran.dg/widechar_6.f90 b/gcc/testsuite/gfortran.dg/widechar_6.f90
index 9151adb..799db60 100644
--- a/gcc/testsuite/gfortran.dg/widechar_6.f90
+++ b/gcc/testsuite/gfortran.dg/widechar_6.f90
@@ -60,5 +60,3 @@ program test
   if (len (cut(4_"12345")) /= 2 .or. cut(4_"45") /= 4_"") call abort
 
 end program test
-
-! { dg-final { cleanup-modules "mod" } }