--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/testsuite/gfortran.dg/generic_2.f90	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,20 @@
+! { 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