1! { dg-do compile }
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:)
12!
13! Reported by Tobias Burnus <burnus@gcc.gnu.org>
14!
15include 'use_only_3.inc'
16subroutine dforceb(c0, i, betae, ipol, bec0, ctabin, gqq, gqqm, qmat, dq2, df)
17  use gvecs
18  use gvecw, only: ngw
19  use parameters
20  use electrons_base, only: nx => nbspx, n => nbsp, nspin, f
21  use constants
22  use cvan
23  use ions_base
24  use ions_base, only : nas => nax
25  implicit none
26
27  integer ipol, i, ctabin
28  complex c0(n), betae, df,&
29       &   gqq,gqqm,&
30       &   qmat
31  real bec0,&
32       &   dq2,  gmes
33
34 end subroutine dforceb
35! { dg-final { cleanup-modules "cell_base constants control_flags cvan electrons_base electrons_nose gvecs gvecw ions_base kinds parameters" } }
36