* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177415
138bc75d-0d04-0410-961f-
82ee72b054a4
+2011-08-04 Mikael Morin <mikael.morin@sfr.fr>
+
+ * 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 <ira.rosen@linaro.org>
* gcc.dg/vect/vect-over-widen-1.c: New test.
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" } }
end function gt_cmp
end interface
end module m_sort
+
+! { dg-final { cleanup-modules "m_sort" } }
END INTERFACE
end subroutine
end module
+
+! { dg-final { cleanup-modules "n" } }
END SUBROUTINE NFT_Init
END MODULE NFT_mod
+
+! { dg-final { cleanup-modules "nft_mod" } }
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" } }
! { 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" } }
PRINT *, pw%cr(UBOUND(pw%cr))
END SUBROUTINE pw_write
END MODULE
+
+! { dg-final { cleanup-modules "pw_types" } }