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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3a48c5d4c4d67f7e6c94c77c73ade85e89c4097a..a59e5f1945665033bc4fc7f5fb45ad297cbff2c1 100644 (file)
--- 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 f7688b87a55b920216516bebb14b8ba409aff184..c2369b2317c1239dd3f99a694e2cb59787947b82 100644 (file)
--- 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 1c02a31c7a319855d0d8317b8b8f78dbef73a7c0..83d127931c7688eed27e7a92f43a8fa38b2d2884 100644 (file)
--- 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 dd609bd0009d8c8e2549bf284c8145996118b817..b58980863942b20217c543ec389f9624c8c9a5e8 100644 (file)
--- 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 0b0d731650735ac9f4782ff1bd3bfee3fb829d71..e71e0b847f5ed780770caf128f06edef94aeddba 100644 (file)
--- 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 43ed2b5c313627384537938e2e3fd3859a6891e2..1d9efb904a9f6bec614beecc9d4a0288734dfd8e 100644 (file)
--- 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 55aad067082e31cbcdc152e7e6abcdd4cbc1026a..2ccf93caca56d5a3c653ce5bbec1ed2f273bf667 100644 (file)
--- 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 1bb0e21c387c7330550ba74103ce4b45f276897c..50f6450ac2f77e68fcd84ab8e0965c80463cab98 100644 (file)
--- 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 7c165b336e9c0c9a8fc097993c70b311beaea7c9..a2c4d02bee38e7c3d7ceadd06caff51146d2cdc4 100644 (file)
--- 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 2b239747b63a1d461e8f68038a5b32706c8fe4c4..e2591ab4b6d6e5842d4c3ea85b05ae4adef5adac 100644 (file)
--- 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 08f61b05f6f3a8486680f697b61d62d245cf5692..86c66c2fadc666da41b4c99bb19a9390f73eb366 100644 (file)
--- 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 3661bb0b2f8c76326515452a1b07a5ee723d4d1c..3f9dd914d6ac8c4610bd3736a7003a2b981631ce 100644 (file)
--- 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 7b2d5b6be13b138de10541825f63a1d5af5953c0..cf655b920bd679d4116d4a73e35c395af08b8d00 100644 (file)
--- 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 68ceee7af331844b3d0bd5af96fdaae08d056861..bfeceaf5749d60474a03190e994ef08aa79dfc26 100644 (file)
--- 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" } }