From e863e4de55ab7d2769a202b27b097f20323a08ee Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Thu, 4 Aug 2011 23:24:35 +0200 Subject: [PATCH] dependency_26.f90: Add a module to the cleanup directive. 2011-08-04 Mikael Morin * gfortran.dg/dependency_26.f90: Add a module to the cleanup directive. * gfortran.dg/trim_optimize_2.f90: Add a module cleanup directive. * gfortran.dg/ldist-pr43023.f90: Ditto. * gfortran.dg/namelist_52.f90: Ditto. * gfortran.dg/interface_proc_end.f90: Ditto. * gfortran.dg/vector_subscript_bound_1.f90: Ditto. * gfortran.dg/generic_typebound_operator_1.f90: Ditto. From-SVN: r177415 --- gcc/testsuite/ChangeLog | 10 ++++++++++ gcc/testsuite/gfortran.dg/dependency_26.f90 | 2 +- .../gfortran.dg/generic_typebound_operator_1.f90 | 2 ++ gcc/testsuite/gfortran.dg/interface_proc_end.f90 | 2 ++ gcc/testsuite/gfortran.dg/ldist-pr43023.f90 | 2 ++ gcc/testsuite/gfortran.dg/namelist_52.f90 | 2 ++ gcc/testsuite/gfortran.dg/trim_optimize_2.f90 | 1 + gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90 | 2 ++ 8 files changed, 22 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9545dc30a8d..7bebe972efd 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,13 @@ +2011-08-04 Mikael Morin + + * gfortran.dg/dependency_26.f90: Add a module to the cleanup directive. + * gfortran.dg/trim_optimize_2.f90: Add a module cleanup directive. + * gfortran.dg/ldist-pr43023.f90: Ditto. + * gfortran.dg/namelist_52.f90: Ditto. + * gfortran.dg/interface_proc_end.f90: Ditto. + * gfortran.dg/vector_subscript_bound_1.f90: Ditto. + * gfortran.dg/generic_typebound_operator_1.f90: Ditto. + 2011-08-04 Ira Rosen * gcc.dg/vect/vect-over-widen-1.c: New test. diff --git a/gcc/testsuite/gfortran.dg/dependency_26.f90 b/gcc/testsuite/gfortran.dg/dependency_26.f90 index 0103d024197..e893d992c5d 100644 --- a/gcc/testsuite/gfortran.dg/dependency_26.f90 +++ b/gcc/testsuite/gfortran.dg/dependency_26.f90 @@ -47,7 +47,7 @@ END MODULE M1 cell%h = reshape ([(real(i), i = 1, 9)], [3, 3]) call s1 (cell) end -! { dg-final { cleanup-modules "m1" } } +! { dg-final { cleanup-modules "m1 m2" } } ! { dg-final { scan-tree-dump-times "&a" 1 "original" } } ! { dg-final { scan-tree-dump-times "pack" 0 "original" } } ! { dg-final { cleanup-tree-dump "original" } } diff --git a/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90 b/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90 index 76c15e97baa..32a17e3bd8a 100644 --- a/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90 +++ b/gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90 @@ -17,3 +17,5 @@ module m_sort end function gt_cmp end interface end module m_sort + +! { dg-final { cleanup-modules "m_sort" } } diff --git a/gcc/testsuite/gfortran.dg/interface_proc_end.f90 b/gcc/testsuite/gfortran.dg/interface_proc_end.f90 index 2fc9921df41..efe5855584a 100644 --- a/gcc/testsuite/gfortran.dg/interface_proc_end.f90 +++ b/gcc/testsuite/gfortran.dg/interface_proc_end.f90 @@ -16,3 +16,5 @@ END INTERFACE end subroutine end module + +! { dg-final { cleanup-modules "n" } } diff --git a/gcc/testsuite/gfortran.dg/ldist-pr43023.f90 b/gcc/testsuite/gfortran.dg/ldist-pr43023.f90 index 3e2d04c9490..7a298ea4b2f 100644 --- a/gcc/testsuite/gfortran.dg/ldist-pr43023.f90 +++ b/gcc/testsuite/gfortran.dg/ldist-pr43023.f90 @@ -29,3 +29,5 @@ end do END SUBROUTINE NFT_Init END MODULE NFT_mod + +! { dg-final { cleanup-modules "nft_mod" } } diff --git a/gcc/testsuite/gfortran.dg/namelist_52.f90 b/gcc/testsuite/gfortran.dg/namelist_52.f90 index 6e31382927f..253bd3fc9a1 100644 --- a/gcc/testsuite/gfortran.dg/namelist_52.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_52.f90 @@ -30,3 +30,5 @@ read(31,nml=info_adjoint) if (adjoint%solver_type /= 'direct') call abort if (adjoint%screen_io_fs_ntime%begin /= 42) call abort end program gfortran_error_2 + +! { dg-final { cleanup-modules "mod1" } } diff --git a/gcc/testsuite/gfortran.dg/trim_optimize_2.f90 b/gcc/testsuite/gfortran.dg/trim_optimize_2.f90 index b7ae1e3e533..46ae7fb88c4 100644 --- a/gcc/testsuite/gfortran.dg/trim_optimize_2.f90 +++ b/gcc/testsuite/gfortran.dg/trim_optimize_2.f90 @@ -35,3 +35,4 @@ end program main ! { dg-final { scan-tree-dump-times "memmove" 4 "original" } } ! { dg-final { scan-tree-dump-times "string_trim" 0 "original" } } ! { dg-final { cleanup-tree-dump "original" } } +! { dg-final { cleanup-modules "faz" } } diff --git a/gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90 b/gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90 index f4328504f24..00e31f9595f 100644 --- a/gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90 +++ b/gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90 @@ -17,3 +17,5 @@ CONTAINS PRINT *, pw%cr(UBOUND(pw%cr)) END SUBROUTINE pw_write END MODULE + +! { dg-final { cleanup-modules "pw_types" } } -- 2.30.2