Skip to content

R
riscv-gcc-1
Commit 9eb5c65c by Steven G. Kargl
Options

c_kind_tests_2.f03: clean-up leftover module(s). 

2009-07-09  Steven G. Kargl  <kargl@gcc.gnu.org>

	* gfortran.dg/c_kind_tests_2.f03: clean-up leftover module(s).
	* gfortran.dg/module_equivalence_6.f90: Ditto.
	* gfortran.dg/alloc_comp_auto_array_2.f90: Ditto.
	* gfortran.dg/nan_2.f90: Ditto.
	* gfortran.dg/inquire_11.f90: Ditto.
	* gfortran.dg/abstract_type_3.f03: Ditto.
	* gfortran.dg/abstract_type_1.f90: Ditto.
	* gfortran.dg/private_type_9.f90: Ditto.
	* gfortran.dg/abstract_type_5.f03: Ditto.
	* gfortran.dg/elemental_subroutine_6.f90: Ditto.
	* gfortran.dg/derived_comp_array_ref_3.f90: Ditto.
	* gfortran.dg/derived_sub.f90: Ditto.
	* gfortran.dg/missing_optional_dummy_5.f90: Ditto.
	* gfortran.dg/bounds_check_fail_2.f90: Ditto.
	* gfortran.dg/maxloc_bounds_6.f90: Ditto.
	* gfortran.dg/mvbits_6.f90: Ditto.
	* gfortran.dg/abstract_type_2.f03: Ditto.
	* gfortran.dg/abstract_type_4.f03: Ditto.
	* gfortran.dg/bounds_check_9.f90: Ditto.
	* gfortran.dg/optional_dim_3.f90: Ditto.
	* gfortran.dg/pr32921.f: Ditto.
	* gfortran.dg/entry_16.f90: Ditto.
	* gfortran.dg/generic_16.f90: Ditto.

From-SVN: r149454
parent 06c43499
Showing with 50 additions and 6 deletions
gcc/testsuite/ChangeLog
2009-07-09 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.dg/c_kind_tests_2.f03: clean-up leftover module(s).
* gfortran.dg/module_equivalence_6.f90: Ditto.
* gfortran.dg/alloc_comp_auto_array_2.f90: Ditto.
* gfortran.dg/nan_2.f90: Ditto.
* gfortran.dg/inquire_11.f90: Ditto.
* gfortran.dg/abstract_type_3.f03: Ditto.
* gfortran.dg/abstract_type_1.f90: Ditto.
* gfortran.dg/private_type_9.f90: Ditto.
* gfortran.dg/abstract_type_5.f03: Ditto.
* gfortran.dg/elemental_subroutine_6.f90: Ditto.
* gfortran.dg/derived_comp_array_ref_3.f90: Ditto.
* gfortran.dg/derived_sub.f90: Ditto.
* gfortran.dg/missing_optional_dummy_5.f90: Ditto.
* gfortran.dg/bounds_check_fail_2.f90: Ditto.
* gfortran.dg/maxloc_bounds_6.f90: Ditto.
* gfortran.dg/mvbits_6.f90: Ditto.
* gfortran.dg/abstract_type_2.f03: Ditto.
* gfortran.dg/abstract_type_4.f03: Ditto.
* gfortran.dg/bounds_check_9.f90: Ditto.
* gfortran.dg/optional_dim_3.f90: Ditto.
* gfortran.dg/pr32921.f: Ditto.
* gfortran.dg/entry_16.f90: Ditto.
* gfortran.dg/generic_16.f90: Ditto.
2009-07-09 Maxim Kuvyrkov <maxim@codesourcery.com> 2009-07-09 Maxim Kuvyrkov <maxim@codesourcery.com>
* gcc.target/m68k/20090709-1.c: New. * gcc.target/m68k/20090709-1.c: New.
......
gcc/testsuite/gfortran.dg/abstract_type_1.f90
...@@ -11,3 +11,4 @@ MODULE m ...@@ -11,3 +11,4 @@ MODULE m
END TYPE t ! { dg-error "END MODULE" } END TYPE t ! { dg-error "END MODULE" }
END MODULE m END MODULE m
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/abstract_type_2.f03
...@@ -11,3 +11,4 @@ MODULE m ...@@ -11,3 +11,4 @@ MODULE m
END TYPE error_t ! { dg-error "END MODULE" } END TYPE error_t ! { dg-error "END MODULE" }
END MODULE m END MODULE m
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/abstract_type_3.f03
...@@ -49,3 +49,4 @@ CONTAINS ...@@ -49,3 +49,4 @@ CONTAINS
END SUBROUTINE impl END SUBROUTINE impl
END MODULE m END MODULE m
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/abstract_type_4.f03
...@@ -26,3 +26,4 @@ PROGRAM main ...@@ -26,3 +26,4 @@ PROGRAM main
! See if constructing the extending type works. ! See if constructing the extending type works.
conc = concrete_t (1, 2) conc = concrete_t (1, 2)
END PROGRAM main END PROGRAM main
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/abstract_type_5.f03
...@@ -43,3 +43,4 @@ CONTAINS ...@@ -43,3 +43,4 @@ CONTAINS
END SUBROUTINE test END SUBROUTINE test
END MODULE m END MODULE m
! { dg-final { cleanup-modules "m" } }
gcc/testsuite/gfortran.dg/alloc_comp_auto_array_2.f90
...@@ -38,3 +38,4 @@ end module grid_io ...@@ -38,3 +38,4 @@ end module grid_io
call read_grid_header call read_grid_header
end end
! { dg-final { cleanup-tree-dump "grid_io" } } ! { dg-final { cleanup-tree-dump "grid_io" } }
! { dg-final { cleanup-modules "grid_io" } }
gcc/testsuite/gfortran.dg/bounds_check_9.f90
...@@ -34,3 +34,4 @@ program main ...@@ -34,3 +34,4 @@ program main
call sub() call sub()
call sub((/4,5/)) call sub((/4,5/))
end program main end program main
! { dg-final { cleanup-modules "sub_mod" } }
gcc/testsuite/gfortran.dg/bounds_check_fail_2.f90
...@@ -37,3 +37,4 @@ program main ...@@ -37,3 +37,4 @@ program main
call sub((/4/)) call sub((/4/))
end program main end program main
! { dg-output "Fortran runtime error: Array bound mismatch" } ! { dg-output "Fortran runtime error: Array bound mismatch" }
! { dg-final { cleanup-modules "sub_mod" } }
gcc/testsuite/gfortran.dg/c_kind_tests_2.f03
...@@ -12,3 +12,4 @@ module c_kind_tests_2 ...@@ -12,3 +12,4 @@ module c_kind_tests_2
real(myI), bind(c) :: myCFloat2 ! { dg-warning "is for type INTEGER" } real(myI), bind(c) :: myCFloat2 ! { dg-warning "is for type INTEGER" }
real(4), bind(c) :: myFloat ! { dg-warning "may not be a C interoperable" } real(4), bind(c) :: myFloat ! { dg-warning "may not be a C interoperable" }
end module c_kind_tests_2 end module c_kind_tests_2
! { dg-final { cleanup-modules "c_kind_tests_2" } }
gcc/testsuite/gfortran.dg/derived_comp_array_ref_3.f90
...@@ -26,4 +26,4 @@ END MODULE cdf_nc_chisq_mod ...@@ -26,4 +26,4 @@ END MODULE cdf_nc_chisq_mod
use cdf_nc_chisq_mod use cdf_nc_chisq_mod
call local_cum_nc_chisq call local_cum_nc_chisq
end end
! { dg-final { cleanup-modules "cdf_aux_mod cdf_beta_mod" } } ! { dg-final { cleanup-modules "cdf_nc_chisq_mod" } }
gcc/testsuite/gfortran.dg/derived_sub.f90
...@@ -31,3 +31,4 @@ contains ...@@ -31,3 +31,4 @@ contains
end subroutine end subroutine
end module end module
! { dg-final { cleanup-modules "modone modtwo" } }
gcc/testsuite/gfortran.dg/elemental_subroutine_6.f90
...@@ -21,4 +21,5 @@ CONTAINS ...@@ -21,4 +21,5 @@ CONTAINS
ALLOCATE( out(1:42, 1:42) ) ALLOCATE( out(1:42, 1:42) )
out(1, 1:42) = in(1, 1:42) out(1, 1:42) = in(1, 1:42)
END SUBROUTINE END SUBROUTINE
END MODULE foo END MODULE foo
\ No newline at end of file ! { dg-final { cleanup-modules "foo" } }
gcc/testsuite/gfortran.dg/entry_16.f90
...@@ -41,3 +41,4 @@ END MODULE complex ...@@ -41,3 +41,4 @@ END MODULE complex
if (.not.((a + b) .eq. (b + a))) call abort () if (.not.((a + b) .eq. (b + a))) call abort ()
if (.not.((a + b) .eq. cx (4, 2))) call abort () if (.not.((a + b) .eq. cx (4, 2))) call abort ()
end end
! { dg-final { cleanup-modules "complex" } }
gcc/testsuite/gfortran.dg/generic_16.f90
...@@ -32,3 +32,4 @@ PROGRAM main ...@@ -32,3 +32,4 @@ PROGRAM main
REAL(kind=dp) :: rawData(2), data, work(3) REAL(kind=dp) :: rawData(2), data, work(3)
data = median(rawData, work) ! { dg-error "no specific function" } data = median(rawData, work) ! { dg-error "no specific function" }
END PROGRAM main END PROGRAM main
! { dg-final { cleanup-modules "auxiliary" } }
gcc/testsuite/gfortran.dg/inquire_11.f90
...@@ -8,3 +8,4 @@ CONTAINS ...@@ -8,3 +8,4 @@ CONTAINS
INQUIRE (UNIT=1, EXIST=qexist) INQUIRE (UNIT=1, EXIST=qexist)
END SUBROUTINE i END SUBROUTINE i
END MODULE print_it END MODULE print_it
! { dg-final { cleanup-modules "print_it" } }
gcc/testsuite/gfortran.dg/maxloc_bounds_6.f90
...@@ -13,4 +13,3 @@ program main ...@@ -13,4 +13,3 @@ program main
write(line,fmt='(80I1)') res write(line,fmt='(80I1)') res
end program main end program main
! { dg-output "Fortran runtime error: Incorrect extent in MASK argument of MAXLOC intrinsic in dimension 2: is 3, should be 2" } ! { dg-output "Fortran runtime error: Incorrect extent in MASK argument of MAXLOC intrinsic in dimension 2: is 3, should be 2" }
! { dg-final { cleanup-modules "tst" } }
gcc/testsuite/gfortran.dg/missing_optional_dummy_5.f90
...@@ -25,5 +25,5 @@ end module krmod ...@@ -25,5 +25,5 @@ end module krmod
! { dg-final { scan-tree-dump " tm_doit \\(&parm.\(6|7\), 0B, 0\\);" "original" } } ! { dg-final { scan-tree-dump " tm_doit \\(&parm.\(6|7\), 0B, 0\\);" "original" } }
! { dg-final { cleanup-tree-dump "original" } } ! { dg-final { cleanup-tree-dump "original" } }
! { dg-final { cleanup-modules "pr22146" } } ! { dg-final { cleanup-modules "krmod" } }
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 HD5" } } ! { dg-final { cleanup-modules "H5GLOBAL HDF5" } }
gcc/testsuite/gfortran.dg/mvbits_6.f90
...@@ -31,3 +31,4 @@ ...@@ -31,3 +31,4 @@
call yg0009(tda2l,4,3,1,-1,-4,-3) call yg0009(tda2l,4,3,1,-1,-4,-3)
end end
! { dg-final { cleanup-modules "yg0009_stuff" } }
gcc/testsuite/gfortran.dg/nan_2.f90
...@@ -105,3 +105,4 @@ program test ...@@ -105,3 +105,4 @@ program test
if (isinf(max(-large, -inf, nan))) call abort if (isinf(max(-large, -inf, nan))) call abort
end program test end program test
! { dg-final { cleanup-modules "aux2" } }
gcc/testsuite/gfortran.dg/optional_dim_3.f90
...@@ -50,3 +50,4 @@ program main ...@@ -50,3 +50,4 @@ program main
call sub(bound=.false., dimmy=1_8) call sub(bound=.false., dimmy=1_8)
call sub() call sub()
end program main end program main
! { dg-final { cleanup-modules "tst_foo" } }
gcc/testsuite/gfortran.dg/pr32921.f
...@@ -47,3 +47,4 @@ ...@@ -47,3 +47,4 @@
END END
! { dg-final { scan-tree-dump-times "stride" 4 "lim" } } ! { dg-final { scan-tree-dump-times "stride" 4 "lim" } }
! { dg-final { cleanup-tree-dump "lim" } } ! { dg-final { cleanup-tree-dump "lim" } }
! { dg-final { cleanup-modules "LES3D_DATA" } }
gcc/testsuite/gfortran.dg/private_type_9.f90
...@@ -39,3 +39,4 @@ module m4 ...@@ -39,3 +39,4 @@ module m4
end module m4 end module m4
end end
! { dg-final { cleanup-modules "m1 m2 m3 m4" } }
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