This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]
Other format:	[Raw text]

[gfortran testsuite,commited] Add a bunch of cleanup-modules directives

From: "François-Xavier Coudert" <fxcoudert at gmail dot com>
To: "fortran at gcc dot gnu dot org" <fortran at gcc dot gnu dot org>
Date: Fri, 13 Oct 2006 11:01:57 +0200
Subject: [gfortran testsuite,commited] Add a bunch of cleanup-modules directives
Domainkey-signature: a=rsa-sha1; q=dns; c=nofws; s=beta; d=gmail.com; h=received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references; b=kKYoTHGF+t8aHeuhkHbtt5Zj1K9PmvuOAUsqCGm11VqycwKZeE1iFwj2ZXO/tgywYLySSv60ClfC0WPLzwmSPlrXuqsPsfgnb6pRym9/tsrLlkAzY8Vko6JDu01YJRRbbaaMgJLXrzqTz/TKh9ElFv6NzmaxmfT13eXwNWHbPsU=
References: <19c433eb0610130156x104d3cfdn4b168124b3e23997@mail.gmail.com>

Hi all,

I commited the following patch to add a bunch of cleanup-modules dg
directives to testsuite files that were missing one. Let's try to
remember to include them in the new tests you add and those you review
(and I'm probably guilty of forgetting it often, so I hope no one
feels offended).

FX

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 117687)
+++ ChangeLog	(working copy)
@@ -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
Index: gfortran.dg/defined_operators_1.f90
===================================================================
--- gfortran.dg/defined_operators_1.f90	(revision 117683)
+++ gfortran.dg/defined_operators_1.f90	(working copy)
@@ -54,3 +54,4 @@
     foo_3 = a + 3 * b - c
   end function foo_3
 end module mymod
+! { dg-final { cleanup-modules "mymod" } }
Index: gfortran.dg/module_private_array_refs_1.f90
===================================================================
--- gfortran.dg/module_private_array_refs_1.f90	(revision 117683)
+++ gfortran.dg/module_private_array_refs_1.f90	(working copy)
@@ -49,3 +49,4 @@
   call sub ()
 end
 
+! { dg-final { cleanup-modules "foo bar" } }
Index: gfortran.dg/module_proc_external_dummy.f90
===================================================================
--- gfortran.dg/module_proc_external_dummy.f90	(revision 117683)
+++ gfortran.dg/module_proc_external_dummy.f90	(working copy)
@@ -27,3 +27,4 @@
    call sub_module (sub)
    call sub_module (str)
 end
+! { dg-final { cleanup-modules "test_module" } }
Index: gfortran.dg/gomp/omp_threadprivate1.f90
===================================================================
--- gfortran.dg/gomp/omp_threadprivate1.f90	(revision 117683)
+++ gfortran.dg/gomp/omp_threadprivate1.f90	(working copy)
@@ -15,3 +15,4 @@
 !$omp end parallel		! { dg-error "" }
 	end subroutine bad3
       end subroutine bad2
+! { dg-final { cleanup-modules "omp_threadprivate1" } }
Index: gfortran.dg/gomp/reduction3.f90
===================================================================
--- gfortran.dg/gomp/reduction3.f90	(revision 117683)
+++ gfortran.dg/gomp/reduction3.f90	(working copy)
@@ -67,3 +67,4 @@
   i = iand (i, 18)
 !$omp end parallel
 end subroutine f6
+! { dg-final { cleanup-modules "mreduction3" } }
Index: gfortran.dg/derived_constructor_comps_1.f90
===================================================================
--- gfortran.dg/derived_constructor_comps_1.f90	(revision 117683)
+++ gfortran.dg/derived_constructor_comps_1.f90	(working copy)
@@ -54,3 +54,4 @@
   end function foo
 
 end program prog
+! { dg-final { cleanup-modules "foo_mod" } }
Index: gfortran.dg/dummy_procedure_2.f90
===================================================================
--- gfortran.dg/dummy_procedure_2.f90	(revision 117683)
+++ gfortran.dg/dummy_procedure_2.f90	(working copy)
@@ -31,3 +31,4 @@
     print *,integrate (g,0d0,3d0)
   end subroutine foo2
 end
+! { dg-final { cleanup-modules "integrator" } }
Index: gfortran.dg/open_access_append_2.f90
===================================================================
--- gfortran.dg/open_access_append_2.f90	(revision 117683)
+++ gfortran.dg/open_access_append_2.f90	(working copy)
@@ -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.*" }
Index: gfortran.dg/interface_derived_type_1.f90
===================================================================
--- gfortran.dg/interface_derived_type_1.f90	(revision 117683)
+++ gfortran.dg/interface_derived_type_1.f90	(working copy)
@@ -52,3 +52,5 @@
   end interface
   type(fcnparms)       :: params  !         -ditto-
 end subroutine sim_3
+
+! { dg-final { cleanup-modules "test type_decl" } }
Index: gfortran.dg/forall_4.f90
===================================================================
--- gfortran.dg/forall_4.f90	(revision 117683)
+++ gfortran.dg/forall_4.f90	(working copy)
@@ -64,3 +64,4 @@
     w = 5 - i
   end function w
 end
+! { dg-final { cleanup-modules "foo" } }
Index: gfortran.dg/spec_expr_4.f90
===================================================================
--- gfortran.dg/spec_expr_4.f90	(revision 117683)
+++ gfortran.dg/spec_expr_4.f90	(working copy)
@@ -31,3 +31,4 @@
   e%numbering => ent
   print *, element_local_coords (e)
 end
+! { dg-final { cleanup-modules "elements global_numbering" } }
Index: gfortran.dg/unused_artificial_dummies_1.f90
===================================================================
--- gfortran.dg/unused_artificial_dummies_1.f90	(revision 117683)
+++ gfortran.dg/unused_artificial_dummies_1.f90	(working copy)
@@ -47,3 +47,4 @@
   end function
 
 end module foo
+! { dg-final { cleanup-modules "foo" } }
Index: gfortran.dg/forall_5.f90
===================================================================
--- gfortran.dg/forall_5.f90	(revision 117683)
+++ gfortran.dg/forall_5.f90	(working copy)
@@ -38,3 +38,4 @@
     w = 5 - i
   end function w
 end
+! { dg-final { cleanup-modules "foo" } }

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]