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