OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [generic_2.f90] - Diff between revs 302 and 384

Only display areas with differences | Details | Blame | View Log

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

powered by: WebSVN 2.1.0

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