2 ! testcase from PR 17583
6 subroutine drivexc(nspden,rho_updn)
7 integer, intent(in) :: nspden
8 integer, intent(in) :: rho_updn(nspden)
14 subroutine nonlinear(nspden)
18 integer,intent(in) :: nspden
20 end subroutine nonlinear
22 ! { dg-final { cleanup-modules "bidon" } }