procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

dependency_26.f90: Add a module to the cleanup directive.

Browse source 
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.

From-SVN: r177415
This commit is contained in:
Mikael Morin 2011-08-04 23:24:35 +02:00 • committed by Mikael Morin
parent bdc05efbc8
commit e863e4de55
8 changed files with 22 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,13 @@
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.

2
gcc/testsuite/gfortran.dg/dependency_26.f90
View file

@ -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" } }

2
gcc/testsuite/gfortran.dg/generic_typebound_operator_1.f90
View file

@ -17,3 +17,5 @@ module m_sort
end function gt_cmp
end interface
end module m_sort
! { dg-final { cleanup-modules "m_sort" } }

2
gcc/testsuite/gfortran.dg/interface_proc_end.f90
View file

@ -16,3 +16,5 @@
END INTERFACE
end subroutine
end module
! { dg-final { cleanup-modules "n" } }

2
gcc/testsuite/gfortran.dg/ldist-pr43023.f90
View file

@ -29,3 +29,5 @@ end do
END SUBROUTINE NFT_Init
END MODULE NFT_mod
! { dg-final { cleanup-modules "nft_mod" } }

2
gcc/testsuite/gfortran.dg/namelist_52.f90
View file

@ -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" } }

1
gcc/testsuite/gfortran.dg/trim_optimize_2.f90
View file

@ -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" } }

2
gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90
View file

@ -17,3 +17,5 @@ CONTAINS
PRINT *, pw%cr(UBOUND(pw%cr))
END SUBROUTINE pw_write
END MODULE
! { dg-final { cleanup-modules "pw_types" } }