func_derived_4.f90: Fix module cleanup.

* gfortran.dg/func_derived_4.f90: Fix module cleanup.
* gfortran.dg/gomp/appendix-a/a.22.4.f90: Clean up modules.
* gfortran.dg/gomp/appendix-a/a.26.2.f90: Likewise.
* gfortran.dg/gomp/appendix-a/a.32.1.f90: Likewise.
* gfortran.dg/overload_1.f90: Likewise.
* gfortran.dg/impure_assignment_1.f90: Likewise.
* gfortran.dg/error_recovery_3.f90: Likewise.
* gfortran.dg/alloc_comp_basics_1.f90: Likewise.
* gfortran.dg/sequence_types_1.f90: Likewise.
* gfortran.dg/internal_references_1.f90: Likewise.
* gfortran.dg/present_1.f90: Likewise.
* gfortran.dg/volatile10.f90: Likewise.
* gfortran.dg/module_equivalence_2.f90: Likewise.
* gfortran.dg/use_4.f90: Likewise.
* gfortran.dg/elemental_result_1.f90: Likewise.
* gfortran.dg/generic_actual_arg.f90: Likewise.
* gfortran.dg/private_type_5.f90: Likewise.
* gfortran.dg/protected_4.f90: Likewise.
* gfortran.dg/interface_3.f90: Likewise.

From-SVN: r123225

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ca0767cadd0462e7f270ea03d6efffe2c244ba33..d9fa3447051ec6bc40c4c14b9ebe469639da77c3 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,25 @@
+2007-03-26  Brooks Moses  <brooks.moses@codesourcery.com>
+
+       * gfortran.dg/func_derived_4.f90: Fix module cleanup.
+       * gfortran.dg/gomp/appendix-a/a.22.4.f90: Clean up modules.
+       * gfortran.dg/gomp/appendix-a/a.26.2.f90: Likewise.
+       * gfortran.dg/gomp/appendix-a/a.32.1.f90: Likewise.
+       * gfortran.dg/overload_1.f90: Likewise.
+       * gfortran.dg/impure_assignment_1.f90: Likewise.
+       * gfortran.dg/error_recovery_3.f90: Likewise.
+       * gfortran.dg/alloc_comp_basics_1.f90: Likewise.
+       * gfortran.dg/sequence_types_1.f90: Likewise.
+       * gfortran.dg/internal_references_1.f90: Likewise.
+       * gfortran.dg/present_1.f90: Likewise.
+       * gfortran.dg/volatile10.f90: Likewise.
+       * gfortran.dg/module_equivalence_2.f90: Likewise.
+       * gfortran.dg/use_4.f90: Likewise.
+       * gfortran.dg/elemental_result_1.f90: Likewise.
+       * gfortran.dg/generic_actual_arg.f90: Likewise.
+       * gfortran.dg/private_type_5.f90: Likewise.
+       * gfortran.dg/protected_4.f90: Likewise.
+       * gfortran.dg/interface_3.f90: Likewise.
+
 2007-03-26  Uros Bizjak  <ubizjak@gmail.com>
 
        * lib/gcc-dg.exp (gcc-dg-debug-runtest): Remove build file trivial.S.

diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90
index 649c4a72252e34ff5e4bb1a8023404a395bb6556..a56282bd1c5351767b4f9d78ccf5f66bceadf59b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90
@@ -141,3 +141,4 @@ contains
 end program alloc
 ! { dg-final { scan-tree-dump-times "deallocate" 33 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
+! { dg-final { cleanup-modules "alloc_m" } }

diff --git a/gcc/testsuite/gfortran.dg/elemental_result_1.f90 b/gcc/testsuite/gfortran.dg/elemental_result_1.f90
index c94e08e073f44a7c539d123ef93d9582a169a5ed..2a6dee00c294dc61ac2d57902c85e71aaefb584e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/elemental_result_1.f90
+++ b/gcc/testsuite/gfortran.dg/elemental_result_1.f90
@@ -18,4 +18,4 @@ 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/error_recovery_3.f90 b/gcc/testsuite/gfortran.dg/error_recovery_3.f90
index d0ec20500d38e025fbaaed4aa82ea01b66b9b485..b1da9cbbab14ddd1f10d2ccc5f750a5f4ac2774b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/error_recovery_3.f90
+++ b/gcc/testsuite/gfortran.dg/error_recovery_3.f90
@@ -6,4 +6,6 @@ MODULE M1
  INTEGER :: I
 END MODULE M1
 
-USE M1,                    ONLY: I,&! { dg-error "Missing" }
\ No newline at end of file
+USE M1,                    ONLY: I,&! { dg-error "Missing" }
+! { dg-final { cleanup-modules "M1" } }
+

diff --git a/gcc/testsuite/gfortran.dg/func_derived_4.f90 b/gcc/testsuite/gfortran.dg/func_derived_4.f90
index 86be8d4ead2d81d985a8f08908a7cb79d0869385..532d821deefbb3f089cf8b899df3b9ae69dc40ea 100644 (file)
--- a/gcc/testsuite/gfortran.dg/func_derived_4.f90
+++ b/gcc/testsuite/gfortran.dg/func_derived_4.f90
@@ -102,4 +102,4 @@ program test_pnt
   mshp => msh_(quality)
 end program test_pnt
 
-! { dg-final { cleanup-modules "class_mesh class_scalar_field class_mesh" } }
+! { dg-final { cleanup-modules "class_mesh class_field class_scalar_field" } }

diff --git a/gcc/testsuite/gfortran.dg/generic_actual_arg.f90 b/gcc/testsuite/gfortran.dg/generic_actual_arg.f90
index 93a6588592fa8770edef60806f1f8982b83fffe0..9087a5d456bfb8d9fab333ea0cea5bf93a4f3ff9 100644 (file)
--- a/gcc/testsuite/gfortran.dg/generic_actual_arg.f90
+++ b/gcc/testsuite/gfortran.dg/generic_actual_arg.f90
@@ -22,4 +22,5 @@ CALL F(CALCULATION) ! { dg-error "GENERIC non-INTRINSIC procedure" }
 END
 
 SUBROUTINE F()
-END SUBROUTINE
\ No newline at end of file
+END SUBROUTINE
+! { dg-final { cleanup-modules "TEST" } }

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 f769fc18f3e79aaf8641412ca18a533769beed33..2a637580ba7ade20bf3a37b220845d7f548ac510 100644 (file)
--- 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,3 +9,4 @@
 !$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 97c14d945d1ddeb8fea116aa239ec712bf3044d6..3d43424b605c0d567ac49ceef2674314449198de 100644 (file)
--- 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,3 +20,4 @@
 !$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 8e0b5e093c57f45dc728d1be9a6ac0615d38d9ca..498a6d324a6bf6cc10c5b5eb876fcbfbb551fa01 100644 (file)
--- 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,3 +22,4 @@
         ALLOCATE(WORK(SIZE))
         WORK = TOL
       END SUBROUTINE BUILD
+! { dg-final { cleanup-modules "M" } }

diff --git a/gcc/testsuite/gfortran.dg/impure_assignment_1.f90 b/gcc/testsuite/gfortran.dg/impure_assignment_1.f90
index 772ba7567e829b7947a355d3a13c2736620216fb..f7362afd0fa00f41c76ddd5cae1be4ad467393e0 100644 (file)
--- a/gcc/testsuite/gfortran.dg/impure_assignment_1.f90
+++ b/gcc/testsuite/gfortran.dg/impure_assignment_1.f90
@@ -23,4 +23,6 @@ PURE SUBROUTINE S2(I,J)
      TYPE(T1), INTENT(IN) :: J
      I=J                      ! { dg-error "must be PURE" }
 END SUBROUTINE S2
-END
\ No newline at end of file
+END
+! { dg-final { cleanup-modules "M1" } }
+

diff --git a/gcc/testsuite/gfortran.dg/interface_3.f90 b/gcc/testsuite/gfortran.dg/interface_3.f90
index ecc7c4fa9e38b3bfd2c257ef80f7463776a0be78..0a23fb09806c3ae960a34b1acee11573316d5016 100644 (file)
--- a/gcc/testsuite/gfortran.dg/interface_3.f90
+++ b/gcc/testsuite/gfortran.dg/interface_3.f90
@@ -66,4 +66,4 @@ subroutine his_fun (a)
   print *, my_fun (a)  ! { dg-error "ambiguous reference" }
 end subroutine his_fun
 
-! { dg-final { cleanup-modules "test_mod" } }
+! { dg-final { cleanup-modules "test_mod test_mod2" } }

diff --git a/gcc/testsuite/gfortran.dg/internal_references_1.f90 b/gcc/testsuite/gfortran.dg/internal_references_1.f90
index 461fbfa92c9e4379259212014cec3df80861adad..73b9da67c648a1a1c2ffc51b1ee3041d86c74935 100644 (file)
--- a/gcc/testsuite/gfortran.dg/internal_references_1.f90
+++ b/gcc/testsuite/gfortran.dg/internal_references_1.f90
@@ -33,4 +33,4 @@ contains
       bar = 1.0
     end function bar
 end program test
-
+! { dg-final { cleanup-modules "m" } }

diff --git a/gcc/testsuite/gfortran.dg/module_equivalence_2.f90 b/gcc/testsuite/gfortran.dg/module_equivalence_2.f90
index 3ec8efb41a41db3497fc3ea2ba05d2261314f911..f6a3c34039bbcc8cfd0d16ad2322696b562da2da 100644 (file)
--- a/gcc/testsuite/gfortran.dg/module_equivalence_2.f90
+++ b/gcc/testsuite/gfortran.dg/module_equivalence_2.f90
@@ -22,3 +22,4 @@ 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/overload_1.f90 b/gcc/testsuite/gfortran.dg/overload_1.f90
index 97aa8433510f1afdec2c83fc64f1d623a05db9f7..fc38a6c90fec9cead4600356cd8365aa55c53bf7 100644 (file)
--- a/gcc/testsuite/gfortran.dg/overload_1.f90
+++ b/gcc/testsuite/gfortran.dg/overload_1.f90
@@ -181,3 +181,4 @@ contains
          & abort
   end subroutine checku
 end program main
+! { dg-final { cleanup-modules "m" } }

diff --git a/gcc/testsuite/gfortran.dg/present_1.f90 b/gcc/testsuite/gfortran.dg/present_1.f90
index 96120399a1965255fcf028481726dfe138c33cb2..6dee264fd93ad1eab4fbaedb0848043dfa427de3 100644 (file)
--- a/gcc/testsuite/gfortran.dg/present_1.f90
+++ b/gcc/testsuite/gfortran.dg/present_1.f90
@@ -17,4 +17,4 @@
   END SUBROUTINE S1
  END MODULE
  END
-
+! { 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 e62fe6e21c451ee833b6cf6b124128120f1ad9d0..0fcf00e53a5938a18b8a7b57bd1e3361df799d6b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/private_type_5.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_5.f90
@@ -21,4 +21,5 @@ contains
       ir%i = i
     end subroutine init
   end subroutine sub
-end module test
\ No newline at end of file
+end module test
+! { dg-final { cleanup-modules "test" } }

diff --git a/gcc/testsuite/gfortran.dg/protected_4.f90 b/gcc/testsuite/gfortran.dg/protected_4.f90
index 7d2238e2ffd36ed210969362b253a50979f19bf8..181614230c96899740150da997182ba69bfccf71 100644 (file)
--- a/gcc/testsuite/gfortran.dg/protected_4.f90
+++ b/gcc/testsuite/gfortran.dg/protected_4.f90
@@ -55,4 +55,4 @@ module test
   protected :: test ! { dg-error "MODULE attribute conflicts with PROTECTED" }
 end module test
 
-! { dg-final { cleanup-modules "protmod" } }
+! { dg-final { cleanup-modules "protmod test" } }

diff --git a/gcc/testsuite/gfortran.dg/sequence_types_1.f90 b/gcc/testsuite/gfortran.dg/sequence_types_1.f90
index 6c0bb247c8756e183df60cdcffc02c43e4ca1153..62cd8fd68868bf3f5940da13a09a3a3958c5d4b7 100644 (file)
--- a/gcc/testsuite/gfortran.dg/sequence_types_1.f90
+++ b/gcc/testsuite/gfortran.dg/sequence_types_1.f90
@@ -77,3 +77,4 @@ 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/use_4.f90 b/gcc/testsuite/gfortran.dg/use_4.f90
index 43d94bc223ca5619b108fb9167e416d77babe7d3..a765acecf6a8e9be2cf44b1988734f619d74b4c7 100644 (file)
--- a/gcc/testsuite/gfortran.dg/use_4.f90
+++ b/gcc/testsuite/gfortran.dg/use_4.f90
@@ -31,3 +31,4 @@ 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/volatile10.f90 b/gcc/testsuite/gfortran.dg/volatile10.f90
index 493abf739c2910abf1b8f2bbed6f8d1e796fa685..2065b164cadf4d93015ec0068a5c5196f2219684 100644 (file)
--- a/gcc/testsuite/gfortran.dg/volatile10.f90
+++ b/gcc/testsuite/gfortran.dg/volatile10.f90
@@ -146,4 +146,4 @@ 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 "one two" } }
+! { dg-final { cleanup-modules "impl one two" } }