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

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.

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" } }

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" } }

gcc/testsuite/gfortran.dg/abstract_type_3.f03

@@ -49,4 +49,3 @@ CONTAINS
   END SUBROUTINE impl
 
 END MODULE m
-! { dg-final { cleanup-modules "m" } }

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" } }

gcc/testsuite/gfortran.dg/abstract_type_5.f03

@@ -43,4 +43,3 @@ CONTAINS
   END SUBROUTINE test
 
 END MODULE m
-! { dg-final { cleanup-modules "m" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }
-

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }
-

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }
-

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" } }

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 " } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

gcc/testsuite/gfortran.dg/altreturn_7.f90

@@ -30,6 +30,3 @@ END MODULE
   CALL ABORT()
 2 CONTINUE
 END
-
-! { dg-final { cleanup-modules "tt" } }
-

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" } }

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" } }
-

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }
-

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" } }

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" } }

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" } }

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" } }

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" } }

gcc/testsuite/gfortran.dg/assumed_charlen_function_1.f90

@@ -77,4 +77,3 @@ end function not_OK
 
 END
 
-! { dg-final { cleanup-modules "m1" } }

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" } }

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" } }

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" } }

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" } }

gcc/testsuite/gfortran.dg/assumed_size_dt_dummy.f90

@@ -14,5 +14,3 @@ CONTAINS
 END MODULE TEST
 
 end
-
-! { dg-final { cleanup-modules "test" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }
-

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }

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" } }