OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [generic_2.f90] - Rev 694

Compare with Previous | Blame | View Log

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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.