! { dg-do compile } ! testcase from PR 17583 module bidon interface subroutine drivexc(nspden,rho_updn) integer, intent(in) :: nspden integer, intent(in) :: rho_updn(nspden) end subroutine drivexc end interface end module bidon subroutine nonlinear(nspden) use bidon integer,intent(in) :: nspden end subroutine nonlinear ! { dg-final { cleanup-modules "bidon" } }