This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH,committed] Clean up leftover *.mod fortran files
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Sun, 25 Apr 2010 14:31:05 -0700
- Subject: [PATCH,committed] Clean up leftover *.mod fortran files
Committed as obvious and after a 'gmake check-fortran'.
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
--
Steve
Index: gfortran.dg/pr43505.f90
===================================================================
--- gfortran.dg/pr43505.f90 (revision 158707)
+++ gfortran.dg/pr43505.f90 (working copy)
@@ -39,5 +39,6 @@
end subroutine
END PROGRAM TEST
+! { dg-final { cleanup-modules "main1" } }
Index: gfortran.dg/host_assoc_blockdata_1.f90
===================================================================
--- gfortran.dg/host_assoc_blockdata_1.f90 (revision 158707)
+++ gfortran.dg/host_assoc_blockdata_1.f90 (working copy)
@@ -9,3 +9,4 @@ END module globals
BLOCK DATA
use globals
END BLOCK DATA
+! { dg-final { cleanup-modules "globals" } }
Index: gfortran.dg/pr41347.f90
===================================================================
--- gfortran.dg/pr41347.f90 (revision 158707)
+++ gfortran.dg/pr41347.f90 (working copy)
@@ -30,3 +30,4 @@ module hsl_ma41_m
end subroutine prininfo
end module hsl_ma41_m
+! { dg-final { cleanup-modules "hsl_ma41_m" } }
Index: gfortran.dg/internal_pack_4.f90
===================================================================
--- gfortran.dg/internal_pack_4.f90 (revision 158707)
+++ gfortran.dg/internal_pack_4.f90 (working copy)
@@ -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" } }
Index: gfortran.dg/proc_decl_23.f90
===================================================================
--- gfortran.dg/proc_decl_23.f90 (revision 158707)
+++ gfortran.dg/proc_decl_23.f90 (working copy)
@@ -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" } }
Index: gfortran.dg/recursive_check_3.f90
===================================================================
--- gfortran.dg/recursive_check_3.f90 (revision 158707)
+++ gfortran.dg/recursive_check_3.f90 (working copy)
@@ -20,3 +20,4 @@ recursive recursive subroutine a3(b) ! {
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" } }
Index: gfortran.dg/intent_out_3.f90
===================================================================
--- gfortran.dg/intent_out_3.f90 (revision 158707)
+++ gfortran.dg/intent_out_3.f90 (working copy)
@@ -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" } }
Index: gfortran.dg/assignment_2.f90
===================================================================
--- gfortran.dg/assignment_2.f90 (revision 158707)
+++ gfortran.dg/assignment_2.f90 (working copy)
@@ -47,3 +47,4 @@ contains
END SUBROUTINE
end module m3
+! { dg-final { cleanup-modules "m1 m2 m3" } }
Index: gfortran.dg/pr41928.f90
===================================================================
--- gfortran.dg/pr41928.f90 (revision 158707)
+++ gfortran.dg/pr41928.f90 (working copy)
@@ -261,3 +261,4 @@ CONTAINS
END DO
END SUBROUTINE diff_momop
END MODULE ai_moments
+! { dg-final { cleanup-modules "ai_moments" } }
Index: gfortran.dg/pr42166.f90
===================================================================
--- gfortran.dg/pr42166.f90 (revision 158707)
+++ gfortran.dg/pr42166.f90 (working copy)
@@ -18,3 +18,4 @@ CONTAINS
END SUBROUTINE newuob
END MODULE powell
+! { dg-final { cleanup-modules "powell" } }
Index: gfortran.dg/private_type_12.f90
===================================================================
--- gfortran.dg/private_type_12.f90 (revision 158707)
+++ gfortran.dg/private_type_12.f90 (working copy)
@@ -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" } }
Index: gfortran.dg/graphite/pr42185.f90
===================================================================
--- gfortran.dg/graphite/pr42185.f90 (revision 158707)
+++ gfortran.dg/graphite/pr42185.f90 (working copy)
@@ -25,3 +25,4 @@ CONTAINS
END DO mainloop
END SUBROUTINE trsapp
END MODULE powell
+! { dg-final { cleanup-modules "powell" } }
Index: gfortran.dg/graphite/pr42186.f90
===================================================================
--- gfortran.dg/graphite/pr42186.f90 (revision 158707)
+++ gfortran.dg/graphite/pr42186.f90 (working copy)
@@ -12,3 +12,4 @@ CONTAINS
END IF
END SUBROUTINE CALERF
END MODULE erf_fn
+! { dg-final { cleanup-modules "erf_fn" } }
Index: gfortran.dg/graphite/pr40982.f90
===================================================================
--- gfortran.dg/graphite/pr40982.f90 (revision 158707)
+++ gfortran.dg/graphite/pr40982.f90 (working copy)
@@ -67,3 +67,5 @@ contains
end subroutine mutual_ind_quad_cir_coil
end module mqc_m
+! { dg-final { cleanup-modules "mqc_m" } }
+
Index: gfortran.dg/graphite/id-2.f90
===================================================================
--- gfortran.dg/graphite/id-2.f90 (revision 158707)
+++ gfortran.dg/graphite/id-2.f90 (working copy)
@@ -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" } }
Index: gfortran.dg/graphite/id-4.f90
===================================================================
--- gfortran.dg/graphite/id-4.f90 (revision 158707)
+++ gfortran.dg/graphite/id-4.f90 (working copy)
@@ -30,3 +30,4 @@ CONTAINS
END IF
END SUBROUTINE QSORT
END SUBROUTINE READIN
+! { dg-final { cleanup-modules "vimage vcimage" } }
Index: gfortran.dg/graphite/pr42050.f90
===================================================================
--- gfortran.dg/graphite/pr42050.f90 (revision 158707)
+++ gfortran.dg/graphite/pr42050.f90 (working copy)
@@ -23,3 +23,4 @@ CONTAINS
CALL test()
END SUBROUTINE sic_explicit_orbitals
END MODULE qs_ks_methods
+! { dg-final { cleanup-modules "qs_ks_methods" } }
Index: gfortran.dg/graphite/id-18.f90
===================================================================
--- gfortran.dg/graphite/id-18.f90 (revision 158707)
+++ gfortran.dg/graphite/id-18.f90 (working copy)
@@ -23,3 +23,4 @@ CONTAINS
END SELECT
END FUNCTION dlegendre
END MODULE spherical_harmonics
+! { dg-final { cleanup-modules "spherical_harmonics" } }
Index: gfortran.dg/graphite/pr42393-1.f90
===================================================================
--- gfortran.dg/graphite/pr42393-1.f90 (revision 158707)
+++ gfortran.dg/graphite/pr42393-1.f90 (working copy)
@@ -22,3 +22,4 @@ CONTAINS
fn_val = sum
END FUNCTION basym
END MODULE beta_gamma_psi
+! { dg-final { cleanup-modules "beta_gamma_psi" } }
Index: gfortran.dg/graphite/pr41924.f90
===================================================================
--- gfortran.dg/graphite/pr41924.f90 (revision 158707)
+++ gfortran.dg/graphite/pr41924.f90 (working copy)
@@ -13,3 +13,4 @@ SUBROUTINE VOLCALC()
IF ( WETSCIM ) HRVALD(ITYP) = 0.0
ENDDO
END SUBROUTINE VOLCALC
+! { dg-final { cleanup-modules "main1" } }
Index: gfortran.dg/graphite/pr42393.f90
===================================================================
--- gfortran.dg/graphite/pr42393.f90 (revision 158707)
+++ gfortran.dg/graphite/pr42393.f90 (working copy)
@@ -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" } }
Index: gfortran.dg/graphite/pr37980.f90
===================================================================
--- gfortran.dg/graphite/pr37980.f90 (revision 158707)
+++ gfortran.dg/graphite/pr37980.f90 (working copy)
@@ -9,3 +9,4 @@ contains
mat0 = 0.0d0
end function spher_cartesians
end module INT_MODULE
+! { dg-final { cleanup-modules "int_module" } }
Index: gfortran.dg/graphite/pr38953.f90
===================================================================
--- gfortran.dg/graphite/pr38953.f90 (revision 158707)
+++ gfortran.dg/graphite/pr38953.f90 (working copy)
@@ -113,3 +113,4 @@
ENDIF
999 CONTINUE
END
+! { dg-final { cleanup-modules "main1" } }
Index: gfortran.dg/graphite/pr42180.f90
===================================================================
--- gfortran.dg/graphite/pr42180.f90 (revision 158707)
+++ gfortran.dg/graphite/pr42180.f90 (working copy)
@@ -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" } }
Index: gfortran.dg/graphite/pr42181.f90
===================================================================
--- gfortran.dg/graphite/pr42181.f90 (revision 158707)
+++ gfortran.dg/graphite/pr42181.f90 (working copy)
@@ -17,3 +17,4 @@ CONTAINS
END IF
END SUBROUTINE newuob
END MODULE powell
+! { dg-final { cleanup-modules "powell" } }
Index: gfortran.dg/where_operator_assign_4.f90
===================================================================
--- gfortran.dg/where_operator_assign_4.f90 (revision 158707)
+++ gfortran.dg/where_operator_assign_4.f90 (working copy)
@@ -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" } }
Index: gfortran.dg/select_type_4.f90
===================================================================
--- gfortran.dg/select_type_4.f90 (revision 158707)
+++ gfortran.dg/select_type_4.f90 (working copy)
@@ -172,3 +172,4 @@ program main
call destroy_list(list)
stop
end program main
+! { dg-final { cleanup-modules "poly_list" } }
Index: gfortran.dg/redefined_intrinsic_assignment.f90
===================================================================
--- gfortran.dg/redefined_intrinsic_assignment.f90 (revision 158707)
+++ gfortran.dg/redefined_intrinsic_assignment.f90 (working copy)
@@ -16,3 +16,4 @@ CONTAINS
I=-J
END SUBROUTINE T1
END MODULE M1
+! { dg-final { cleanup-modules "m1" } }
Index: gfortran.dg/host_assoc_blockdata_2.f90
===================================================================
--- gfortran.dg/host_assoc_blockdata_2.f90 (revision 158707)
+++ gfortran.dg/host_assoc_blockdata_2.f90 (working copy)
@@ -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" } }
Index: gfortran.dg/lto/pr40725_0.f03
===================================================================
--- gfortran.dg/lto/pr40725_0.f03 (revision 158707)
+++ gfortran.dg/lto/pr40725_0.f03 (working copy)
@@ -14,3 +14,4 @@ contains
end subroutine sub0
end module bind_c_dts_2
+! { dg-final { cleanup-modules "bind_c_dts_2" } }
Index: gfortran.dg/elemental_args_check_2.f90
===================================================================
--- gfortran.dg/elemental_args_check_2.f90 (revision 158707)
+++ gfortran.dg/elemental_args_check_2.f90 (working copy)
@@ -17,3 +17,4 @@ CONTAINS
END INTERFACE
END SUBROUTINE S1
END MODULE M1
+! { dg-final { cleanup-modules "m1" } }
Index: gfortran.dg/whole_file_11.f90
===================================================================
--- gfortran.dg/whole_file_11.f90 (revision 158707)
+++ gfortran.dg/whole_file_11.f90 (working copy)
@@ -35,3 +35,5 @@ FUNCTION foo_count()
USE module_foo, ONLY: foo
INTEGER :: foo_count
END FUNCTION
+
+! { dg-final { cleanup-modules "module_foo" } }
Index: gfortran.dg/private_type_11.f90
===================================================================
--- gfortran.dg/private_type_11.f90 (revision 158707)
+++ gfortran.dg/private_type_11.f90 (working copy)
@@ -21,3 +21,4 @@ CONTAINS
TYPE(T1) FUNCTION F2()
END FUNCTION F2
END MODULE M1
+! { dg-final { cleanup-modules "m1" } }
Index: gfortran.dg/vect/vect-gems.f90
===================================================================
--- gfortran.dg/vect/vect-gems.f90 (revision 158707)
+++ gfortran.dg/vect/vect-gems.f90 (working copy)
@@ -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" } }
Index: gfortran.dg/vect/fast-math-real8-pr40801.f90
===================================================================
--- gfortran.dg/vect/fast-math-real8-pr40801.f90 (revision 158707)
+++ gfortran.dg/vect/fast-math-real8-pr40801.f90 (working copy)
@@ -35,3 +35,4 @@ ENDIF
END SUBROUTINE ACCONV
! { dg-final { cleanup-tree-dump "vect" } }
+! { dg-final { cleanup-modules "yomphy0" } }