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