diff options
Diffstat (limited to 'gcc')
31 files changed, 82 insertions, 8 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ee7d70a..a320c2e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,36 @@ +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. + 2007-08-17 Paolo Carlini <pcarlini@suse.de> PR c++/32870 diff --git a/gcc/testsuite/gfortran.dg/bind_c_dts.f90 b/gcc/testsuite/gfortran.dg/bind_c_dts.f90 index f78630b..f0a31e5 100644 --- a/gcc/testsuite/gfortran.dg/bind_c_dts.f90 +++ b/gcc/testsuite/gfortran.dg/bind_c_dts.f90 @@ -39,3 +39,5 @@ contains myDerived%s = myDerived%s + 1.0; end subroutine types_test end module bind_c_dts + +! { dg-final { cleanup-modules "bind_c_dts" } } diff --git a/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 b/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 index 4e5e61b..4b423e5 100644 --- a/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 +++ b/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 @@ -59,3 +59,5 @@ contains end if end subroutine sub0 end module bind_c_dts_2 + +! { dg-final { cleanup-modules "bind_c_dts_2" } } diff --git a/gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03 b/gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03 index ff284ce..d6b4b6d 100644 --- a/gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03 +++ b/gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03 @@ -8,3 +8,5 @@ contains i = 0 end subroutine sub0 end module bind_c_implicit_vars + +! { dg-final { cleanup-modules "bind_c_implicit_vars" } } diff --git a/gcc/testsuite/gfortran.dg/bind_c_vars.f90 b/gcc/testsuite/gfortran.dg/bind_c_vars.f90 index 4f4a0cf..e57edf0 100644 --- a/gcc/testsuite/gfortran.dg/bind_c_vars.f90 +++ b/gcc/testsuite/gfortran.dg/bind_c_vars.f90 @@ -36,3 +36,5 @@ contains end subroutine changeF90Globals end module bind_c_vars + +! { dg-final { cleanup-modules "bind_c_vars" } } diff --git a/gcc/testsuite/gfortran.dg/c_assoc.f90 b/gcc/testsuite/gfortran.dg/c_assoc.f90 index 9b2af24..7b34663 100644 --- a/gcc/testsuite/gfortran.dg/c_assoc.f90 +++ b/gcc/testsuite/gfortran.dg/c_assoc.f90 @@ -66,3 +66,5 @@ contains end subroutine verify_assoc end module c_assoc + +! { dg-final { cleanup-modules "c_assoc" } } diff --git a/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90 b/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90 index 1e4dbc0..d35f9d1 100644 --- a/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90 +++ b/gcc/testsuite/gfortran.dg/c_f_pointer_tests.f90 @@ -66,3 +66,5 @@ module c_f_pointer_tests endif end subroutine testDerivedPtrs end module c_f_pointer_tests + +! { dg-final { cleanup-modules "c_f_pointer_tests" } } diff --git a/gcc/testsuite/gfortran.dg/c_loc_test.f90 b/gcc/testsuite/gfortran.dg/c_loc_test.f90 index 178a516..673e6f7 100644 --- a/gcc/testsuite/gfortran.dg/c_loc_test.f90 +++ b/gcc/testsuite/gfortran.dg/c_loc_test.f90 @@ -21,4 +21,4 @@ contains 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" } } diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests.f03 b/gcc/testsuite/gfortran.dg/c_ptr_tests.f03 index 0b7c98b..f0c9a33 100644 --- a/gcc/testsuite/gfortran.dg/c_ptr_tests.f03 +++ b/gcc/testsuite/gfortran.dg/c_ptr_tests.f03 @@ -42,3 +42,5 @@ module c_ptr_tests call c_f_pointer(self%myServices, localServices) end subroutine sub0 end module c_ptr_tests + +! { dg-final { cleanup-modules "c_ptr_tests" } } diff --git a/gcc/testsuite/gfortran.dg/c_size_t_test.f03 b/gcc/testsuite/gfortran.dg/c_size_t_test.f03 index 91d7aa5..68064d7 100644 --- a/gcc/testsuite/gfortran.dg/c_size_t_test.f03 +++ b/gcc/testsuite/gfortran.dg/c_size_t_test.f03 @@ -14,3 +14,5 @@ contains end if end subroutine sub0 end module c_size_t_test + +! { dg-final { cleanup-modules "c_size_t_test" } } diff --git a/gcc/testsuite/gfortran.dg/com_block_driver.f90 b/gcc/testsuite/gfortran.dg/com_block_driver.f90 index 0445635..691a40f 100644 --- a/gcc/testsuite/gfortran.dg/com_block_driver.f90 +++ b/gcc/testsuite/gfortran.dg/com_block_driver.f90 @@ -32,3 +32,5 @@ program comBlockDriver call testTypes() end program comBlockDriver + +! { dg-final { cleanup-modules "mycommodule comblocktests" } } diff --git a/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90 b/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90 index 872e05b..080cdef 100644 --- a/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90 +++ b/gcc/testsuite/gfortran.dg/equiv_constraint_7.f90 @@ -9,3 +9,4 @@ EQUIVALENCE(I,J) END MODULE DATA END +! { dg-final { cleanup-modules "data" } } diff --git a/gcc/testsuite/gfortran.dg/generic_8.f90 b/gcc/testsuite/gfortran.dg/generic_8.f90 index bf2ff78..a129efe 100644 --- a/gcc/testsuite/gfortran.dg/generic_8.f90 +++ b/gcc/testsuite/gfortran.dg/generic_8.f90 @@ -28,4 +28,4 @@ CONTAINS CALL A(MAXVAL(X),Y) END SUBROUTINE T END MODULE M -! { dg-final { cleanup-modules "M" } } +! { dg-final { cleanup-modules "m" } } diff --git a/gcc/testsuite/gfortran.dg/global_vars_c_init.f90 b/gcc/testsuite/gfortran.dg/global_vars_c_init.f90 index abcdccd..15f28f5 100644 --- a/gcc/testsuite/gfortran.dg/global_vars_c_init.f90 +++ b/gcc/testsuite/gfortran.dg/global_vars_c_init.f90 @@ -15,4 +15,4 @@ contains end subroutine test_globals end module global_vars_c_init - +! { dg-final { cleanup-modules "global_vars_c_init" } } diff --git a/gcc/testsuite/gfortran.dg/global_vars_f90_init.f90 b/gcc/testsuite/gfortran.dg/global_vars_f90_init.f90 index 2ff3c52..aa1a60b 100644 --- a/gcc/testsuite/gfortran.dg/global_vars_f90_init.f90 +++ b/gcc/testsuite/gfortran.dg/global_vars_f90_init.f90 @@ -15,4 +15,4 @@ contains end subroutine test_globals end module global_vars_f90_init - +! { dg-final { cleanup-modules "global_vars_f90_init" } } diff --git a/gcc/testsuite/gfortran.dg/interface_13.f90 b/gcc/testsuite/gfortran.dg/interface_13.f90 index 7394de1..42c794a 100644 --- a/gcc/testsuite/gfortran.dg/interface_13.f90 +++ b/gcc/testsuite/gfortran.dg/interface_13.f90 @@ -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" } } diff --git a/gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03 b/gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03 index 215e487..799ba35 100644 --- a/gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03 +++ b/gcc/testsuite/gfortran.dg/iso_c_binding_rename_1.f03 @@ -81,3 +81,4 @@ contains end subroutine sub4 end module iso_c_binding_rename_1 +! { dg-final { cleanup-modules "iso_c_binding_rename_0 iso_c_binding_rename_1" } } diff --git a/gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03 b/gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03 index 75797e7..e7c18db 100644 --- a/gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03 +++ b/gcc/testsuite/gfortran.dg/iso_c_binding_rename_2.f03 @@ -38,3 +38,5 @@ contains end subroutine sub4 end module mod2 + +! { dg-final { cleanup-modules "mod0 mod1 mod2" } } diff --git a/gcc/testsuite/gfortran.dg/kind_tests_2.f03 b/gcc/testsuite/gfortran.dg/kind_tests_2.f03 index d740657..2a0d7c9 100644 --- a/gcc/testsuite/gfortran.dg/kind_tests_2.f03 +++ b/gcc/testsuite/gfortran.dg/kind_tests_2.f03 @@ -5,3 +5,5 @@ module kind_tests_2 integer, parameter :: myFKind = c_float real(myFKind), bind(c) :: myF end module kind_tests_2 + +! { dg-final { cleanup-modules "kind_tests_2" } } diff --git a/gcc/testsuite/gfortran.dg/kind_tests_3.f03 b/gcc/testsuite/gfortran.dg/kind_tests_3.f03 index 83cb91e..af041b0 100644 --- a/gcc/testsuite/gfortran.dg/kind_tests_3.f03 +++ b/gcc/testsuite/gfortran.dg/kind_tests_3.f03 @@ -8,3 +8,5 @@ module my_module use my_kinds real(myFKind), bind(c) :: myF end module my_module + +! { dg-final { cleanup-modules "my_kinds my_module" } } diff --git a/gcc/testsuite/gfortran.dg/module_interface_1.f90 b/gcc/testsuite/gfortran.dg/module_interface_1.f90 index 15139c0..54ea14b 100644 --- a/gcc/testsuite/gfortran.dg/module_interface_1.f90 +++ b/gcc/testsuite/gfortran.dg/module_interface_1.f90 @@ -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" } } diff --git a/gcc/testsuite/gfortran.dg/module_private_1.f90 b/gcc/testsuite/gfortran.dg/module_private_1.f90 index 66bc564..7d854a1 100644 --- a/gcc/testsuite/gfortran.dg/module_private_1.f90 +++ b/gcc/testsuite/gfortran.dg/module_private_1.f90 @@ -18,3 +18,5 @@ program main j = 1 print *, i, j end program main + +! { dg-final { cleanup-modules "bar foo" } } diff --git a/gcc/testsuite/gfortran.dg/pr25923.f90 b/gcc/testsuite/gfortran.dg/pr25923.f90 index 5a2ee29..f075944 100644 --- a/gcc/testsuite/gfortran.dg/pr25923.f90 +++ b/gcc/testsuite/gfortran.dg/pr25923.f90 @@ -22,3 +22,5 @@ contains end function baz end module foo + +! { dg-final { cleanup-modules "foo" } } diff --git a/gcc/testsuite/gfortran.dg/pr32738.f90 b/gcc/testsuite/gfortran.dg/pr32738.f90 index 3c413f1..bee6f18 100644 --- a/gcc/testsuite/gfortran.dg/pr32738.f90 +++ b/gcc/testsuite/gfortran.dg/pr32738.f90 @@ -42,3 +42,5 @@ program example implicit none print *, tree_size(1) end program example + +! { dg-final { cleanup-modules "cluster_definition cluster_tree" } } diff --git a/gcc/testsuite/gfortran.dg/private_type_6.f90 b/gcc/testsuite/gfortran.dg/private_type_6.f90 index 0d7ec53..c44661f 100644 --- a/gcc/testsuite/gfortran.dg/private_type_6.f90 +++ b/gcc/testsuite/gfortran.dg/private_type_6.f90 @@ -22,4 +22,4 @@ program foo_test 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" } } diff --git a/gcc/testsuite/gfortran.dg/private_type_7.f90 b/gcc/testsuite/gfortran.dg/private_type_7.f90 index c449172..b9ad8fa 100644 --- a/gcc/testsuite/gfortran.dg/private_type_7.f90 +++ b/gcc/testsuite/gfortran.dg/private_type_7.f90 @@ -32,3 +32,4 @@ program testit k = foo(i) print *, "in the main:", k end program testit +! { dg-final { cleanup-modules "gfcbug68" } } diff --git a/gcc/testsuite/gfortran.dg/test_com_block.f90 b/gcc/testsuite/gfortran.dg/test_com_block.f90 index df3f643..37175d2 100644 --- a/gcc/testsuite/gfortran.dg/test_com_block.f90 +++ b/gcc/testsuite/gfortran.dg/test_com_block.f90 @@ -30,3 +30,5 @@ program testComBlock call abort() endif end program testComBlock + +! { dg-final { cleanup-modules "nonf03comblock" } } diff --git a/gcc/testsuite/gfortran.dg/test_only_clause.f90 b/gcc/testsuite/gfortran.dg/test_only_clause.f90 index 7c63e2b..a02a759 100644 --- a/gcc/testsuite/gfortran.dg/test_only_clause.f90 +++ b/gcc/testsuite/gfortran.dg/test_only_clause.f90 @@ -18,3 +18,5 @@ module testOnlyClause endif end subroutine testOnly end module testOnlyClause + +! { dg-final { cleanup-modules "testonlyclause" } } diff --git a/gcc/testsuite/gfortran.dg/use_9.f90 b/gcc/testsuite/gfortran.dg/use_9.f90 index 588f29d..419ef47 100644 --- a/gcc/testsuite/gfortran.dg/use_9.f90 +++ b/gcc/testsuite/gfortran.dg/use_9.f90 @@ -13,3 +13,4 @@ end module test use test, only: operator(.func.) ! { dg-error "not found in module 'test'" } end +! { dg-final { cleanup-modules "test" } } diff --git a/gcc/testsuite/gfortran.dg/use_iso_c_binding.f90 b/gcc/testsuite/gfortran.dg/use_iso_c_binding.f90 index 6e6a023..b35c024 100644 --- a/gcc/testsuite/gfortran.dg/use_iso_c_binding.f90 +++ b/gcc/testsuite/gfortran.dg/use_iso_c_binding.f90 @@ -47,3 +47,4 @@ module use_stmt_7 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" } } diff --git a/gcc/testsuite/gfortran.dg/used_types_12.f90 b/gcc/testsuite/gfortran.dg/used_types_12.f90 index adfa1f7..21d0fe2 100644 --- a/gcc/testsuite/gfortran.dg/used_types_12.f90 +++ b/gcc/testsuite/gfortran.dg/used_types_12.f90 @@ -26,5 +26,5 @@ PROGRAM MAIN TYPE(T1) :: BAZ BAZ = BAR END -! { dg-final { cleanup-modules "M" } } +! { dg-final { cleanup-modules "m" } } |