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" } }