1! { dg-do compile }
2! testcase from PR 17583
3module bidon
4
5 interface
6  subroutine drivexc(nspden,rho_updn)
7   integer,  intent(in) :: nspden
8   integer, intent(in) :: rho_updn(nspden)
9  end subroutine drivexc
10 end interface
11
12end module bidon
13
14 subroutine nonlinear(nspden)
15
16 use bidon
17
18 integer,intent(in) :: nspden
19
20 end subroutine nonlinear
21