gcc/testsuite/gfortran.dg/generic_2.f90

   1 ! { dg-do compile }
   2 ! testcase from PR 17583
   3 module 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
  12 end module bidon
  13
  14  subroutine nonlinear(nspden)
  15
  16  use bidon
  17
  18  integer,intent(in) :: nspden
  19
  20  end subroutine nonlinear
  21
  22 ! { dg-final { cleanup-modules "bidon" } }