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