defined_operators_1.f90: Add cleanup-modules dg directive.

	* gfortran.dg/defined_operators_1.f90: Add cleanup-modules dg
	directive.
	* gfortran.dg/module_private_array_refs_1.f90: Likewise.
	* gfortran.dg/module_proc_external_dummy.f90: Likewise.
	* gfortran.dg/gomp/omp_threadprivate1.f90: Likewise.
	* gfortran.dg/gomp/reduction3.f90: Likewise.
	* gfortran.dg/derived_constructor_comps_1.f90: Likewise.
	* gfortran.dg/dummy_procedure_2.f90: Likewise.
	* gfortran.dg/interface_derived_type_1.f90: Likewise.
	* gfortran.dg/forall_4.f90: Likewise.
	* gfortran.dg/spec_expr_4.f90: Likewise.
	* gfortran.dg/unused_artificial_dummies_1.f90: Likewise.
	* gfortran.dg/forall_5.f90: Likewise.
	* gfortran.dg/open_access_append_2.f90: Add check for
	compile-time warning.

From-SVN: r117688

14 files changed, 33 insertions, 1 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3a48c5d..a59e5f1 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,21 @@
+2006-10-13  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	* gfortran.dg/defined_operators_1.f90: Add cleanup-modules dg
+	directive.
+	* gfortran.dg/module_private_array_refs_1.f90: Likewise.
+	* gfortran.dg/module_proc_external_dummy.f90: Likewise.
+	* gfortran.dg/gomp/omp_threadprivate1.f90: Likewise.
+	* gfortran.dg/gomp/reduction3.f90: Likewise.
+	* gfortran.dg/derived_constructor_comps_1.f90: Likewise.
+	* gfortran.dg/dummy_procedure_2.f90: Likewise.
+	* gfortran.dg/interface_derived_type_1.f90: Likewise.
+	* gfortran.dg/forall_4.f90: Likewise.
+	* gfortran.dg/spec_expr_4.f90: Likewise.
+	* gfortran.dg/unused_artificial_dummies_1.f90: Likewise.
+	* gfortran.dg/forall_5.f90: Likewise.
+	* gfortran.dg/open_access_append_2.f90: Add check for
+	compile-time warning.
+
 2006-10-13  Mark Mitchell  <mark@codesourcery.com>
 
 	PR c++/28506
diff --git a/gcc/testsuite/gfortran.dg/defined_operators_1.f90 b/gcc/testsuite/gfortran.dg/defined_operators_1.f90
index f7688b8..c2369b2 100644
--- a/gcc/testsuite/gfortran.dg/defined_operators_1.f90
+++ b/gcc/testsuite/gfortran.dg/defined_operators_1.f90
@@ -54,3 +54,4 @@ 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/derived_constructor_comps_1.f90 b/gcc/testsuite/gfortran.dg/derived_constructor_comps_1.f90
index 1c02a31..83d1279 100644
--- a/gcc/testsuite/gfortran.dg/derived_constructor_comps_1.f90
+++ b/gcc/testsuite/gfortran.dg/derived_constructor_comps_1.f90
@@ -54,3 +54,4 @@ contains
   end function foo
 
 end program prog
+! { dg-final { cleanup-modules "foo_mod" } }
diff --git a/gcc/testsuite/gfortran.dg/dummy_procedure_2.f90 b/gcc/testsuite/gfortran.dg/dummy_procedure_2.f90
index dd609bd..b589808 100644
--- a/gcc/testsuite/gfortran.dg/dummy_procedure_2.f90
+++ b/gcc/testsuite/gfortran.dg/dummy_procedure_2.f90
@@ -31,3 +31,4 @@ contains
     print *,integrate (g,0d0,3d0)
   end subroutine foo2
 end
+! { dg-final { cleanup-modules "integrator" } }
diff --git a/gcc/testsuite/gfortran.dg/forall_4.f90 b/gcc/testsuite/gfortran.dg/forall_4.f90
index 0b0d731..e71e0b8 100644
--- a/gcc/testsuite/gfortran.dg/forall_4.f90
+++ b/gcc/testsuite/gfortran.dg/forall_4.f90
@@ -64,3 +64,4 @@ 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 43ed2b5..1d9efb90 100644
--- a/gcc/testsuite/gfortran.dg/forall_5.f90
+++ b/gcc/testsuite/gfortran.dg/forall_5.f90
@@ -38,3 +38,4 @@ contains
     w = 5 - i
   end function w
 end
+! { dg-final { cleanup-modules "foo" } }
diff --git a/gcc/testsuite/gfortran.dg/gomp/omp_threadprivate1.f90 b/gcc/testsuite/gfortran.dg/gomp/omp_threadprivate1.f90
index 55aad06..2ccf93c 100644
--- a/gcc/testsuite/gfortran.dg/gomp/omp_threadprivate1.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/omp_threadprivate1.f90
@@ -15,3 +15,4 @@
 !$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/reduction3.f90 b/gcc/testsuite/gfortran.dg/gomp/reduction3.f90
index 1bb0e21..50f6450 100644
--- a/gcc/testsuite/gfortran.dg/gomp/reduction3.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/reduction3.f90
@@ -67,3 +67,4 @@ subroutine f6
   i = iand (i, 18)
 !$omp end parallel
 end subroutine f6
+! { dg-final { cleanup-modules "mreduction3" } }
diff --git a/gcc/testsuite/gfortran.dg/interface_derived_type_1.f90 b/gcc/testsuite/gfortran.dg/interface_derived_type_1.f90
index 7c165b3..a2c4d02 100644
--- a/gcc/testsuite/gfortran.dg/interface_derived_type_1.f90
+++ b/gcc/testsuite/gfortran.dg/interface_derived_type_1.f90
@@ -52,3 +52,5 @@ 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/module_private_array_refs_1.f90 b/gcc/testsuite/gfortran.dg/module_private_array_refs_1.f90
index 2b23974..e2591ab 100644
--- a/gcc/testsuite/gfortran.dg/module_private_array_refs_1.f90
+++ b/gcc/testsuite/gfortran.dg/module_private_array_refs_1.f90
@@ -49,3 +49,4 @@ end
   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 08f61b0..86c66c2 100644
--- a/gcc/testsuite/gfortran.dg/module_proc_external_dummy.f90
+++ b/gcc/testsuite/gfortran.dg/module_proc_external_dummy.f90
@@ -27,3 +27,4 @@ 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/open_access_append_2.f90 b/gcc/testsuite/gfortran.dg/open_access_append_2.f90
index 3661bb0..3f9dd91 100644
--- a/gcc/testsuite/gfortran.dg/open_access_append_2.f90
+++ b/gcc/testsuite/gfortran.dg/open_access_append_2.f90
@@ -1,5 +1,6 @@
 ! { dg-do run }
 ! Testcase for the GNU extension OPEN(...,ACCESS="APPEND")
-  open (10,err=900,access="append",position="asis") ! { dg-output ".*Extension.*" }
+  open (10,err=900,access="append",position="asis") ! { dg-warning "Extension: ACCESS specifier in OPEN statement" }
   call abort
  900 end
+! { dg-output ".*Extension.*" }
diff --git a/gcc/testsuite/gfortran.dg/spec_expr_4.f90 b/gcc/testsuite/gfortran.dg/spec_expr_4.f90
index 7b2d5b6..cf655b9 100644
--- a/gcc/testsuite/gfortran.dg/spec_expr_4.f90
+++ b/gcc/testsuite/gfortran.dg/spec_expr_4.f90
@@ -31,3 +31,4 @@ 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/unused_artificial_dummies_1.f90 b/gcc/testsuite/gfortran.dg/unused_artificial_dummies_1.f90
index 68ceee7..bfeceaf 100644
--- a/gcc/testsuite/gfortran.dg/unused_artificial_dummies_1.f90
+++ b/gcc/testsuite/gfortran.dg/unused_artificial_dummies_1.f90
@@ -47,3 +47,4 @@ contains
   end function
 
 end module foo
+! { dg-final { cleanup-modules "foo" } }