Skip to content

R
riscv-gcc-1
Commit 211b0440 by Steven G. Kargl
Options

pr43505.f90: Clean up .mod file. 

2010-04-25  Steven G. Kargl  <kargl@gcc.gnu.org>
 
	 *gfortran.dg/pr43505.f90: Clean up .mod file.
	 *gfortran.dg/host_assoc_blockdata_1.f90
	 *gfortran.dg/pr41347.f90
	 *gfortran.dg/internal_pack_4.f90
	 *gfortran.dg/proc_decl_23.f90
	 *gfortran.dg/recursive_check_3.f90
	 *gfortran.dg/intent_out_3.f90
	 *gfortran.dg/assignment_2.f90
	 *gfortran.dg/pr41928.f90
	 *gfortran.dg/pr42166.f90
	 *gfortran.dg/private_type_12.f90
	 *gfortran.dg/graphite/pr42185.f90
	 *gfortran.dg/graphite/pr42186.f90
	 *gfortran.dg/graphite/pr40982.f90
	 *gfortran.dg/graphite/id-2.f90
	 *gfortran.dg/graphite/id-4.f90
	 *gfortran.dg/graphite/pr42050.f90
	 *gfortran.dg/graphite/id-18.f90
	 *gfortran.dg/graphite/pr42393-1.f90
	 *gfortran.dg/graphite/pr41924.f90
	 *gfortran.dg/graphite/pr42393.f90
	 *gfortran.dg/graphite/pr37980.f90
	 *gfortran.dg/graphite/pr38953.f90
	 *gfortran.dg/graphite/pr42180.f90
	 *gfortran.dg/graphite/pr42181.f90
	 *gfortran.dg/where_operator_assign_4.f90
	 *gfortran.dg/select_type_4.f90
	 *gfortran.dg/redefined_intrinsic_assignment.f90
	 *gfortran.dg/host_assoc_blockdata_2.f90
	 *gfortran.dg/lto/pr40725_0.f03
	 *gfortran.dg/elemental_args_check_2.f90
	 *gfortran.dg/whole_file_11.f90
	 *gfortran.dg/private_type_11.f90
	 *gfortran.dg/vect/vect-gems.f90
	 *gfortran.dg/vect/fast-math-real8-pr40801.f90

From-SVN: r158708
parent 9b41915f
Showing with 75 additions and 0 deletions
gcc/testsuite/ChangeLog
2010-04-25 Steven G. Kargl <kargl@gcc.gnu.org>
*gfortran.dg/pr43505.f90: Clean up .mod file.
*gfortran.dg/host_assoc_blockdata_1.f90: ditto
*gfortran.dg/pr41347.f90: ditto
*gfortran.dg/internal_pack_4.f90: ditto
*gfortran.dg/proc_decl_23.f90: ditto
*gfortran.dg/recursive_check_3.f90: ditto
*gfortran.dg/intent_out_3.f90: ditto
*gfortran.dg/assignment_2.f90: ditto
*gfortran.dg/pr41928.f90: ditto
*gfortran.dg/pr42166.f90: ditto
*gfortran.dg/private_type_12.f90: ditto
*gfortran.dg/graphite/pr42185.f90: ditto
*gfortran.dg/graphite/pr42186.f90: ditto
*gfortran.dg/graphite/pr40982.f90: ditto
*gfortran.dg/graphite/id-2.f90: ditto
*gfortran.dg/graphite/id-4.f90: ditto
*gfortran.dg/graphite/pr42050.f90: ditto
*gfortran.dg/graphite/id-18.f90: ditto
*gfortran.dg/graphite/pr42393-1.f90: ditto
*gfortran.dg/graphite/pr41924.f90: ditto
*gfortran.dg/graphite/pr42393.f90: ditto
*gfortran.dg/graphite/pr37980.f90: ditto
*gfortran.dg/graphite/pr38953.f90: ditto
*gfortran.dg/graphite/pr42180.f90: ditto
*gfortran.dg/graphite/pr42181.f90: ditto
*gfortran.dg/where_operator_assign_4.f90: ditto
*gfortran.dg/select_type_4.f90: ditto
*gfortran.dg/redefined_intrinsic_assignment.f90: ditto
*gfortran.dg/host_assoc_blockdata_2.f90: ditto
*gfortran.dg/lto/pr40725_0.f03: ditto
*gfortran.dg/elemental_args_check_2.f90: ditto
*gfortran.dg/whole_file_11.f90: ditto
*gfortran.dg/private_type_11.f90: ditto
*gfortran.dg/vect/vect-gems.f90: ditto
*gfortran.dg/vect/fast-math-real8-pr40801.f90: ditto
2010-04-25 H.J. Lu <hongjiu.lu@intel.com>
* gcc.target/i386/pr43766.c: Scan "lea\[ \t\]" instead of "lea".
......
gcc/testsuite/gfortran.dg/assignment_2.f90
......@@ -47,3 +47,4 @@ contains
END SUBROUTINE
end module m3
! { dg-final { cleanup-modules "m1 m2 m3" } }
gcc/testsuite/gfortran.dg/elemental_args_check_2.f90
......@@ -17,3 +17,4 @@ CONTAINS
END INTERFACE
END SUBROUTINE S1
END MODULE M1
! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/graphite/id-18.f90
......@@ -23,3 +23,4 @@ CONTAINS
END SELECT
END FUNCTION dlegendre
END MODULE spherical_harmonics
! { dg-final { cleanup-modules "spherical_harmonics" } }
gcc/testsuite/gfortran.dg/graphite/id-2.f90
......@@ -11,3 +11,4 @@ contains
subroutine fourir(A,ntot,kconjg, E,useold)
end subroutine fourir
end module solv_cap
! { dg-final { cleanup-modules "solv_cap" } }
gcc/testsuite/gfortran.dg/graphite/id-4.f90
......@@ -30,3 +30,4 @@ CONTAINS
END IF
END SUBROUTINE QSORT
END SUBROUTINE READIN
! { dg-final { cleanup-modules "vimage vcimage" } }
gcc/testsuite/gfortran.dg/graphite/pr37980.f90
......@@ -9,3 +9,4 @@ contains
mat0 = 0.0d0
end function spher_cartesians
end module INT_MODULE
! { dg-final { cleanup-modules "int_module" } }
gcc/testsuite/gfortran.dg/graphite/pr38953.f90
......@@ -113,3 +113,4 @@
ENDIF
999 CONTINUE
END
! { dg-final { cleanup-modules "main1" } }
gcc/testsuite/gfortran.dg/graphite/pr40982.f90
......@@ -67,3 +67,5 @@ contains
end subroutine mutual_ind_quad_cir_coil
end module mqc_m
! { dg-final { cleanup-modules "mqc_m" } }
gcc/testsuite/gfortran.dg/graphite/pr41924.f90
......@@ -13,3 +13,4 @@ SUBROUTINE VOLCALC()
IF ( WETSCIM ) HRVALD(ITYP) = 0.0
ENDDO
END SUBROUTINE VOLCALC
! { dg-final { cleanup-modules "main1" } }
gcc/testsuite/gfortran.dg/graphite/pr42050.f90
......@@ -23,3 +23,4 @@ CONTAINS
CALL test()
END SUBROUTINE sic_explicit_orbitals
END MODULE qs_ks_methods
! { dg-final { cleanup-modules "qs_ks_methods" } }
gcc/testsuite/gfortran.dg/graphite/pr42180.f90
......@@ -20,3 +20,4 @@ contains
l12 = coefficient * l12
end subroutine mutual_ind_cir_cir_coils
end module mcc_m
! { dg-final { cleanup-modules "mcc_m" } }
gcc/testsuite/gfortran.dg/graphite/pr42181.f90
......@@ -17,3 +17,4 @@ CONTAINS
END IF
END SUBROUTINE newuob
END MODULE powell
! { dg-final { cleanup-modules "powell" } }
gcc/testsuite/gfortran.dg/graphite/pr42185.f90
......@@ -25,3 +25,4 @@ CONTAINS
END DO mainloop
END SUBROUTINE trsapp
END MODULE powell
! { dg-final { cleanup-modules "powell" } }
gcc/testsuite/gfortran.dg/graphite/pr42186.f90
......@@ -12,3 +12,4 @@ CONTAINS
END IF
END SUBROUTINE CALERF
END MODULE erf_fn
! { dg-final { cleanup-modules "erf_fn" } }
gcc/testsuite/gfortran.dg/graphite/pr42393-1.f90
......@@ -22,3 +22,4 @@ CONTAINS
fn_val = sum
END FUNCTION basym
END MODULE beta_gamma_psi
! { dg-final { cleanup-modules "beta_gamma_psi" } }
gcc/testsuite/gfortran.dg/graphite/pr42393.f90
......@@ -28,3 +28,4 @@ CONTAINS
fn_val = e0*t*u*sum
END FUNCTION basym
END MODULE beta_gamma_psi
! { dg-final { cleanup-modules "beta_gamma_psi" } }
gcc/testsuite/gfortran.dg/host_assoc_blockdata_1.f90
......@@ -9,3 +9,4 @@ END module globals
BLOCK DATA
use globals
END BLOCK DATA
! { dg-final { cleanup-modules "globals" } }
gcc/testsuite/gfortran.dg/host_assoc_blockdata_2.f90
......@@ -15,3 +15,4 @@ program main
use globals
common /co/ pdm_bps ! { dg-error "already in a COMMON block" }
end program main
! { dg-final { cleanup-modules "globals" } }
gcc/testsuite/gfortran.dg/intent_out_3.f90
......@@ -17,3 +17,4 @@ END MODULE M1
USE M1
CALL S1(D1%I(3)) ! { dg-error "must be definable" }
END
! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/internal_pack_4.f90
......@@ -29,3 +29,4 @@ END
! { dg-final { scan-tree-dump-times "a != 0B \\? \\\(.*\\\) _gfortran_internal_pack" 1 "original" } }
! { dg-final { scan-tree-dump-times "if \\(a != 0B &&" 1 "original" } }
! { dg-final { cleanup-tree-dump "original" } }
! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/lto/pr40725_0.f03
......@@ -14,3 +14,4 @@ contains
end subroutine sub0
end module bind_c_dts_2
! { dg-final { cleanup-modules "bind_c_dts_2" } }
gcc/testsuite/gfortran.dg/pr41347.f90
......@@ -30,3 +30,4 @@ module hsl_ma41_m
end subroutine prininfo
end module hsl_ma41_m
! { dg-final { cleanup-modules "hsl_ma41_m" } }
gcc/testsuite/gfortran.dg/pr41928.f90
......@@ -261,3 +261,4 @@ CONTAINS
END DO
END SUBROUTINE diff_momop
END MODULE ai_moments
! { dg-final { cleanup-modules "ai_moments" } }
gcc/testsuite/gfortran.dg/pr42166.f90
......@@ -18,3 +18,4 @@ CONTAINS
END SUBROUTINE newuob
END MODULE powell
! { dg-final { cleanup-modules "powell" } }
gcc/testsuite/gfortran.dg/pr43505.f90
......@@ -39,5 +39,6 @@
end subroutine
END PROGRAM TEST
! { dg-final { cleanup-modules "main1" } }
gcc/testsuite/gfortran.dg/private_type_11.f90
......@@ -21,3 +21,4 @@ CONTAINS
TYPE(T1) FUNCTION F2()
END FUNCTION F2
END MODULE M1
! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/private_type_12.f90
......@@ -21,3 +21,4 @@ CONTAINS
TYPE(T1) FUNCTION F2() ! { dg-error "Fortran 2003: PUBLIC variable 'f2'" }
END FUNCTION F2
END MODULE M1
! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/proc_decl_23.f90
......@@ -41,3 +41,4 @@ end module m_string
print *, char1 (["j","k","l"])
end
! { dg-final { cleanup-tree-dump "m_string" } }
! { dg-final { cleanup-modules "m_string" } }
gcc/testsuite/gfortran.dg/recursive_check_3.f90
......@@ -20,3 +20,4 @@ recursive recursive subroutine a3(b) ! { dg-error "Duplicate RECURSIVE attribute
real, intent(in) :: b ! { dg-error "Unexpected data declaration statement" }
end subroutine a3 ! { dg-error "Expecting END MODULE" }
end module m3
! { dg-final { cleanup-modules "m1 m2 m3" } }
gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90
......@@ -16,3 +16,4 @@ CONTAINS
I=-J
END SUBROUTINE T1
END MODULE M1
! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/select_type_4.f90
......@@ -172,3 +172,4 @@ program main
call destroy_list(list)
stop
end program main
! { dg-final { cleanup-modules "poly_list" } }
gcc/testsuite/gfortran.dg/vect/fast-math-real8-pr40801.f90
......@@ -35,3 +35,4 @@ ENDIF
END SUBROUTINE ACCONV
! { dg-final { cleanup-tree-dump "vect" } }
! { dg-final { cleanup-modules "yomphy0" } }
gcc/testsuite/gfortran.dg/vect/vect-gems.f90
......@@ -55,3 +55,4 @@ END MODULE UPML_mod
! { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" } }
! { dg-final { cleanup-tree-dump "vect" } }
! { dg-final { cleanup-modules "upml_mod" } }
gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
......@@ -28,3 +28,4 @@ END WHERE
WHERE (I(:)%I>0) J=I ! { dg-error "Non-ELEMENTAL user-defined assignment in WHERE" }
END
! { dg-final { cleanup-modules "m1" } }
gcc/testsuite/gfortran.dg/whole_file_11.f90
......@@ -35,3 +35,5 @@ FUNCTION foo_count()
USE module_foo, ONLY: foo
INTEGER :: foo_count
END FUNCTION
! { dg-final { cleanup-modules "module_foo" } }
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