* [Patch,Fortran,committed] Add cleanup-modules to files in testsuite/gfortran.dg/*
@ 2007-08-17 11:06 Tobias Burnus
2007-08-17 11:10 ` François-Xavier Coudert
0 siblings, 1 reply; 2+ messages in thread
From: Tobias Burnus @ 2007-08-17 11:06 UTC (permalink / raw)
To: gcc-patches, 'fortran@gcc.gnu.org'
[-- Attachment #1: Type: text/plain, Size: 242 bytes --]
Hi all,
I committed the attached patch,
http://gcc.gnu.org/ml/gcc-cvs/2007-08/msg00475.html, which reduces the
number of left-over *.mod files.
Does anyone know whether one can use cleanup-modules also in
gfortran.fortran-torture ?
Tobias
[-- Attachment #2: cleanup.diff --]
[-- Type: text/plain, Size: 13377 bytes --]
2007-08-17 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/kind_tests_2.f03: Add cleanup-modules.
* gfortran.dg/kind_tests_3.f03: Ditto.
* gfortran.dg/global_vars_f90_init.f90: Ditto.
* gfortran.dg/interface_13.f90: Ditto.
* gfortran.dg/pr32738.f90: Ditto.
* gfortran.dg/module_private_1.f90: Ditto.
* gfortran.dg/test_only_clause.f90: Ditto.
* gfortran.dg/bind_c_vars.f90: Ditto.
* gfortran.dg/bind_c_dts.f90: Ditto.
* gfortran.dg/use_9.f90: Ditto.
* gfortran.dg/generic_8.f90: Ditto.
* gfortran.dg/bind_c_implicit_vars.f03: Ditto.
* gfortran.dg/private_type_6.f90: Ditto.
* gfortran.dg/c_assoc.f90: Ditto.
* gfortran.dg/private_type_7.f90: Ditto.
* gfortran.dg/global_vars_c_init.f90: Ditto.
* gfortran.dg/bind_c_dts_2.f03: Ditto.
* gfortran.dg/c_f_pointer_tests.f90: Ditto.
* gfortran.dg/c_size_t_test.f03: Ditto.
* gfortran.dg/used_types_12.f90: Ditto.
* gfortran.dg/pr25923.f90: Ditto.
* gfortran.dg/test_com_block.f90: Ditto.
* gfortran.dg/iso_c_binding_rename_1.f03: Ditto.
* gfortran.dg/equiv_constraint_7.f90: Ditto.
* gfortran.dg/com_block_driver.f90: Ditto.
* gfortran.dg/iso_c_binding_rename_2.f03: Ditto.
* gfortran.dg/use_iso_c_binding.f90: Ditto.
* gfortran.dg/c_loc_test.f90: Ditto.
* gfortran.dg/c_ptr_tests.f03: Ditto.
* gfortran.dg/module_interface_1.f90: Ditto.
Index: gcc/testsuite/gfortran.dg/kind_tests_2.f03
===================================================================
--- gcc/testsuite/gfortran.dg/kind_tests_2.f03 (revision 127578)
+++ gcc/testsuite/gfortran.dg/kind_tests_2.f03 (working copy)
@@ -5,3 +5,5 @@
integer, parameter :: myFKind = c_float
real(myFKind), bind(c) :: myF
end module kind_tests_2
+
+! { dg-final { cleanup-modules "kind_tests_2" } }
Index: gcc/testsuite/gfortran.dg/kind_tests_3.f03
===================================================================
--- gcc/testsuite/gfortran.dg/kind_tests_3.f03 (revision 127578)
+++ gcc/testsuite/gfortran.dg/kind_tests_3.f03 (working copy)
@@ -8,3 +8,5 @@
use my_kinds
real(myFKind), bind(c) :: myF
end module my_module
+
+! { dg-final { cleanup-modules "my_kinds my_module" } }
Index: gcc/testsuite/gfortran.dg/global_vars_f90_init.f90
===================================================================
--- gcc/testsuite/gfortran.dg/global_vars_f90_init.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/global_vars_f90_init.f90 (working copy)
@@ -15,4 +15,4 @@
end subroutine test_globals
end module global_vars_f90_init
-
+! { dg-final { cleanup-modules "global_vars_f90_init" } }
Index: gcc/testsuite/gfortran.dg/interface_13.f90
===================================================================
--- gcc/testsuite/gfortran.dg/interface_13.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/interface_13.f90 (working copy)
@@ -28,4 +28,6 @@
data_i4(1)=0
data_r8(1)=0
end subroutine my_sio_file_read_common
- end module files_module
\ No newline at end of file
+ end module files_module
+
+! { dg-final { cleanup-modules "files_module" } }
Index: gcc/testsuite/gfortran.dg/pr32738.f90
===================================================================
--- gcc/testsuite/gfortran.dg/pr32738.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/pr32738.f90 (working copy)
@@ -42,3 +42,5 @@
implicit none
print *, tree_size(1)
end program example
+
+! { dg-final { cleanup-modules "cluster_definition cluster_tree" } }
Index: gcc/testsuite/gfortran.dg/module_private_1.f90
===================================================================
--- gcc/testsuite/gfortran.dg/module_private_1.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/module_private_1.f90 (working copy)
@@ -18,3 +18,5 @@
j = 1
print *, i, j
end program main
+
+! { dg-final { cleanup-modules "bar foo" } }
Index: gcc/testsuite/gfortran.dg/test_only_clause.f90
===================================================================
--- gcc/testsuite/gfortran.dg/test_only_clause.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/test_only_clause.f90 (working copy)
@@ -18,3 +18,5 @@
endif
end subroutine testOnly
end module testOnlyClause
+
+! { dg-final { cleanup-modules "testonlyclause" } }
Index: gcc/testsuite/gfortran.dg/bind_c_vars.f90
===================================================================
--- gcc/testsuite/gfortran.dg/bind_c_vars.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/bind_c_vars.f90 (working copy)
@@ -36,3 +36,5 @@
end subroutine changeF90Globals
end module bind_c_vars
+
+! { dg-final { cleanup-modules "bind_c_vars" } }
Index: gcc/testsuite/gfortran.dg/bind_c_dts.f90
===================================================================
--- gcc/testsuite/gfortran.dg/bind_c_dts.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/bind_c_dts.f90 (working copy)
@@ -39,3 +39,5 @@
myDerived%s = myDerived%s + 1.0;
end subroutine types_test
end module bind_c_dts
+
+! { dg-final { cleanup-modules "bind_c_dts" } }
Index: gcc/testsuite/gfortran.dg/use_9.f90
===================================================================
--- gcc/testsuite/gfortran.dg/use_9.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/use_9.f90 (working copy)
@@ -13,3 +13,4 @@
use test, only: operator(.func.) ! { dg-error "not found in module 'test'" }
end
+! { dg-final { cleanup-modules "test" } }
Index: gcc/testsuite/gfortran.dg/generic_8.f90
===================================================================
--- gcc/testsuite/gfortran.dg/generic_8.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/generic_8.f90 (working copy)
@@ -28,4 +28,4 @@
CALL A(MAXVAL(X),Y)
END SUBROUTINE T
END MODULE M
-! { dg-final { cleanup-modules "M" } }
+! { dg-final { cleanup-modules "m" } }
Index: gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03
===================================================================
--- gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03 (revision 127578)
+++ gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03 (working copy)
@@ -8,3 +8,5 @@
i = 0
end subroutine sub0
end module bind_c_implicit_vars
+
+! { dg-final { cleanup-modules "bind_c_implicit_vars" } }
Index: gcc/testsuite/gfortran.dg/private_type_6.f90
===================================================================
--- gcc/testsuite/gfortran.dg/private_type_6.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/private_type_6.f90 (working copy)
@@ -22,4 +22,4 @@
foo2 = bartype(1,2) ! { dg-error "has PRIVATE components" }
foo2%dummy2 = 5 ! { dg-error "is a PRIVATE component" }
end program foo_test
-! { dg-final { cleanup-tree-dump "foomod" } }
+! { dg-final { cleanup-modules "foomod" } }
Index: gcc/testsuite/gfortran.dg/c_assoc.f90
===================================================================
--- gcc/testsuite/gfortran.dg/c_assoc.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/c_assoc.f90 (working copy)
@@ -66,3 +66,5 @@
end subroutine verify_assoc
end module c_assoc
+
+! { dg-final { cleanup-modules "c_assoc" } }
Index: gcc/testsuite/gfortran.dg/private_type_7.f90
===================================================================
--- gcc/testsuite/gfortran.dg/private_type_7.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/private_type_7.f90 (working copy)
@@ -32,3 +32,4 @@
k = foo(i)
print *, "in the main:", k
end program testit
+! { dg-final { cleanup-modules "gfcbug68" } }
Index: gcc/testsuite/gfortran.dg/global_vars_c_init.f90
===================================================================
--- gcc/testsuite/gfortran.dg/global_vars_c_init.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/global_vars_c_init.f90 (working copy)
@@ -15,4 +15,4 @@
end subroutine test_globals
end module global_vars_c_init
-
+! { dg-final { cleanup-modules "global_vars_c_init" } }
Index: gcc/testsuite/gfortran.dg/bind_c_dts_2.f03
===================================================================
--- gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 (revision 127578)
+++ gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 (working copy)
@@ -59,3 +59,5 @@
end if
end subroutine sub0
end module bind_c_dts_2
+
+! { dg-final { cleanup-modules "bind_c_dts_2" } }
Index: gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90
===================================================================
--- gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90 (working copy)
@@ -66,3 +66,5 @@
endif
end subroutine testDerivedPtrs
end module c_f_pointer_tests
+
+! { dg-final { cleanup-modules "c_f_pointer_tests" } }
Index: gcc/testsuite/gfortran.dg/c_size_t_test.f03
===================================================================
--- gcc/testsuite/gfortran.dg/c_size_t_test.f03 (revision 127578)
+++ gcc/testsuite/gfortran.dg/c_size_t_test.f03 (working copy)
@@ -14,3 +14,5 @@
end if
end subroutine sub0
end module c_size_t_test
+
+! { dg-final { cleanup-modules "c_size_t_test" } }
Index: gcc/testsuite/gfortran.dg/used_types_12.f90
===================================================================
--- gcc/testsuite/gfortran.dg/used_types_12.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/used_types_12.f90 (working copy)
@@ -26,5 +26,5 @@
TYPE(T1) :: BAZ
BAZ = BAR
END
-! { dg-final { cleanup-modules "M" } }
+! { dg-final { cleanup-modules "m" } }
Index: gcc/testsuite/gfortran.dg/pr25923.f90
===================================================================
--- gcc/testsuite/gfortran.dg/pr25923.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/pr25923.f90 (working copy)
@@ -22,3 +22,5 @@
end function baz
end module foo
+
+! { dg-final { cleanup-modules "foo" } }
Index: gcc/testsuite/gfortran.dg/test_com_block.f90
===================================================================
--- gcc/testsuite/gfortran.dg/test_com_block.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/test_com_block.f90 (working copy)
@@ -30,3 +30,5 @@
call abort()
endif
end program testComBlock
+
+! { dg-final { cleanup-modules "nonf03comblock" } }
Index: gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03
===================================================================
--- gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03 (revision 127578)
+++ gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03 (working copy)
@@ -81,3 +81,4 @@
end subroutine sub4
end module iso_c_binding_rename_1
+! { dg-final { cleanup-modules "iso_c_binding_rename_0 iso_c_binding_rename_1" } }
Index: gcc/testsuite/gfortran.dg/equiv_constraint_7.f90
===================================================================
--- gcc/testsuite/gfortran.dg/equiv_constraint_7.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/equiv_constraint_7.f90 (working copy)
@@ -9,3 +9,4 @@
EQUIVALENCE(I,J)
END MODULE DATA
END
+! { dg-final { cleanup-modules "data" } }
Index: gcc/testsuite/gfortran.dg/com_block_driver.f90
===================================================================
--- gcc/testsuite/gfortran.dg/com_block_driver.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/com_block_driver.f90 (working copy)
@@ -32,3 +32,5 @@
call testTypes()
end program comBlockDriver
+
+! { dg-final { cleanup-modules "mycommodule comblocktests" } }
Index: gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03
===================================================================
--- gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03 (revision 127578)
+++ gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03 (working copy)
@@ -38,3 +38,5 @@
end subroutine sub4
end module mod2
+
+! { dg-final { cleanup-modules "mod0 mod1 mod2" } }
Index: gcc/testsuite/gfortran.dg/use_iso_c_binding.f90
===================================================================
--- gcc/testsuite/gfortran.dg/use_iso_c_binding.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/use_iso_c_binding.f90 (working copy)
@@ -47,3 +47,4 @@
use iso_c_binding, only: c_int, c_int
end module use_stmt_7
+! { dg-final { cleanup-modules "use_stmt_2 use_stmt_3 use_stmt_4 use_stmt_5 use_stmt_6 use_stmt_7" } }
Index: gcc/testsuite/gfortran.dg/c_loc_test.f90
===================================================================
--- gcc/testsuite/gfortran.dg/c_loc_test.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/c_loc_test.f90 (working copy)
@@ -21,4 +21,4 @@
call test_address(my_c_ptr, 100)
end subroutine test0
end module c_loc_test
-! { dg-final { cleanup-modules "c_loc_test.mod" } }
+! { dg-final { cleanup-modules "c_loc_test" } }
Index: gcc/testsuite/gfortran.dg/c_ptr_tests.f03
===================================================================
--- gcc/testsuite/gfortran.dg/c_ptr_tests.f03 (revision 127578)
+++ gcc/testsuite/gfortran.dg/c_ptr_tests.f03 (working copy)
@@ -42,3 +42,5 @@
call c_f_pointer(self%myServices, localServices)
end subroutine sub0
end module c_ptr_tests
+
+! { dg-final { cleanup-modules "c_ptr_tests" } }
Index: gcc/testsuite/gfortran.dg/module_interface_1.f90
===================================================================
--- gcc/testsuite/gfortran.dg/module_interface_1.f90 (revision 127578)
+++ gcc/testsuite/gfortran.dg/module_interface_1.f90 (working copy)
@@ -35,4 +35,4 @@
end subroutine Selection_Sort
end program module_interface
-! { dg-final { cleanup-modules "Max_Loc_mod" } }
+! { dg-final { cleanup-modules "max_loc_mod" } }
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: [Patch,Fortran,committed] Add cleanup-modules to files in testsuite/gfortran.dg/*
2007-08-17 11:06 [Patch,Fortran,committed] Add cleanup-modules to files in testsuite/gfortran.dg/* Tobias Burnus
@ 2007-08-17 11:10 ` François-Xavier Coudert
0 siblings, 0 replies; 2+ messages in thread
From: François-Xavier Coudert @ 2007-08-17 11:10 UTC (permalink / raw)
To: Tobias Burnus; +Cc: gcc-patches, fortran
> I committed the attached patch,
Thanks!
> Does anyone know
yes...
> whether one can use cleanup-modules also in
> gfortran.fortran-torture ?
and no ;-)
FX
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2007-08-17 11:10 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2007-08-17 11:06 [Patch,Fortran,committed] Add cleanup-modules to files in testsuite/gfortran.dg/* Tobias Burnus
2007-08-17 11:10 ` François-Xavier Coudert
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).