From: Brooks Moses <brooks.moses@codesourcery.com>
To: gcc-patches@gcc.gnu.org
Cc: fortran@gcc.gnu.org
Subject: [patch, testsuite, committed] Clean up gfortran.dg leftover module files.
Date: Mon, 26 Mar 2007 21:40:00 -0000 [thread overview]
Message-ID: <46082A94.2030709@codesourcery.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 1496 bytes --]
As advertised in the subject line. Thanks to Uros Bizjak for the
inspiration.
There are still a lot of module files left over from running
gfortran.fortran-torture, since (as Kaveh pointed out) that doesn't
recognize dg-final directives. I've got a patch that adds the
directives, but not one for recognizing them yet....
Anyhow, tested on i686-pc-linux-gnu, and committed to trunk.
----------------------------------------------------------------
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.
----------------------------------------------------------------
- Brooks
[-- Attachment #2: test-dg-leftovers.diff --]
[-- Type: text/x-patch, Size: 7545 bytes --]
Index: gfortran.dg/func_derived_4.f90
===================================================================
--- gfortran.dg/func_derived_4.f90 (revision 123170)
+++ gfortran.dg/func_derived_4.f90 (working copy)
@@ -102,4 +102,4 @@
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" } }
Index: gfortran.dg/gomp/appendix-a/a.22.4.f90
===================================================================
--- gfortran.dg/gomp/appendix-a/a.22.4.f90 (revision 123170)
+++ gfortran.dg/gomp/appendix-a/a.22.4.f90 (working copy)
@@ -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" } }
Index: gfortran.dg/gomp/appendix-a/a.26.2.f90
===================================================================
--- gfortran.dg/gomp/appendix-a/a.26.2.f90 (revision 123170)
+++ gfortran.dg/gomp/appendix-a/a.26.2.f90 (working copy)
@@ -20,3 +20,4 @@
!$OMP END PARALLEL DO
END SUBROUTINE F
END MODULE A26_2
+! { dg-final { cleanup-modules "A26_2" } }
Index: gfortran.dg/gomp/appendix-a/a.32.1.f90
===================================================================
--- gfortran.dg/gomp/appendix-a/a.32.1.f90 (revision 123170)
+++ gfortran.dg/gomp/appendix-a/a.32.1.f90 (working copy)
@@ -22,3 +22,4 @@
ALLOCATE(WORK(SIZE))
WORK = TOL
END SUBROUTINE BUILD
+! { dg-final { cleanup-modules "M" } }
Index: gfortran.dg/overload_1.f90
===================================================================
--- gfortran.dg/overload_1.f90 (revision 123170)
+++ gfortran.dg/overload_1.f90 (working copy)
@@ -181,3 +181,4 @@
& abort
end subroutine checku
end program main
+! { dg-final { cleanup-modules "m" } }
Index: gfortran.dg/impure_assignment_1.f90
===================================================================
--- gfortran.dg/impure_assignment_1.f90 (revision 123170)
+++ gfortran.dg/impure_assignment_1.f90 (working copy)
@@ -23,4 +23,6 @@
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" } }
+
Index: gfortran.dg/private_type_5.f90
===================================================================
--- gfortran.dg/private_type_5.f90 (revision 123170)
+++ gfortran.dg/private_type_5.f90 (working copy)
@@ -21,4 +21,5 @@
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" } }
Index: gfortran.dg/error_recovery_3.f90
===================================================================
--- gfortran.dg/error_recovery_3.f90 (revision 123170)
+++ gfortran.dg/error_recovery_3.f90 (working copy)
@@ -6,4 +6,6 @@
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" } }
+
Index: gfortran.dg/alloc_comp_basics_1.f90
===================================================================
--- gfortran.dg/alloc_comp_basics_1.f90 (revision 123170)
+++ gfortran.dg/alloc_comp_basics_1.f90 (working copy)
@@ -141,3 +141,4 @@
end program alloc
! { dg-final { scan-tree-dump-times "deallocate" 33 "original" } }
! { dg-final { cleanup-tree-dump "original" } }
+! { dg-final { cleanup-modules "alloc_m" } }
Index: gfortran.dg/interface_3.f90
===================================================================
--- gfortran.dg/interface_3.f90 (revision 123170)
+++ gfortran.dg/interface_3.f90 (working copy)
@@ -66,4 +66,4 @@
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" } }
Index: gfortran.dg/sequence_types_1.f90
===================================================================
--- gfortran.dg/sequence_types_1.f90 (revision 123170)
+++ gfortran.dg/sequence_types_1.f90 (working copy)
@@ -77,3 +77,4 @@
Integer(kindInt), dimension(:), pointer :: subset
end type GroupDefLL
end module data_types
+! { dg-final { cleanup-modules "data_types" } }
Index: gfortran.dg/protected_4.f90
===================================================================
--- gfortran.dg/protected_4.f90 (revision 123170)
+++ gfortran.dg/protected_4.f90 (working copy)
@@ -55,4 +55,4 @@
protected :: test ! { dg-error "MODULE attribute conflicts with PROTECTED" }
end module test
-! { dg-final { cleanup-modules "protmod" } }
+! { dg-final { cleanup-modules "protmod test" } }
Index: gfortran.dg/elemental_result_1.f90
===================================================================
--- gfortran.dg/elemental_result_1.f90 (revision 123170)
+++ gfortran.dg/elemental_result_1.f90 (working copy)
@@ -18,4 +18,4 @@
INTEGER, pointer :: MM ! { dg-error "conflicts with ELEMENTAL" }
END FUNCTION MM
END MODULE Test
-
+! { dg-final { cleanup-modules "Test" } }
Index: gfortran.dg/generic_actual_arg.f90
===================================================================
--- gfortran.dg/generic_actual_arg.f90 (revision 123170)
+++ gfortran.dg/generic_actual_arg.f90 (working copy)
@@ -22,4 +22,5 @@
END
SUBROUTINE F()
-END SUBROUTINE
\ No newline at end of file
+END SUBROUTINE
+! { dg-final { cleanup-modules "TEST" } }
Index: gfortran.dg/internal_references_1.f90
===================================================================
--- gfortran.dg/internal_references_1.f90 (revision 123170)
+++ gfortran.dg/internal_references_1.f90 (working copy)
@@ -33,4 +33,4 @@
bar = 1.0
end function bar
end program test
-
+! { dg-final { cleanup-modules "m" } }
Index: gfortran.dg/present_1.f90
===================================================================
--- gfortran.dg/present_1.f90 (revision 123170)
+++ gfortran.dg/present_1.f90 (working copy)
@@ -17,4 +17,4 @@
END SUBROUTINE S1
END MODULE
END
-
+! { dg-final { cleanup-modules "M1" } }
Index: gfortran.dg/volatile10.f90
===================================================================
--- gfortran.dg/volatile10.f90 (revision 123170)
+++ gfortran.dg/volatile10.f90 (working copy)
@@ -146,4 +146,4 @@
! 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" } }
Index: gfortran.dg/module_equivalence_2.f90
===================================================================
--- gfortran.dg/module_equivalence_2.f90 (revision 123170)
+++ gfortran.dg/module_equivalence_2.f90 (working copy)
@@ -22,3 +22,4 @@
reM = 0.57d1
if (M .ne. 0.57d1) call abort ()
end
+! { dg-final { cleanup-modules "a b" } }
Index: gfortran.dg/use_4.f90
===================================================================
--- gfortran.dg/use_4.f90 (revision 123170)
+++ gfortran.dg/use_4.f90 (working copy)
@@ -31,3 +31,4 @@
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" } }
next reply other threads:[~2007-03-26 20:20 UTC|newest]
Thread overview: 31+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-03-26 21:40 Brooks Moses [this message]
2007-03-26 21:45 ` FX Coudert
2007-03-27 17:24 ` Bernhard Fischer
2007-03-27 17:29 ` Bernhard Fischer
2012-03-01 21:10 ` [PATCH] gfortran testsuite: implicitly cleanup-modules Bernhard Reutner-Fischer
2012-03-09 0:04 ` Mikael Morin
2012-03-13 16:39 ` Bernhard Reutner-Fischer
2012-03-13 20:31 ` Mike Stump
2012-03-15 12:40 ` Bernhard Reutner-Fischer
2012-03-15 15:57 ` Richard Guenther
2012-03-15 16:56 ` Bernhard Reutner-Fischer
2012-03-15 19:36 ` Jakub Jelinek
2012-03-16 10:05 ` Bernhard Reutner-Fischer
2012-03-16 15:00 ` Bernhard Reutner-Fischer
2012-06-29 0:15 ` Bernhard Reutner-Fischer
2012-06-29 0:55 ` Mike Stump
2012-06-29 0:56 ` Bernhard Reutner-Fischer
2012-06-29 5:43 ` Mike Stump
2013-06-07 14:30 ` Bernhard Reutner-Fischer
2013-06-10 23:21 ` Ben Elliston
2012-03-19 17:36 ` Rainer Orth
2012-03-22 12:30 ` Bernhard Reutner-Fischer
2012-04-03 12:17 ` [PATCH] gfortran testsuite: implicitly cleanup-modules, part 2 Bernhard Reutner-Fischer
2012-04-03 12:58 ` Bernhard Reutner-Fischer
2012-04-13 10:51 ` PING " Bernhard Reutner-Fischer
2012-04-13 13:58 ` Mike Stump
2012-04-13 14:40 ` Bernhard Reutner-Fischer
2012-04-13 20:09 ` Mike Stump
2012-04-13 14:15 ` Mike Stump
2015-04-23 8:55 ` [PATCH] gfortran testsuite: implicitly cleanup-modules Bernhard Reutner-Fischer
2015-04-29 21:58 ` Joseph Myers
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=46082A94.2030709@codesourcery.com \
--to=brooks.moses@codesourcery.com \
--cc=fortran@gcc.gnu.org \
--cc=gcc-patches@gcc.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).