obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 38 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/use_only_3.f90 b/gcc/testsuite/gfortran.dg/use_only_3.f90
new file mode 100644
index 000000000..509752a7b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/use_only_3.f90
@@ -0,0 +1,38 @@
+! { dg-do compile }
+! This tests the patch for PR34975, in which 'n', 'ipol', and 'i' would be
+! determined to have 'no IMPLICIT type'.  It turned out to be fiendishly
+! difficult to write a testcase for this PR because even the smallest changes
+! would make the bug disappear.  This is the testcase provided in the PR, except
+! that all the modules are put in 'use_only_3.inc' in the same order as the
+! makefile.  Even this has an effect; only 'n' is now determined to be
+! improperly typed.  All this is due to the richness of the symtree and the
+! way in which the renaming inserted new symtree entries.  Unless somenody can
+! come up with a reduced version, this relatively large file will have to be added
+! to the testsuite.  Fortunately, it only has to be comiled once:)
+!  
+! Reported by Tobias Burnus <burnus@gcc.gnu.org>
+!
+include 'use_only_3.inc'
+subroutine dforceb(c0, i, betae, ipol, bec0, ctabin, gqq, gqqm, qmat, dq2, df)
+  use gvecs
+  use gvecw, only: ngw
+  use parameters
+  use electrons_base, only: nx => nbspx, n => nbsp, nspin, f
+  use constants
+  use cvan
+  use ions_base
+  use ions_base, only : nas => nax
+  implicit none
+
+  integer ipol, i, ctabin
+  complex c0(n), betae, df,&
+       &   gqq,gqqm,&
+       &   qmat
+  real bec0,&
+       &   dq2,  gmes
+
+ end subroutine dforceb
+! { dg-final { cleanup-modules "cell_base cvan gvecs kinds" } }
+! { dg-final { cleanup-modules "constants electrons_base gvecw parameters" } }
+! { dg-final { cleanup-modules "control_flags electrons_nose ions_base" } }
+