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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [generic_2.f90] - Blame information for rev 399

Go to most recent revision | Details | Compare with Previous | 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" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { 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" } }`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [generic_2.f90] - Blame information for rev 399