2 ! This tests the patch for PR34975, in which 'n', 'ipol', and 'i' would be
3 ! determined to have 'no IMPLICIT type'. It turned out to be fiendishly
4 ! difficult to write a testcase for this PR because even the smallest changes
5 ! would make the bug disappear. This is the testcase provided in the PR, except
6 ! that all the modules are put in 'use_only_3.inc' in the same order as the
7 ! makefile. Even this has an effect; only 'n' is now determined to be
8 ! improperly typed. All this is due to the richness of the symtree and the
9 ! way in which the renaming inserted new symtree entries. Unless somenody can
10 ! come up with a reduced version, this relatively large file will have to be added
11 ! to the testsuite. Fortunately, it only has to be comiled once:)
13 ! Reported by Tobias Burnus <burnus@gcc.gnu.org>
15 include 'use_only_3.inc'
16 subroutine dforceb(c0, i, betae, ipol, bec0, ctabin, gqq, gqqm, qmat, dq2, df)
20 use electrons_base, only: nx => nbspx, n => nbsp, nspin, f
24 use ions_base, only : nas => nax
27 integer ipol, i, ctabin
28 complex c0(n), betae, df,&
34 end subroutine dforceb
35 ! { dg-final { cleanup-modules "cell_base cvan gvecs kinds" } }
36 ! { dg-final { cleanup-modules "constants electrons_base gvecw parameters" } }
37 ! { dg-final { cleanup-modules "control_flags electrons_nose ions_base" } }