Skip to content

R
riscv-gcc-1
Commit 3c3a5160 by Tobias Burnus Committed by Tobias Burnus
Options

trim_optimize_5.f90: Remove spurious "use foo". 

2011-08-02  Tobias Burnus  <burnus@net-b.de>

        * trim_optimize_5.f90: Remove spurious "use foo".
        * actual_array_vect_1.f90: Fix or add dg-final cleanup-module
        * alloc_comp_assign_7.f90: Ditto.
        * allocatable_function_5.f90: Ditto.
        * allocate_stat.f90: Ditto.
        * array_constructor_20.f90: Ditto.
        * array_constructor_21.f90: Ditto.
        * array_constructor_22.f90: Ditto.
        * array_constructor_26.f03: Ditto.
        * array_function_4.f90: Ditto.
        * assumed_charlen_function_1.f90: Ditto.
        * assumed_size_dt_dummy.f90: Ditto.
        * bind_c_usage_15.f90: Ditto.
        * bind_c_usage_16.f03: Ditto.
        * bind_c_usage_3.f03: Ditto.
        * binding_label_tests_7.f03: Ditto.
        * class_15.f03: Ditto.
        * class_27.f03: Ditto.
        * class_33.f90: Ditto.
        * class_37.f03: Ditto.
        * class_40.f03: Ditto.
        * class_42.f03: Ditto.
        * class_defined_operator_1.f03: Ditto.
        * coarray/registering_1.f90: Ditto.
        * convert_1.f90: Ditto.
        * default_initialization_3.f90: Ditto.
        * dependency_25.f90: Ditto.
        * dependency_26.f90: Ditto.
        * dependency_36.f90: Ditto.
        * dependency_37.f90: Ditto.
        * derived_array_intrinisics_1.f90: Ditto.
        * dynamic_dispatch_10.f03: Ditto.
        * elemental_non_intrinsic_dummy_1.f90 |: Ditto.
        * elemental_pointer_1.f90: Ditto.
        * elemental_result_1.f90: Ditto.
        * empty_derived_type.f90: Ditto.
        * entry_7.f90: Ditto.
        * entry_dummy_ref_2.f90: Ditto.
        * equiv_constraint_3.f90: Ditto.
        * error_recovery_3.f90: Ditto.
        * extends_4.f03: Ditto.
        * func_assign.f90: Ditto.
        * func_assign_3.f90: Ditto.
        * generic_1.f90: Ditto.
        * generic_18.f90: Ditto.
        * generic_22.f03: Ditto.
        * generic_4.f90: Ditto.
        * generic_6.f90: Ditto.
        * generic_actual_arg.f90: Ditto.
        * graphite/id-21.f: Ditto.
        * graphite/pr45758.f90: Ditto.
        * host_assoc_call_2.f90: Ditto.
        * host_assoc_call_3.f90: Ditto.
        * host_assoc_call_4.f90: Ditto.
        * host_assoc_function_4.f90: Ditto.
        * host_used_types_1.f90: Ditto.
        * implicit_1.f90: Ditto.
        * implicit_11.f90: Ditto.
        * implicit_derived_type_1.f90: Ditto.
        * impure_actual_1.f90: Ditto.
        * impure_assignment_1.f90: Ditto.
        * impure_constructor_1.f90: Ditto.
        * initialization_10.f90: Ditto.
        * initialization_12.f90: Ditto.
        * interface_14.f90: Ditto.
        * interface_15.f90: Ditto.
        * interface_2.f90: Ditto.
        * interface_25.f90: Ditto.
        * interface_26.f90: Ditto.
        * interface_29.f90: Ditto.
        * interface_assignment_1.f90: Ditto.
        * internal_pack_6.f90: Ditto.
        * internal_pack_7.f90: Ditto.
        * internal_pack_8.f90: Ditto.
        * lto/pr45586_0.f90: Ditto.
        * lto/pr47839_0.f90: Ditto.
        * module_commons_3.f90: Ditto.
        * module_equivalence_4.f90: Ditto.
        * module_equivalence_6.f90: Ditto.
        * module_function_type_1.f90: Ditto.
        * module_naming_1.f90: Ditto.
        * namelist_4.f90: Ditto.
        * operator_c1202.f90: Ditto.
        * parens_7.f90: Ditto.
        * pr32921.f: Ditto.
        * pr33646.f90: Ditto.
        * pr41928.f90: Ditto.
        * pr42119.f90: Ditto.
        * pr43984.f90: Ditto.
        * present_1.f90: Ditto.
        * private_type_2.f90: Ditto.
        * proc_decl_2.f90: Ditto.
        * proc_ptr_10.f90: Ditto.
        * proc_ptr_22.f90: Ditto.
        * proc_ptr_8.f90: Ditto.
        * proc_ptr_comp_12.f90: Ditto.
        * proc_ptr_comp_pass_6.f90: Ditto.
        * pure_formal_proc_2.f90: Ditto.
        * realloc_on_assign_4.f03: Ditto.
        * substring_equivalence.f90: Ditto.
        * transfer_assumed_size_1.f90: Ditto.
        * transpose_optimization_1.f90: Ditto.
        * trim_optimize_6.f90: Ditto.
        * typebound_call_12.f03: Ditto.
        * typebound_operator_5.f03: Ditto.
        * typebound_operator_6.f03: Ditto.
        * typebound_proc_18.f03: Ditto.
        * unreferenced_use_assoc_1.f90: Ditto.
        * use_1.f90: Ditto.
        * use_10.f90: Ditto.
        * use_11.f90: Ditto.
        * use_14.f90: Ditto.
        * use_only_2.f90: Ditto.
        * use_rename_4.f90: Ditto.
        * use_rename_5.f90: Ditto.
        * used_dummy_types_3.f90: Ditto.
        * used_interface_ref.f90: Ditto.
        * used_types_11.f90: Ditto.
        * used_types_3.f90: Ditto.
        * used_types_4.f90: Ditto.
        * userdef_operator_2.f90: Ditto.
        * vect/fast-math-vect-8.f90: Ditto.
        * vect/pr46213.f90: Ditto.
        * whole_file_21.f90: Ditto.
        * whole_file_22.f90: Ditto.
        * coarray_lib_token_1.f90: Ditto. Add space before "}".
        * coarray_lib_token_2.f90: Ditto.

From-SVN: r177184
parent f9adb9d4
Showing with 259 additions and 84 deletions
gcc/testsuite/ChangeLog
2011-08-02 Tobias Burnus <burnus@net-b.de>
* trim_optimize_5.f90: Remove spurious "use foo".
* actual_array_vect_1.f90: Fix or add dg-final cleanup-module
* alloc_comp_assign_7.f90: Ditto.
* allocatable_function_5.f90: Ditto.
* allocate_stat.f90: Ditto.
* array_constructor_20.f90: Ditto.
* array_constructor_21.f90: Ditto.
* array_constructor_22.f90: Ditto.
* array_constructor_26.f03: Ditto.
* array_function_4.f90: Ditto.
* assumed_charlen_function_1.f90: Ditto.
* assumed_size_dt_dummy.f90: Ditto.
* bind_c_usage_15.f90: Ditto.
* bind_c_usage_16.f03: Ditto.
* bind_c_usage_3.f03: Ditto.
* binding_label_tests_7.f03: Ditto.
* class_15.f03: Ditto.
* class_27.f03: Ditto.
* class_33.f90: Ditto.
* class_37.f03: Ditto.
* class_40.f03: Ditto.
* class_42.f03: Ditto.
* class_defined_operator_1.f03: Ditto.
* coarray/registering_1.f90: Ditto.
* convert_1.f90: Ditto.
* default_initialization_3.f90: Ditto.
* dependency_25.f90: Ditto.
* dependency_26.f90: Ditto.
* dependency_36.f90: Ditto.
* dependency_37.f90: Ditto.
* derived_array_intrinisics_1.f90: Ditto.
* dynamic_dispatch_10.f03: Ditto.
* elemental_non_intrinsic_dummy_1.f90 |: Ditto.
* elemental_pointer_1.f90: Ditto.
* elemental_result_1.f90: Ditto.
* empty_derived_type.f90: Ditto.
* entry_7.f90: Ditto.
* entry_dummy_ref_2.f90: Ditto.
* equiv_constraint_3.f90: Ditto.
* error_recovery_3.f90: Ditto.
* extends_4.f03: Ditto.
* func_assign.f90: Ditto.
* func_assign_3.f90: Ditto.
* generic_1.f90: Ditto.
* generic_18.f90: Ditto.
* generic_22.f03: Ditto.
* generic_4.f90: Ditto.
* generic_6.f90: Ditto.
* generic_actual_arg.f90: Ditto.
* graphite/id-21.f: Ditto.
* graphite/pr45758.f90: Ditto.
* host_assoc_call_2.f90: Ditto.
* host_assoc_call_3.f90: Ditto.
* host_assoc_call_4.f90: Ditto.
* host_assoc_function_4.f90: Ditto.
* host_used_types_1.f90: Ditto.
* implicit_1.f90: Ditto.
* implicit_11.f90: Ditto.
* implicit_derived_type_1.f90: Ditto.
* impure_actual_1.f90: Ditto.
* impure_assignment_1.f90: Ditto.
* impure_constructor_1.f90: Ditto.
* initialization_10.f90: Ditto.
* initialization_12.f90: Ditto.
* interface_14.f90: Ditto.
* interface_15.f90: Ditto.
* interface_2.f90: Ditto.
* interface_25.f90: Ditto.
* interface_26.f90: Ditto.
* interface_29.f90: Ditto.
* interface_assignment_1.f90: Ditto.
* internal_pack_6.f90: Ditto.
* internal_pack_7.f90: Ditto.
* internal_pack_8.f90: Ditto.
* lto/pr45586_0.f90: Ditto.
* lto/pr47839_0.f90: Ditto.
* module_commons_3.f90: Ditto.
* module_equivalence_4.f90: Ditto.
* module_equivalence_6.f90: Ditto.
* module_function_type_1.f90: Ditto.
* module_naming_1.f90: Ditto.
* namelist_4.f90: Ditto.
* operator_c1202.f90: Ditto.
* parens_7.f90: Ditto.
* pr32921.f: Ditto.
* pr33646.f90: Ditto.
* pr41928.f90: Ditto.
* pr42119.f90: Ditto.
* pr43984.f90: Ditto.
* present_1.f90: Ditto.
* private_type_2.f90: Ditto.
* proc_decl_2.f90: Ditto.
* proc_ptr_10.f90: Ditto.
* proc_ptr_22.f90: Ditto.
* proc_ptr_8.f90: Ditto.
* proc_ptr_comp_12.f90: Ditto.
* proc_ptr_comp_pass_6.f90: Ditto.
* pure_formal_proc_2.f90: Ditto.
* realloc_on_assign_4.f03: Ditto.
* substring_equivalence.f90: Ditto.
* transfer_assumed_size_1.f90: Ditto.
* transpose_optimization_1.f90: Ditto.
* trim_optimize_6.f90: Ditto.
* typebound_call_12.f03: Ditto.
* typebound_operator_5.f03: Ditto.
* typebound_operator_6.f03: Ditto.
* typebound_proc_18.f03: Ditto.
* unreferenced_use_assoc_1.f90: Ditto.
* use_1.f90: Ditto.
* use_10.f90: Ditto.
* use_11.f90: Ditto.
* use_14.f90: Ditto.
* use_only_2.f90: Ditto.
* use_rename_4.f90: Ditto.
* use_rename_5.f90: Ditto.
* used_dummy_types_3.f90: Ditto.
* used_interface_ref.f90: Ditto.
* used_types_11.f90: Ditto.
* used_types_3.f90: Ditto.
* used_types_4.f90: Ditto.
* userdef_operator_2.f90: Ditto.
* vect/fast-math-vect-8.f90: Ditto.
* vect/pr46213.f90: Ditto.
* whole_file_21.f90: Ditto.
* whole_file_22.f90: Ditto.
* coarray_lib_token_1.f90: Ditto. Add space before "}".
* coarray_lib_token_2.f90: Ditto.
2011-08-02 Kai Tietz <ktietz@redhat.com> 2011-08-02 Kai Tietz <ktietz@redhat.com>
* gcc.dg/tree-ssa/forwprop-15.c: New testcase. * gcc.dg/tree-ssa/forwprop-15.c: New testcase.
......
gcc/testsuite/gfortran.dg/actual_array_vect_1.f90
...@@ -31,3 +31,5 @@ call bb(w(2:4)) ...@@ -31,3 +31,5 @@ call bb(w(2:4))
call bb(w((/3,2,1/))) ! { dg-error "vector subscript" } call bb(w((/3,2,1/))) ! { dg-error "vector subscript" }
write(*,*)w write(*,*)w
end end
! { dg-final { cleanup-modules "mod" } }
gcc/testsuite/gfortran.dg/alloc_comp_assign_7.f90
...@@ -37,4 +37,4 @@ end module PrettyPix_module ...@@ -37,4 +37,4 @@ end module PrettyPix_module
end do end do
end end
! { dg-final { cleanup-modules "PrettyPix_module" } } ! { dg-final { cleanup-modules "prettypix_module" } }
gcc/testsuite/gfortran.dg/allocatable_function_5.f90
...@@ -46,3 +46,5 @@ contains ...@@ -46,3 +46,5 @@ contains
bar = carg(1:12) bar = carg(1:12)
end function end function
end end
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/allocate_stat.f90
...@@ -74,3 +74,4 @@ contains ...@@ -74,3 +74,4 @@ contains
if(associated(p)) deallocate(p) if(associated(p)) deallocate(p)
end subroutine sub end subroutine sub
end module test end module test
! { dg-final { cleanup-modules "test" } }
gcc/testsuite/gfortran.dg/array_constructor_20.f90
...@@ -19,4 +19,4 @@ CONTAINS ...@@ -19,4 +19,4 @@ CONTAINS
end subroutine end subroutine
END MODULE s_TESTS END MODULE s_TESTS
! { dg-final { cleanup-modules "m s_TESTS" } } ! { dg-final { cleanup-modules "m s_tests" } }
gcc/testsuite/gfortran.dg/array_constructor_21.f90
...@@ -33,4 +33,4 @@ ...@@ -33,4 +33,4 @@
UDS0L = SEQ(RESHAPE ( (/ ((CA_T(J1,J2), J1 = 1, 1), J2 = 1, 2)/),(/2/))) UDS0L = SEQ(RESHAPE ( (/ ((CA_T(J1,J2), J1 = 1, 1), J2 = 1, 2)/),(/2/)))
END SUBROUTINE END SUBROUTINE
END END
! { dg-final { cleanup-modules "o_TYPE_DEFS TESTS" } } ! { dg-final { cleanup-modules "o_type_defs tests" } }
gcc/testsuite/gfortran.dg/array_constructor_22.f90
...@@ -25,3 +25,4 @@ program len_test ...@@ -25,3 +25,4 @@ program len_test
write(*,*) my_string(x) write(*,*) my_string(x)
end program len_test end program len_test
! { dg-final { cleanup-modules "test" } }
gcc/testsuite/gfortran.dg/array_constructor_26.f03
...@@ -16,4 +16,4 @@ MODULE WinData ...@@ -16,4 +16,4 @@ MODULE WinData
END TYPE TWindowData END TYPE TWindowData
END MODULE WinData END MODULE WinData
! { dg-final { cleanup-modules "WinData" } } ! { dg-final { cleanup-modules "windata" } }
gcc/testsuite/gfortran.dg/array_function_4.f90
...@@ -26,4 +26,4 @@ CONTAINS ...@@ -26,4 +26,4 @@ CONTAINS
end function lenf end function lenf
END MODULE B1 END MODULE B1
! { dg-final { cleanup-modules "B1" } } ! { dg-final { cleanup-modules "b1" } }
gcc/testsuite/gfortran.dg/assumed_charlen_function_1.f90
...@@ -77,4 +77,4 @@ end function not_OK ...@@ -77,4 +77,4 @@ end function not_OK
END END
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/assumed_size_dt_dummy.f90
...@@ -15,4 +15,4 @@ END MODULE TEST ...@@ -15,4 +15,4 @@ END MODULE TEST
end end
! { dg-final { cleanup-modules "TEST" } } ! { dg-final { cleanup-modules "test" } }
gcc/testsuite/gfortran.dg/bind_c_usage_15.f90
...@@ -27,3 +27,5 @@ program main ...@@ -27,3 +27,5 @@ program main
call gen(x) call gen(x)
if(x /= 17) call abort() if(x /= 17) call abort()
end program main end program main
! { dg-final { cleanup-modules "mod" } }
gcc/testsuite/gfortran.dg/bind_c_usage_16.f03
...@@ -55,3 +55,5 @@ subroutine test() bind(c) ...@@ -55,3 +55,5 @@ subroutine test() bind(c)
if(iachar(d(i)(2:2)) /=32 .or. iachar(d(i)(3:3)) /= 32) call abort() if(iachar(d(i)(2:2)) /=32 .or. iachar(d(i)(3:3)) /= 32) call abort()
end do end do
end subroutine end subroutine
! { dg-final { cleanup-modules "mod" } }
gcc/testsuite/gfortran.dg/bind_c_usage_3.f03
...@@ -17,3 +17,4 @@ module test ...@@ -17,3 +17,4 @@ module test
type(foo), bind(c) :: cp ! { dg-error "is not C interoperable" } type(foo), bind(c) :: cp ! { dg-error "is not C interoperable" }
real(c_double), pointer,bind(c) :: p ! { dg-error "cannot have both the POINTER and BIND.C." } real(c_double), pointer,bind(c) :: p ! { dg-error "cannot have both the POINTER and BIND.C." }
end module test end module test
! { dg-final { cleanup-modules "test" } }
gcc/testsuite/gfortran.dg/binding_label_tests_7.f03
...@@ -13,3 +13,5 @@ end interface ...@@ -13,3 +13,5 @@ end interface
call my_c_print() call my_c_print()
end program main end program main
! { dg-final { cleanup-modules "a" } }
gcc/testsuite/gfortran.dg/class_15.f03
...@@ -40,4 +40,4 @@ module mod_D ...@@ -40,4 +40,4 @@ module mod_D
use mod_C use mod_C
end module end module
! { dg-final { cleanup-modules "mod_A mod_B mod_C mod_D" } } ! { dg-final { cleanup-modules "mod_a mod_b mod_c mod_d" } }
gcc/testsuite/gfortran.dg/class_27.f03
...@@ -64,4 +64,4 @@ module type1_type ...@@ -64,4 +64,4 @@ module type1_type
end function Type1_initProc end function Type1_initProc
end module type1_type end module type1_type
! { dg-final { cleanup-modules "type2_type extended2A_type type1_type" } } ! { dg-final { cleanup-modules "type2_type extended2a_type type1_type" } }
gcc/testsuite/gfortran.dg/class_33.f90
...@@ -10,4 +10,4 @@ module Molecular_Abundances_Structure ...@@ -10,4 +10,4 @@ module Molecular_Abundances_Structure
class(molecularAbundancesStructure), pointer :: molecules class(molecularAbundancesStructure), pointer :: molecules
end module end module
! { dg-final { cleanup-modules "Molecular_Abundances_Structure" } } ! { dg-final { cleanup-modules "molecular_abundances_structure" } }
gcc/testsuite/gfortran.dg/class_37.f03
...@@ -260,4 +260,4 @@ subroutine psb_cdall(ictxt, desc, info,mg,ng,vg,vl,flag,nl,repl, globalcheck) ...@@ -260,4 +260,4 @@ subroutine psb_cdall(ictxt, desc, info,mg,ng,vg,vl,flag,nl,repl, globalcheck)
end subroutine psb_cdall end subroutine psb_cdall
! { dg-final { cleanup-modules "psb_penv_mod psb_indx_map_mod psb_gen_block_map_mod psb_descriptor_type psb_cd_if_tools_mod psb_cd_tools_mod psb_base_tools_mod" } }
gcc/testsuite/gfortran.dg/class_40.f03
...@@ -33,4 +33,4 @@ program test ...@@ -33,4 +33,4 @@ program test
call walk (node) call walk (node)
end program end program
! { dg-final { cleanup-modules "Tree_Nodes Merger_Trees Merger_Tree_Build" } } ! { dg-final { cleanup-modules "tree_nodes merger_trees merger_tree_build" } }
gcc/testsuite/gfortran.dg/class_42.f03
...@@ -13,4 +13,4 @@ contains ...@@ -13,4 +13,4 @@ contains
end subroutine end subroutine
end module end module
! { dg-final { cleanup-modules "Overload_AnException_Impl" } } ! { dg-final { cleanup-modules "overload_anexception_impl" } }
gcc/testsuite/gfortran.dg/class_defined_operator_1.f03
...@@ -100,3 +100,5 @@ contains ...@@ -100,3 +100,5 @@ contains
this = this*scale this = this*scale
end subroutine end subroutine
end program end program
! { dg-final { cleanup-modules "bar_module foo_module" } }
gcc/testsuite/gfortran.dg/coarray/registering_1.f90
...@@ -39,3 +39,5 @@ contains ...@@ -39,3 +39,5 @@ contains
if (not_refed /= 784) call abort() if (not_refed /= 784) call abort()
end subroutine uncalled end subroutine uncalled
end subroutine test end subroutine test
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/coarray_lib_token_1.f90
...@@ -55,7 +55,7 @@ end program main ...@@ -55,7 +55,7 @@ end program main
! void * restrict caf_token.4, integer(kind=8) caf_offset.5, ! void * restrict caf_token.4, integer(kind=8) caf_offset.5,
! void * restrict caf_token.6, integer(kind=8) caf_offset.7) ! void * restrict caf_token.6, integer(kind=8) caf_offset.7)
! !
! { dg-final { scan-tree-dump-times "sub \\(integer.kind=4. . restrict x1, integer.kind=4. . restrict x2, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub \\(integer.kind=4. . restrict x1, integer.kind=4. . restrict x2, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+\\)" 1 "original" } }
! !
! PROTOTYPE 2: ! PROTOTYPE 2:
! !
...@@ -63,26 +63,26 @@ end program main ...@@ -63,26 +63,26 @@ end program main
! void * restrict caf_token.0, integer(kind=8) caf_offset.1, ! void * restrict caf_token.0, integer(kind=8) caf_offset.1,
! void * restrict caf_token.2, integer(kind=8) caf_offset.3) ! void * restrict caf_token.2, integer(kind=8) caf_offset.3)
! !
! { dg-final { scan-tree-dump-times "sub2 \\(integer.kind=4. . restrict y1, integer.kind=4. . restrict y2, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub2 \\(integer.kind=4. . restrict y1, integer.kind=4. . restrict y2, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+\\)" 1 "original" } }
! !
! CALL 1 ! CALL 1
! !
! sub ((integer(kind=4) *) caf, &caf_dt->b, caf_token.9, 0, caf_token.10, 4); ! sub ((integer(kind=4) *) caf, &caf_dt->b, caf_token.9, 0, caf_token.10, 4);
! !
! { dg-final { scan-tree-dump-times "sub \\(\[^,\]*caf, &caf_dt->b, caf_token.\[0-9\]+, 0, caf_token.\[0-9\]+, 4\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub \\(\[^,\]*caf, &caf_dt->b, caf_token.\[0-9\]+, 0, caf_token.\[0-9\]+, 4\\)" 1 "original" } }
! !
! sub2 ((integer(kind=4) *) x1, (integer(kind=4) *) x2, ! sub2 ((integer(kind=4) *) x1, (integer(kind=4) *) x2,
! caf_token.4, NON_LVALUE_EXPR <caf_offset.5>, ! caf_token.4, NON_LVALUE_EXPR <caf_offset.5>,
! caf_token.6, NON_LVALUE_EXPR <caf_offset.7>); ! caf_token.6, NON_LVALUE_EXPR <caf_offset.7>);
! !
! { dg-final { scan-tree-dump-times "sub2 \\(\[^,\]*x1, \[^,\]*x2, caf_token.\[0-9]+, \[^,\]*caf_offset\[^,\]*, caf_token.\[0-9\]+, \[^,\]*caf_offset\[^,\]*\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub2 \\(\[^,\]*x1, \[^,\]*x2, caf_token.\[0-9]+, \[^,\]*caf_offset\[^,\]*, caf_token.\[0-9\]+, \[^,\]*caf_offset\[^,\]*\\)" 1 "original" } }
! !
! CALL 3 ! CALL 3
! !
! { dg-final { scan-tree-dump-times "sub_opt \\(0B, 0B, 0\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub_opt \\(0B, 0B, 0\\)" 1 "original" } }
! !
! CALL 4 ! CALL 4
! !
! { dg-final { scan-tree-dump-times "sub_opt \\(.integer.kind=4. .. caf, caf_token.\[0-9\]+, 0\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub_opt \\(.integer.kind=4. .. caf, caf_token.\[0-9\]+, 0\\)" 1 "original" } }
! !
! { dg-final { cleanup-tree-dump "original" } } ! { dg-final { cleanup-tree-dump "original" } }
gcc/testsuite/gfortran.dg/coarray_lib_token_2.f90
...@@ -81,7 +81,7 @@ end program main ...@@ -81,7 +81,7 @@ end program main
! void * restrict caf_token.4, integer(kind=8) caf_offset.5, ! void * restrict caf_token.4, integer(kind=8) caf_offset.5,
! void * restrict caf_token.6, integer(kind=8) caf_offset.7) ! void * restrict caf_token.6, integer(kind=8) caf_offset.7)
! !
! { dg-final { scan-tree-dump-times "sub \\(integer.kind=4. . restrict x1, integer.kind=4. . restrict x2, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub \\(integer.kind=4. . restrict x1, integer.kind=4. . restrict x2, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+\\)" 1 "original" } }
! !
! PROTOTYPE 2: ! PROTOTYPE 2:
! !
...@@ -89,27 +89,28 @@ end program main ...@@ -89,27 +89,28 @@ end program main
! void * restrict caf_token.0, integer(kind=8) caf_offset.1, ! void * restrict caf_token.0, integer(kind=8) caf_offset.1,
! void * restrict caf_token.2, integer(kind=8) caf_offset.3) ! void * restrict caf_token.2, integer(kind=8) caf_offset.3)
! !
! { dg-final { scan-tree-dump-times "sub2 \\(integer.kind=4. . restrict y1, integer.kind=4. . restrict y2, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub2 \\(integer.kind=4. . restrict y1, integer.kind=4. . restrict y2, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+, void . restrict caf_token.\[0-9\]+, integer.kind=.. caf_offset.\[0-9\]+\\)" 1 "original" } }
! !
! CALL 1 ! CALL 1
! !
! sub ((integer(kind=4) *) caf.data, &((struct t * restrict) caf_dt.data)->b, ! sub ((integer(kind=4) *) caf.data, &((struct t * restrict) caf_dt.data)->b,
! caf.token, 0, caf_dt.token, 4); ! caf.token, 0, caf_dt.token, 4);
! !
! { dg-final { scan-tree-dump-times "sub \\(\[^,\]*caf.data, &\[^,\]*caf_dt.data.->b, caf.token, 0, caf_dt.token, 4\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub \\(\[^,\]*caf.data, &\[^,\]*caf_dt.data.->b, caf.token, 0, caf_dt.token, 4\\)" 1 "original" } }
! !
! sub2 ((integer(kind=4) *) x1, (integer(kind=4) *) x2, ! sub2 ((integer(kind=4) *) x1, (integer(kind=4) *) x2,
! caf_token.4, NON_LVALUE_EXPR <caf_offset.5>, ! caf_token.4, NON_LVALUE_EXPR <caf_offset.5>,
! caf_token.6, NON_LVALUE_EXPR <caf_offset.7>); ! caf_token.6, NON_LVALUE_EXPR <caf_offset.7>);
! !
! { dg-final { scan-tree-dump-times "sub2 \\(\[^,\]*x1, \[^,\]*x2, caf_token.\[0-9]+, \[^,\]*caf_offset\[^,\]*, caf_token.\[0-9\]+, \[^,\]*caf_offset\[^,\]*\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub2 \\(\[^,\]*x1, \[^,\]*x2, caf_token.\[0-9]+, \[^,\]*caf_offset\[^,\]*, caf_token.\[0-9\]+, \[^,\]*caf_offset\[^,\]*\\)" 1 "original" } }
! !
! CALL 3 ! CALL 3
! !
! { dg-final { scan-tree-dump-times "sub_opt \\(0B, 0B, 0\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub_opt \\(0B, 0B, 0\\)" 1 "original" } }
! !
! CALL 4 ! CALL 4
! !
! { dg-final { scan-tree-dump-times "sub_opt \\(.integer.kind=4. .. caf.data, caf.token, 0\\)" 1 "original"} } ! { dg-final { scan-tree-dump-times "sub_opt \\(.integer.kind=4. .. caf.data, caf.token, 0\\)" 1 "original" } }
! !
! { dg-final { cleanup-tree-dump "original" } } ! { dg-final { cleanup-tree-dump "original" } }
! { dg-final { cleanup-modules "matrix_data" } }
gcc/testsuite/gfortran.dg/convert_1.f90
...@@ -15,4 +15,4 @@ USE MODULE_B ...@@ -15,4 +15,4 @@ USE MODULE_B
a = 0 a = 0
END END
! { dg-final { cleanup-modules "MODULE_A MODULE_B" } } ! { dg-final { cleanup-modules "module_a module_b" } }
gcc/testsuite/gfortran.dg/default_initialization_3.f90
...@@ -105,4 +105,4 @@ END ...@@ -105,4 +105,4 @@ END
call other call other
call dominique call dominique
end end
! { dg-final { cleanup-modules "demo M1" } } ! { dg-final { cleanup-modules "demo m1" } }
gcc/testsuite/gfortran.dg/dependency_25.f90
...@@ -92,4 +92,4 @@ program TestProgram ...@@ -92,4 +92,4 @@ program TestProgram
if (any (abs(Table%RealData(:,[1,2,3,5]) - 42) > epsilon(1.0))) call abort () if (any (abs(Table%RealData(:,[1,2,3,5]) - 42) > epsilon(1.0))) call abort ()
end program TestProgram end program TestProgram
! { dg-final { cleanup-modules "UnitValue_Module" } } ! { dg-final { cleanup-modules "unitvalue_module" } }
gcc/testsuite/gfortran.dg/dependency_26.f90
...@@ -47,7 +47,7 @@ END MODULE M1 ...@@ -47,7 +47,7 @@ END MODULE M1
cell%h = reshape ([(real(i), i = 1, 9)], [3, 3]) cell%h = reshape ([(real(i), i = 1, 9)], [3, 3])
call s1 (cell) call s1 (cell)
end end
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
! { dg-final { scan-tree-dump-times "&a" 1 "original" } } ! { dg-final { scan-tree-dump-times "&a" 1 "original" } }
! { dg-final { scan-tree-dump-times "pack" 0 "original" } } ! { dg-final { scan-tree-dump-times "pack" 0 "original" } }
! { dg-final { cleanup-tree-dump "original" } } ! { dg-final { cleanup-tree-dump "original" } }
gcc/testsuite/gfortran.dg/dependency_36.f90
...@@ -26,3 +26,5 @@ CONTAINS ...@@ -26,3 +26,5 @@ CONTAINS
x = matmul(a,b) ! { dg-warning "Creating array temporary" } x = matmul(a,b) ! { dg-warning "Creating array temporary" }
END SUBROUTINE GeneticOptimize END SUBROUTINE GeneticOptimize
END MODULE m END MODULE m
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/dependency_37.f90
...@@ -46,4 +46,4 @@ program TestProgram ...@@ -46,4 +46,4 @@ program TestProgram
Table%RealData = 1 Table%RealData = 1
Table%RealData(:,1) = Table%RealData(:,1) * CENTIMETER Table%RealData(:,1) = Table%RealData(:,1) * CENTIMETER
end program TestProgram end program TestProgram
! { dg-final { cleanup-modules "UnitValue_Module" } } ! { dg-final { cleanup-modules "unitvalue_module" } }
gcc/testsuite/gfortran.dg/derived_array_intrinisics_1.f90
...@@ -29,3 +29,4 @@ ...@@ -29,3 +29,4 @@
end end
! { dg-final { scan-tree-dump-times "j = 50" 1 "original" } } ! { dg-final { scan-tree-dump-times "j = 50" 1 "original" } }
! { dg-final { cleanup-tree-dump "original" } } ! { dg-final { cleanup-tree-dump "original" } }
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/dynamic_dispatch_10.f03
...@@ -168,4 +168,4 @@ program main ...@@ -168,4 +168,4 @@ program main
end end
! { dg-final { cleanup-modules "BaseStrategy LaxWendroffStrategy KEStrategy" } } ! { dg-final { cleanup-modules "basestrategy laxwendroffstrategy kestrategy" } }
gcc/testsuite/gfortran.dg/elemental_non_intrinsic_dummy_1.f90
...@@ -20,4 +20,4 @@ INTEGER FUNCTION SUB(XX) ...@@ -20,4 +20,4 @@ INTEGER FUNCTION SUB(XX)
SUB=XX() SUB=XX()
END END
! { dg-final { cleanup-modules "TT" } } ! { dg-final { cleanup-modules "tt" } }
gcc/testsuite/gfortran.dg/elemental_pointer_1.f90
...@@ -10,4 +10,4 @@ CONTAINS ...@@ -10,4 +10,4 @@ CONTAINS
END FUNCTION LL END FUNCTION LL
END MODULE Test END MODULE Test
! { dg-final { cleanup-modules "Test" } } ! { dg-final { cleanup-modules "test" } }
gcc/testsuite/gfortran.dg/elemental_result_1.f90
...@@ -18,4 +18,4 @@ CONTAINS ...@@ -18,4 +18,4 @@ CONTAINS
INTEGER, pointer :: MM ! { dg-error "conflicts with ELEMENTAL" } INTEGER, pointer :: MM ! { dg-error "conflicts with ELEMENTAL" }
END FUNCTION MM END FUNCTION MM
END MODULE Test END MODULE Test
! { dg-final { cleanup-modules "Test" } } ! { dg-final { cleanup-modules "test" } }
gcc/testsuite/gfortran.dg/empty_derived_type.f90
...@@ -5,3 +5,5 @@ module stuff ...@@ -5,3 +5,5 @@ module stuff
! Empty! ! Empty!
end type junk end type junk
end module stuff end module stuff
! { dg-final { cleanup-modules "stuff" } }
gcc/testsuite/gfortran.dg/entry_7.f90
...@@ -24,4 +24,4 @@ CONTAINS ...@@ -24,4 +24,4 @@ CONTAINS
END MODULE TT END MODULE TT
! { dg-final { cleanup-modules "TT" } } ! { dg-final { cleanup-modules "tt" } }
gcc/testsuite/gfortran.dg/entry_dummy_ref_2.f90
...@@ -17,4 +17,4 @@ END FUNCTION F1 ...@@ -17,4 +17,4 @@ END FUNCTION F1
END MODULE M1 END MODULE M1
END END
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/equiv_constraint_3.f90
...@@ -10,4 +10,4 @@ INTEGER :: L ...@@ -10,4 +10,4 @@ INTEGER :: L
EQUIVALENCE(K,L) ! { dg-error "conflicts with USE ASSOCIATED attribute" } EQUIVALENCE(K,L) ! { dg-error "conflicts with USE ASSOCIATED attribute" }
END END
! { dg-final { cleanup-modules "TEST" } } ! { dg-final { cleanup-modules "test" } }
gcc/testsuite/gfortran.dg/error_recovery_3.f90
...@@ -7,5 +7,5 @@ MODULE M1 ...@@ -7,5 +7,5 @@ MODULE M1
END MODULE M1 END MODULE M1
USE M1, ONLY: I,&! { dg-error "Missing" } USE M1, ONLY: I,&! { dg-error "Missing" }
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/extends_4.f03
...@@ -49,4 +49,4 @@ end module mymod ...@@ -49,4 +49,4 @@ end module mymod
call check_b (q%b) call check_b (q%b)
end end
! { dg-final { cleanup-modules "persons person_education" } } ! { dg-final { cleanup-modules "mymod" } }
gcc/testsuite/gfortran.dg/func_assign.f90
...@@ -31,3 +31,5 @@ contains ...@@ -31,3 +31,5 @@ contains
end module mod end module mod
end end
! { dg-final { cleanup-modules "mod" } }
gcc/testsuite/gfortran.dg/func_assign_3.f90
...@@ -29,4 +29,4 @@ program bugTest ...@@ -29,4 +29,4 @@ program bugTest
testCatch = testObj%test(2,2) ! This would cause an ICE testCatch = testObj%test(2,2) ! This would cause an ICE
if (any (testCatch .ne. dble (reshape ([(i, i = 1, 4)],[2,2])))) call abort if (any (testCatch .ne. dble (reshape ([(i, i = 1, 4)],[2,2])))) call abort
end program bugTest end program bugTest
! { dg-final { cleanup-modules "bugTestMod" } } ! { dg-final { cleanup-modules "bugtestmod" } }
gcc/testsuite/gfortran.dg/generic_1.f90
...@@ -18,4 +18,4 @@ subroutine BAZ(X) ...@@ -18,4 +18,4 @@ subroutine BAZ(X)
use FOO use FOO
end subroutine end subroutine
! { dg-final { cleanup-modules "FOO" } } ! { dg-final { cleanup-modules "foo" } }
gcc/testsuite/gfortran.dg/generic_18.f90
...@@ -51,4 +51,4 @@ END PROGRAM MakeAChoice ...@@ -51,4 +51,4 @@ END PROGRAM MakeAChoice
! { dg-final { scan-tree-dump-times "specproc" 3 "original" } } ! { dg-final { scan-tree-dump-times "specproc" 3 "original" } }
! { dg-final { scan-tree-dump-times "elemproc" 3 "original" } } ! { dg-final { scan-tree-dump-times "elemproc" 3 "original" } }
! { dg-final { cleanup-tree-dump "original" } } ! { dg-final { cleanup-tree-dump "original" } }
! { dg-final { cleanup-modules "SomeOptions" } } ! { dg-final { cleanup-modules "someoptions" } }
gcc/testsuite/gfortran.dg/generic_22.f03
...@@ -35,4 +35,4 @@ contains ...@@ -35,4 +35,4 @@ contains
end module base_mod end module base_mod
! { dg-final { cleanup-modules "m" } } ! { dg-final { cleanup-modules "base_mod" } }
gcc/testsuite/gfortran.dg/generic_4.f90
...@@ -27,4 +27,4 @@ call baz(y,z) ...@@ -27,4 +27,4 @@ call baz(y,z)
if (any (y /= z)) call abort () if (any (y /= z)) call abort ()
end end
! { dg-final { cleanup-modules "FOO" } } ! { dg-final { cleanup-modules "foo" } }
gcc/testsuite/gfortran.dg/generic_6.f90
...@@ -46,4 +46,4 @@ end module ...@@ -46,4 +46,4 @@ end module
use c use c
call useCreate call useCreate
end end
! { dg-final { cleanup-modules "A B C" } } ! { dg-final { cleanup-modules "a b c" } }
gcc/testsuite/gfortran.dg/generic_actual_arg.f90
...@@ -42,4 +42,4 @@ END ...@@ -42,4 +42,4 @@ END
SUBROUTINE F() SUBROUTINE F()
END SUBROUTINE END SUBROUTINE
! { dg-final { cleanup-modules "TEST TEST2" } } ! { dg-final { cleanup-modules "test test2" } }
gcc/testsuite/gfortran.dg/graphite/id-21.f
...@@ -18,3 +18,5 @@ ...@@ -18,3 +18,5 @@
END DO END DO
ENDDO ENDDO
END END
! { dg-final { cleanup-modules "les3d_data" } }
gcc/testsuite/gfortran.dg/graphite/pr45758.f90
...@@ -38,4 +38,4 @@ CONTAINS ...@@ -38,4 +38,4 @@ CONTAINS
ENDDO ENDDO
END SUBROUTINE create_destination_list END SUBROUTINE create_destination_list
END MODULE END MODULE
! { dg-final { cleanup-modules "util" } }
gcc/testsuite/gfortran.dg/host_assoc_call_2.f90
...@@ -15,4 +15,4 @@ contains ...@@ -15,4 +15,4 @@ contains
call InitialDiatomicX () ! { dg-error "which is not consistent with the CALL" } call InitialDiatomicX () ! { dg-error "which is not consistent with the CALL" }
end subroutine FindDiatomicPeriod end subroutine FindDiatomicPeriod
end module Diatoms end module Diatoms
! { dg-final { cleanup-modules "Diatoms" } } ! { dg-final { cleanup-modules "diatoms" } }
gcc/testsuite/gfortran.dg/host_assoc_call_3.f90
...@@ -52,4 +52,4 @@ END MODULE ...@@ -52,4 +52,4 @@ END MODULE
CALL S3 CALL S3
call S4 call S4
END END
! { dg-final { cleanup-modules "M1 M2" } } ! { dg-final { cleanup-modules "m1 m2" } }
gcc/testsuite/gfortran.dg/host_assoc_call_4.f90
...@@ -45,4 +45,4 @@ contains ...@@ -45,4 +45,4 @@ contains
call GetBasicElementData (TargetElement, ProcedureName, ErrorNumber, ErrorLevel, ErrorMessage, CallingStat) call GetBasicElementData (TargetElement, ProcedureName, ErrorNumber, ErrorLevel, ErrorMessage, CallingStat)
end subroutine WH_ERR end subroutine WH_ERR
end module ErrorMod end module ErrorMod
! { dg-final { cleanup-modules "ErrElmnt ErrorMod" } } ! { dg-final { cleanup-modules "errelmnt errormod" } }
gcc/testsuite/gfortran.dg/host_assoc_function_4.f90
...@@ -27,4 +27,4 @@ END MODULE ...@@ -27,4 +27,4 @@ END MODULE
USE M2 USE M2
CALL S2 CALL S2
END END
! { dg-final { cleanup-modules "M1 M2" } } ! { dg-final { cleanup-modules "m1 m2" } }
gcc/testsuite/gfortran.dg/host_used_types_1.f90
...@@ -39,4 +39,4 @@ contains ...@@ -39,4 +39,4 @@ contains
end module ThermoData end module ThermoData
! { dg-final { cleanup-modules "ModelParams ThermoData" } } ! { dg-final { cleanup-modules "modelparams thermodata" } }
gcc/testsuite/gfortran.dg/implicit_1.f90
...@@ -9,4 +9,4 @@ implicit none ...@@ -9,4 +9,4 @@ implicit none
common/rommel/aaa ! { dg-error "no IMPLICIT type" "no IMPLICIT type" } common/rommel/aaa ! { dg-error "no IMPLICIT type" "no IMPLICIT type" }
end end
! { dg-final { cleanup-modules "AHFinder_dat" } } ! { dg-final { cleanup-modules "ahfinder_dat" } }
gcc/testsuite/gfortran.dg/implicit_11.f90
...@@ -35,4 +35,4 @@ ...@@ -35,4 +35,4 @@
END SUBROUTINE END SUBROUTINE
END MODULE tests2 END MODULE tests2
! { dg-final { cleanup-modules "TESTS" } } ! { dg-final { cleanup-modules "tests" } }
gcc/testsuite/gfortran.dg/implicit_derived_type_1.f90
...@@ -18,3 +18,5 @@ contains ...@@ -18,3 +18,5 @@ contains
print *, x(1)%i print *, x(1)%i
end subroutine s end subroutine s
end module m end module m
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/impure_actual_1.f90
...@@ -21,5 +21,5 @@ USE M1 ...@@ -21,5 +21,5 @@ USE M1
write(6,*) J(L) ! { dg-error "Expected a PURE procedure for argument" } write(6,*) J(L) ! { dg-error "Expected a PURE procedure for argument" }
END END
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/impure_assignment_1.f90
...@@ -24,5 +24,5 @@ PURE SUBROUTINE S2(I,J) ...@@ -24,5 +24,5 @@ PURE SUBROUTINE S2(I,J)
I=J ! { dg-error "is not PURE" } I=J ! { dg-error "is not PURE" }
END SUBROUTINE S2 END SUBROUTINE S2
END END
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/impure_constructor_1.f90
...@@ -27,4 +27,4 @@ contains ...@@ -27,4 +27,4 @@ contains
end subroutine foo end subroutine foo
end module m end module m
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/initialization_10.f90
...@@ -29,4 +29,4 @@ end select ...@@ -29,4 +29,4 @@ end select
END SUBROUTINE Parser END SUBROUTINE Parser
END MODULE Readdata_mod END MODULE Readdata_mod
! { dg-final { cleanup-modules "Readdata_mod" } } ! { dg-final { cleanup-modules "readdata_mod" } }
gcc/testsuite/gfortran.dg/initialization_12.f90
...@@ -26,4 +26,4 @@ module AtmoIonoSphere ...@@ -26,4 +26,4 @@ module AtmoIonoSphere
use AtmoIono use AtmoIono
end module AtmoIonoSphere end module AtmoIonoSphere
! { dg-final { cleanup-modules "EGOPS_Utilities AtmoIono AtmoIonoSphere" } } ! { dg-final { cleanup-modules "egops_utilities atmoiono atmoionosphere" } }
gcc/testsuite/gfortran.dg/interface_14.f90
...@@ -70,4 +70,4 @@ ...@@ -70,4 +70,4 @@
call new (b) call new (b)
end end
! { dg-final { cleanup-modules "P_class S_Class T_Class D_Class poly_Class" } } ! { dg-final { cleanup-modules "p_class s_class t_class d_class poly_class" } }
gcc/testsuite/gfortran.dg/interface_15.f90
...@@ -19,4 +19,4 @@ CONTAINS ...@@ -19,4 +19,4 @@ CONTAINS
END FUNCTION END FUNCTION
END MODULE END MODULE
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/interface_2.f90
...@@ -28,4 +28,4 @@ CONTAINS ...@@ -28,4 +28,4 @@ CONTAINS
END MODULE Compare_Float_Numbers END MODULE Compare_Float_Numbers
! { dg-final { cleanup-modules "Compare_Float_Numbers" } } ! { dg-final { cleanup-modules "compare_float_numbers" } }
gcc/testsuite/gfortran.dg/interface_25.f90
...@@ -43,3 +43,5 @@ CONTAINS ...@@ -43,3 +43,5 @@ CONTAINS
end if end if
END FUNCTION recSum END FUNCTION recSum
END PROGRAM test END PROGRAM test
! { dg-final { cleanup-modules "funcs" } }
gcc/testsuite/gfortran.dg/interface_26.f90
...@@ -44,3 +44,5 @@ CONTAINS ...@@ -44,3 +44,5 @@ CONTAINS
end if end if
END FUNCTION recSum END FUNCTION recSum
END PROGRAM test END PROGRAM test
! { dg-final { cleanup-modules "funcs" } }
gcc/testsuite/gfortran.dg/interface_29.f90
...@@ -48,5 +48,5 @@ end subroutine bar ...@@ -48,5 +48,5 @@ end subroutine bar
end subroutine end subroutine
end module test end module test
! { dg-final { cleanup-modules "m" } } ! { dg-final { cleanup-modules "m test" } }
gcc/testsuite/gfortran.dg/interface_assignment_1.f90
...@@ -36,4 +36,4 @@ CALL set(E,(E)) ...@@ -36,4 +36,4 @@ CALL set(E,(E))
IF (D%I.NE.4) call abort () IF (D%I.NE.4) call abort ()
IF (4.NE.E%I) call abort () IF (4.NE.E%I) call abort ()
END END
! { dg-final { cleanup-modules "TT" } } ! { dg-final { cleanup-modules "tt" } }
gcc/testsuite/gfortran.dg/internal_pack_6.f90
...@@ -54,6 +54,6 @@ END SUBROUTINE S2 ...@@ -54,6 +54,6 @@ END SUBROUTINE S2
call s2 call s2
end end
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
! { dg-final { scan-tree-dump-times "_gfortran_internal_pack" 0 "original" } } ! { dg-final { scan-tree-dump-times "_gfortran_internal_pack" 0 "original" } }
! { dg-final { cleanup-tree-dump "original" } } ! { dg-final { cleanup-tree-dump "original" } }
gcc/testsuite/gfortran.dg/internal_pack_7.f90
...@@ -30,6 +30,6 @@ CONTAINS ...@@ -30,6 +30,6 @@ CONTAINS
s2=0 s2=0
END FUNCTION S2 END FUNCTION S2
END MODULE M1 END MODULE M1
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
! { dg-final { scan-tree-dump-times "pack" 0 "original" } } ! { dg-final { scan-tree-dump-times "pack" 0 "original" } }
! { dg-final { cleanup-tree-dump "original" } } ! { dg-final { cleanup-tree-dump "original" } }
gcc/testsuite/gfortran.dg/internal_pack_8.f90
...@@ -30,4 +30,4 @@ END MODULE M1 ...@@ -30,4 +30,4 @@ END MODULE M1
USE M1 USE M1
CALL S1 CALL S1
END END
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/lto/pr45586_0.f90
...@@ -27,3 +27,5 @@ ...@@ -27,3 +27,5 @@
CALL S1(x) CALL S1(x)
write(6,*) x%r write(6,*) x%r
END END
! { dg-final { cleanup-modules "m1 m2" } }
gcc/testsuite/gfortran.dg/lto/pr47839_0.f90
...@@ -6,3 +6,5 @@ MODULE globalvar_mod ...@@ -6,3 +6,5 @@ MODULE globalvar_mod
integer :: xstop integer :: xstop
CONTAINS CONTAINS
END MODULE globalvar_mod END MODULE globalvar_mod
! { dg-final { cleanup-modules "globalvar_mod pec_mod" } }
gcc/testsuite/gfortran.dg/module_commons_3.f90
...@@ -54,4 +54,4 @@ PROGRAM TEST1 ...@@ -54,4 +54,4 @@ PROGRAM TEST1
call BAR (T2) call BAR (T2)
CALL FOOBAR (T2) CALL FOOBAR (T2)
END PROGRAM TEST1 END PROGRAM TEST1
! { dg-final { cleanup-modules "TEST2 TEST3 TEST4" } } ! { dg-final { cleanup-modules "test2 test3 test4" } }
gcc/testsuite/gfortran.dg/module_equivalence_4.f90
...@@ -26,4 +26,4 @@ end subroutine nudata ...@@ -26,4 +26,4 @@ end subroutine nudata
call nudata (nlibe_, a_, l_) call nudata (nlibe_, a_, l_)
end end
! { dg-final { cleanup-modules "data_C" } } ! { dg-final { cleanup-modules "data_c" } }
gcc/testsuite/gfortran.dg/module_equivalence_6.f90
...@@ -19,4 +19,4 @@ PROGRAM fortranlibtest ...@@ -19,4 +19,4 @@ PROGRAM fortranlibtest
INTEGER :: ii INTEGER :: ii
ii = H5P_DEFAULT_F ii = H5P_DEFAULT_F
END PROGRAM fortranlibtest END PROGRAM fortranlibtest
! { dg-final { cleanup-modules "H5GLOBAL HDF5" } } ! { dg-final { cleanup-modules "h5global hdf5" } }
gcc/testsuite/gfortran.dg/module_function_type_1.f90
...@@ -29,5 +29,5 @@ program C ...@@ -29,5 +29,5 @@ program C
A_var = initA() A_var = initA()
end program C end program C
! { dg-final { cleanup-modules "A B" } } ! { dg-final { cleanup-modules "a b" } }
gcc/testsuite/gfortran.dg/module_naming_1.f90
...@@ -29,4 +29,4 @@ contains ...@@ -29,4 +29,4 @@ contains
! mangled to __m2_mod_m2_MOD_m3 ! mangled to __m2_mod_m2_MOD_m3
end subroutine m3 end subroutine m3
end module m2_MOD_m2 end module m2_MOD_m2
! { dg-final { cleanup-modules "m1 m1__m2 m2 m2_MOD_m2" } } ! { dg-final { cleanup-modules "m1 m1__m2 m2 m2_mod_m2" } }
gcc/testsuite/gfortran.dg/namelist_4.f90
...@@ -38,4 +38,4 @@ CONTAINS ...@@ -38,4 +38,4 @@ CONTAINS
END FUNCTION END FUNCTION
END END
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/operator_c1202.f90
...@@ -66,3 +66,5 @@ module op ...@@ -66,3 +66,5 @@ module op
end function f1 end function f1
end module op end module op
! { dg-final { cleanup-modules "op" } }
gcc/testsuite/gfortran.dg/parens_7.f90
...@@ -15,3 +15,5 @@ end function test4 ...@@ -15,3 +15,5 @@ end function test4
end program test end program test
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/pr32921.f
...@@ -47,4 +47,4 @@ ...@@ -47,4 +47,4 @@
END END
! { dg-final { scan-tree-dump-times "stride" 4 "lim1" } } ! { dg-final { scan-tree-dump-times "stride" 4 "lim1" } }
! { dg-final { cleanup-tree-dump "lim1" } } ! { dg-final { cleanup-tree-dump "lim1" } }
! { dg-final { cleanup-modules "LES3D_DATA" } } ! { dg-final { cleanup-modules "les3d_data" } }
gcc/testsuite/gfortran.dg/pr33646.f90
...@@ -56,4 +56,4 @@ contains ...@@ -56,4 +56,4 @@ contains
end subroutine end subroutine
end end
! { dg-final { cleanup-modules "BAR_MODULE FOO_MODULE" } } ! { dg-final { cleanup-modules "bar_module foo_module" } }
gcc/testsuite/gfortran.dg/pr41928.f90
...@@ -261,4 +261,4 @@ CONTAINS ...@@ -261,4 +261,4 @@ CONTAINS
END DO END DO
END SUBROUTINE diff_momop END SUBROUTINE diff_momop
END MODULE ai_moments END MODULE ai_moments
! { dg-final { cleanup-modules "ai_moments" } } ! { dg-final { cleanup-modules "kinds ai_moments" } }
gcc/testsuite/gfortran.dg/pr42119.f90
...@@ -22,3 +22,4 @@ program Main ...@@ -22,3 +22,4 @@ program Main
call Check(C_FUNLOC(Callback)) call Check(C_FUNLOC(Callback))
end program Main end program Main
! { dg-final { cleanup-modules "test" } }
gcc/testsuite/gfortran.dg/pr43984.f90
...@@ -54,3 +54,4 @@ end ...@@ -54,3 +54,4 @@ end
! { dg-final { scan-tree-dump-times "= iyz.data" 3 "pre" } } ! { dg-final { scan-tree-dump-times "= iyz.data" 3 "pre" } }
! { dg-final { cleanup-tree-dump "pre" } } ! { dg-final { cleanup-tree-dump "pre" } }
! { dg-final { cleanup-modules "test" } }
gcc/testsuite/gfortran.dg/present_1.f90
...@@ -17,4 +17,4 @@ ...@@ -17,4 +17,4 @@
END SUBROUTINE S1 END SUBROUTINE S1
END MODULE END MODULE
END END
! { dg-final { cleanup-modules "M1" } } ! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/private_type_2.f90
...@@ -24,4 +24,4 @@ MODULE TEST ...@@ -24,4 +24,4 @@ MODULE TEST
END MODULE END MODULE
END END
! { dg-final { cleanup-modules "TEST" } } ! { dg-final { cleanup-modules "test" } }
gcc/testsuite/gfortran.dg/proc_decl_2.f90
...@@ -146,3 +146,5 @@ function p7(x) ...@@ -146,3 +146,5 @@ function p7(x)
integer :: x, p7 integer :: x, p7
p7 = x*(-2) p7 = x*(-2)
end function end function
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/proc_ptr_10.f90
...@@ -27,4 +27,4 @@ program myProg ...@@ -27,4 +27,4 @@ program myProg
call proc4( p ) call proc4( p )
end program myProg end program myProg
! { dg-final { cleanup-modules "myMod" } } ! { dg-final { cleanup-modules "mymod" } }
gcc/testsuite/gfortran.dg/proc_ptr_22.f90
...@@ -26,5 +26,5 @@ program bugTest ...@@ -26,5 +26,5 @@ program bugTest
if (sum(pp2(3,2))/=6) call abort() if (sum(pp2(3,2))/=6) call abort()
end program bugTest end program bugTest
! { dg-final { cleanup-modules "bugTestMod" } } ! { dg-final { cleanup-modules "bugtestmod" } }
gcc/testsuite/gfortran.dg/proc_ptr_8.f90
...@@ -42,4 +42,4 @@ contains ...@@ -42,4 +42,4 @@ contains
END END
! { dg-final { cleanup-modules "X" } } ! { dg-final { cleanup-modules "x" } }
gcc/testsuite/gfortran.dg/proc_ptr_comp_12.f90
...@@ -31,5 +31,5 @@ program bugTest ...@@ -31,5 +31,5 @@ program bugTest
if (sum(testObj%test(3,3))/=9) call abort() if (sum(testObj%test(3,3))/=9) call abort()
end program bugTest end program bugTest
! { dg-final { cleanup-modules "bugTestMod" } } ! { dg-final { cleanup-modules "bugtestmod" } }
gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_6.f90
...@@ -32,4 +32,4 @@ PROGRAM ProgA ...@@ -32,4 +32,4 @@ PROGRAM ProgA
END DO END DO
END PROGRAM ProgA END PROGRAM ProgA
! { dg-final { cleanup-modules "ModA" } } ! { dg-final { cleanup-modules "moda" } }
gcc/testsuite/gfortran.dg/pure_formal_proc_2.f90
...@@ -45,4 +45,4 @@ program Test ...@@ -45,4 +45,4 @@ program Test
deallocate(pT1) deallocate(pT1)
end program Test end program Test
! { dg-final { cleanup-modules "TestPure" } } ! { dg-final { cleanup-modules "testpure" } }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment