From: Tobias Burnus <burnus@net-b.de>
Date: Fri, 17 Aug 2007 11:01:56 +0000 (+0200)
Subject: kind_tests_2.f03: Add cleanup-modules.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d69b1e8faf4c4c729643b5755a865593457b28f8;p=gcc.git

kind_tests_2.f03: Add cleanup-modules.

2007-08-17  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/kind_tests_2.f03: Add cleanup-modules.
        * gfortran.dg/kind_tests_3.f03: Ditto.
        * gfortran.dg/global_vars_f90_init.f90: Ditto.
        * gfortran.dg/interface_13.f90: Ditto.
        * gfortran.dg/pr32738.f90: Ditto.
        * gfortran.dg/module_private_1.f90: Ditto.
        * gfortran.dg/test_only_clause.f90: Ditto.
        * gfortran.dg/bind_c_vars.f90: Ditto.
        * gfortran.dg/bind_c_dts.f90: Ditto.
        * gfortran.dg/use_9.f90: Ditto.
        * gfortran.dg/generic_8.f90: Ditto.
        * gfortran.dg/bind_c_implicit_vars.f03: Ditto.
        * gfortran.dg/private_type_6.f90: Ditto.
        * gfortran.dg/c_assoc.f90: Ditto.
        * gfortran.dg/private_type_7.f90: Ditto.
        * gfortran.dg/global_vars_c_init.f90: Ditto.
        * gfortran.dg/bind_c_dts_2.f03: Ditto.
        * gfortran.dg/c_f_pointer_tests.f90: Ditto.
        * gfortran.dg/c_size_t_test.f03: Ditto.
        * gfortran.dg/used_types_12.f90: Ditto.
        * gfortran.dg/pr25923.f90: Ditto.
        * gfortran.dg/test_com_block.f90: Ditto.
        * gfortran.dg/iso_c_binding_rename_1.f03: Ditto.
        * gfortran.dg/equiv_constraint_7.f90: Ditto.
        * gfortran.dg/com_block_driver.f90: Ditto.
        * gfortran.dg/iso_c_binding_rename_2.f03: Ditto.
        * gfortran.dg/use_iso_c_binding.f90: Ditto.
        * gfortran.dg/c_loc_test.f90: Ditto.
        * gfortran.dg/c_ptr_tests.f03: Ditto.
        * gfortran.dg/module_interface_1.f90: Ditto.

From-SVN: r127582
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ee7d70a794e..a320c2e929c 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,36 @@
+2007-08-17  Tobias Burnus  <burnus@net-b.de>
+
+	* gfortran.dg/kind_tests_2.f03: Add cleanup-modules.
+	* gfortran.dg/kind_tests_3.f03: Ditto.
+	* gfortran.dg/global_vars_f90_init.f90: Ditto.
+	* gfortran.dg/interface_13.f90: Ditto.
+	* gfortran.dg/pr32738.f90: Ditto.
+	* gfortran.dg/module_private_1.f90: Ditto.
+	* gfortran.dg/test_only_clause.f90: Ditto.
+	* gfortran.dg/bind_c_vars.f90: Ditto.
+	* gfortran.dg/bind_c_dts.f90: Ditto.
+	* gfortran.dg/use_9.f90: Ditto.
+	* gfortran.dg/generic_8.f90: Ditto.
+	* gfortran.dg/bind_c_implicit_vars.f03: Ditto.
+	* gfortran.dg/private_type_6.f90: Ditto.
+	* gfortran.dg/c_assoc.f90: Ditto.
+	* gfortran.dg/private_type_7.f90: Ditto.
+	* gfortran.dg/global_vars_c_init.f90: Ditto.
+	* gfortran.dg/bind_c_dts_2.f03: Ditto.
+	* gfortran.dg/c_f_pointer_tests.f90: Ditto.
+	* gfortran.dg/c_size_t_test.f03: Ditto.
+	* gfortran.dg/used_types_12.f90: Ditto.
+	* gfortran.dg/pr25923.f90: Ditto.
+	* gfortran.dg/test_com_block.f90: Ditto.
+	* gfortran.dg/iso_c_binding_rename_1.f03: Ditto.
+	* gfortran.dg/equiv_constraint_7.f90: Ditto.
+	* gfortran.dg/com_block_driver.f90: Ditto.
+	* gfortran.dg/iso_c_binding_rename_2.f03: Ditto.
+	* gfortran.dg/use_iso_c_binding.f90: Ditto.
+	* gfortran.dg/c_loc_test.f90: Ditto.
+	* gfortran.dg/c_ptr_tests.f03: Ditto.
+	* gfortran.dg/module_interface_1.f90: Ditto.
+
 2007-08-17  Paolo Carlini  <pcarlini@suse.de>
 
 	PR c++/32870
diff --git a/gcc/testsuite/gfortran.dg/bind_c_dts.f90 b/gcc/testsuite/gfortran.dg/bind_c_dts.f90
index f78630ba560..f0a31e5408e 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_dts.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_dts.f90
@@ -39,3 +39,5 @@ 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 4e5e61b4ee8..4b423e53de4 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03
@@ -59,3 +59,5 @@ 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_implicit_vars.f03 b/gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03
index ff284ce3346..d6b4b6d6176 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03
+++ b/gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03
@@ -8,3 +8,5 @@ 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_vars.f90 b/gcc/testsuite/gfortran.dg/bind_c_vars.f90
index 4f4a0cfd795..e57edf09d38 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_vars.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_vars.f90
@@ -36,3 +36,5 @@ contains
   end subroutine changeF90Globals
 
 end module bind_c_vars
+
+! { dg-final { cleanup-modules "bind_c_vars" } }
diff --git a/gcc/testsuite/gfortran.dg/c_assoc.f90 b/gcc/testsuite/gfortran.dg/c_assoc.f90
index 9b2af24f984..7b34663a340 100644
--- a/gcc/testsuite/gfortran.dg/c_assoc.f90
+++ b/gcc/testsuite/gfortran.dg/c_assoc.f90
@@ -66,3 +66,5 @@ contains
   end subroutine verify_assoc
   
 end module c_assoc
+
+! { dg-final { cleanup-modules "c_assoc" } }
diff --git a/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90 b/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90
index 1e4dbc0201f..d35f9d1c151 100644
--- a/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90
+++ b/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90
@@ -66,3 +66,5 @@ 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_loc_test.f90 b/gcc/testsuite/gfortran.dg/c_loc_test.f90
index 178a5164cef..673e6f7282e 100644
--- a/gcc/testsuite/gfortran.dg/c_loc_test.f90
+++ b/gcc/testsuite/gfortran.dg/c_loc_test.f90
@@ -21,4 +21,4 @@ contains
     call test_address(my_c_ptr, 100)
   end subroutine test0
 end module c_loc_test
-! { dg-final { cleanup-modules "c_loc_test.mod" } }
+! { dg-final { cleanup-modules "c_loc_test" } }
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests.f03 b/gcc/testsuite/gfortran.dg/c_ptr_tests.f03
index 0b7c98be714..f0c9a3329d7 100644
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests.f03
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests.f03
@@ -42,3 +42,5 @@ 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_size_t_test.f03 b/gcc/testsuite/gfortran.dg/c_size_t_test.f03
index 91d7aa57b05..68064d78b07 100644
--- a/gcc/testsuite/gfortran.dg/c_size_t_test.f03
+++ b/gcc/testsuite/gfortran.dg/c_size_t_test.f03
@@ -14,3 +14,5 @@ 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/com_block_driver.f90 b/gcc/testsuite/gfortran.dg/com_block_driver.f90
index 0445635c881..691a40fe59d 100644
--- a/gcc/testsuite/gfortran.dg/com_block_driver.f90
+++ b/gcc/testsuite/gfortran.dg/com_block_driver.f90
@@ -32,3 +32,5 @@ program comBlockDriver
   
   call testTypes()
 end program comBlockDriver
+
+! { dg-final { cleanup-modules "mycommodule comblocktests" } }
diff --git a/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90 b/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90
index 872e05b90fc..080cdef5483 100644
--- a/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90
+++ b/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90
@@ -9,3 +9,4 @@
   EQUIVALENCE(I,J)
  END MODULE DATA
  END
+! { dg-final { cleanup-modules "data" } }
diff --git a/gcc/testsuite/gfortran.dg/generic_8.f90 b/gcc/testsuite/gfortran.dg/generic_8.f90
index bf2ff78101f..a129efe4ca4 100644
--- a/gcc/testsuite/gfortran.dg/generic_8.f90
+++ b/gcc/testsuite/gfortran.dg/generic_8.f90
@@ -28,4 +28,4 @@ CONTAINS
     CALL A(MAXVAL(X),Y)
   END SUBROUTINE T
 END MODULE M
-! { dg-final { cleanup-modules "M" } }
+! { 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 abcdccd3fb2..15f28f5bd2d 100644
--- a/gcc/testsuite/gfortran.dg/global_vars_c_init.f90
+++ b/gcc/testsuite/gfortran.dg/global_vars_c_init.f90
@@ -15,4 +15,4 @@ contains
   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 2ff3c52fb17..aa1a60ba406 100644
--- a/gcc/testsuite/gfortran.dg/global_vars_f90_init.f90
+++ b/gcc/testsuite/gfortran.dg/global_vars_f90_init.f90
@@ -15,4 +15,4 @@ contains
   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/interface_13.f90 b/gcc/testsuite/gfortran.dg/interface_13.f90
index 7394de19329..42c794a3e51 100644
--- a/gcc/testsuite/gfortran.dg/interface_13.f90
+++ b/gcc/testsuite/gfortran.dg/interface_13.f90
@@ -28,4 +28,6 @@
           data_i4(1)=0
           data_r8(1)=0
       end subroutine my_sio_file_read_common
-    end module files_module
\ No newline at end of file
+    end module files_module
+
+! { dg-final { cleanup-modules "files_module" } }
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 215e487ada4..799ba35e9bc 100644
--- a/gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03
+++ b/gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03
@@ -81,3 +81,4 @@ contains
   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 75797e78f73..e7c18db2f15 100644
--- a/gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03
+++ b/gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03
@@ -38,3 +38,5 @@ contains
   end subroutine sub4
 
 end module mod2
+
+! { dg-final { cleanup-modules "mod0 mod1 mod2" } }
diff --git a/gcc/testsuite/gfortran.dg/kind_tests_2.f03 b/gcc/testsuite/gfortran.dg/kind_tests_2.f03
index d740657a262..2a0d7c985d8 100644
--- a/gcc/testsuite/gfortran.dg/kind_tests_2.f03
+++ b/gcc/testsuite/gfortran.dg/kind_tests_2.f03
@@ -5,3 +5,5 @@ 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 83cb91e95d6..af041b0f9e6 100644
--- a/gcc/testsuite/gfortran.dg/kind_tests_3.f03
+++ b/gcc/testsuite/gfortran.dg/kind_tests_3.f03
@@ -8,3 +8,5 @@ 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/module_interface_1.f90 b/gcc/testsuite/gfortran.dg/module_interface_1.f90
index 15139c04f1a..54ea14bcae2 100644
--- a/gcc/testsuite/gfortran.dg/module_interface_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_interface_1.f90
@@ -35,4 +35,4 @@
     end subroutine Selection_Sort
   end program module_interface
 
-! { dg-final { cleanup-modules "Max_Loc_mod" } }
+! { dg-final { cleanup-modules "max_loc_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/module_private_1.f90 b/gcc/testsuite/gfortran.dg/module_private_1.f90
index 66bc56405b0..7d854a1a951 100644
--- a/gcc/testsuite/gfortran.dg/module_private_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_private_1.f90
@@ -18,3 +18,5 @@ program main
   j = 1
   print *, i, j
 end program main
+
+! { dg-final { cleanup-modules "bar foo" } }
diff --git a/gcc/testsuite/gfortran.dg/pr25923.f90 b/gcc/testsuite/gfortran.dg/pr25923.f90
index 5a2ee29b4ac..f075944b92b 100644
--- a/gcc/testsuite/gfortran.dg/pr25923.f90
+++ b/gcc/testsuite/gfortran.dg/pr25923.f90
@@ -22,3 +22,5 @@ contains
   end function baz
 
 end module foo
+
+! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/pr32738.f90 b/gcc/testsuite/gfortran.dg/pr32738.f90
index 3c413f10cb1..bee6f184cc4 100644
--- a/gcc/testsuite/gfortran.dg/pr32738.f90
+++ b/gcc/testsuite/gfortran.dg/pr32738.f90
@@ -42,3 +42,5 @@ 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/private_type_6.f90 b/gcc/testsuite/gfortran.dg/private_type_6.f90
index 0d7ec534be0..c44661f2362 100644
--- a/gcc/testsuite/gfortran.dg/private_type_6.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_6.f90
@@ -22,4 +22,4 @@ program foo_test
   foo2 = bartype(1,2) ! { dg-error "has PRIVATE components" }
   foo2%dummy2 = 5 ! { dg-error "is a PRIVATE component" }
 end program foo_test
-! { dg-final { cleanup-tree-dump "foomod" } }
+! { 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 c44917259c2..b9ad8fab7ed 100644
--- a/gcc/testsuite/gfortran.dg/private_type_7.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_7.f90
@@ -32,3 +32,4 @@ 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/test_com_block.f90 b/gcc/testsuite/gfortran.dg/test_com_block.f90
index df3f643e72d..37175d26530 100644
--- a/gcc/testsuite/gfortran.dg/test_com_block.f90
+++ b/gcc/testsuite/gfortran.dg/test_com_block.f90
@@ -30,3 +30,5 @@ program testComBlock
      call abort()
   endif
 end program testComBlock
+
+! { dg-final { cleanup-modules "nonf03comblock" } }
diff --git a/gcc/testsuite/gfortran.dg/test_only_clause.f90 b/gcc/testsuite/gfortran.dg/test_only_clause.f90
index 7c63e2be167..a02a75922bf 100644
--- a/gcc/testsuite/gfortran.dg/test_only_clause.f90
+++ b/gcc/testsuite/gfortran.dg/test_only_clause.f90
@@ -18,3 +18,5 @@ module testOnlyClause
       endif
     end subroutine testOnly
 end module testOnlyClause
+
+! { dg-final { cleanup-modules "testonlyclause" } }
diff --git a/gcc/testsuite/gfortran.dg/use_9.f90 b/gcc/testsuite/gfortran.dg/use_9.f90
index 588f29dec97..419ef47f927 100644
--- a/gcc/testsuite/gfortran.dg/use_9.f90
+++ b/gcc/testsuite/gfortran.dg/use_9.f90
@@ -13,3 +13,4 @@ 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_iso_c_binding.f90 b/gcc/testsuite/gfortran.dg/use_iso_c_binding.f90
index 6e6a023bcfb..b35c024c08c 100644
--- a/gcc/testsuite/gfortran.dg/use_iso_c_binding.f90
+++ b/gcc/testsuite/gfortran.dg/use_iso_c_binding.f90
@@ -47,3 +47,4 @@ module use_stmt_7
   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/used_types_12.f90 b/gcc/testsuite/gfortran.dg/used_types_12.f90
index adfa1f7c8e3..21d0fe2177a 100644
--- a/gcc/testsuite/gfortran.dg/used_types_12.f90
+++ b/gcc/testsuite/gfortran.dg/used_types_12.f90
@@ -26,5 +26,5 @@ PROGRAM MAIN
   TYPE(T1) :: BAZ
   BAZ = BAR
 END
-! { dg-final { cleanup-modules "M" } }
+! { dg-final { cleanup-modules "m" } }