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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [module_double_reuse.f90] - Blame information for rev 384

Details | Compare with Previous | View Log


! Test of fix for PR18878
!
! Based on example in PR by Steve Kargl
!
module a
  integer, parameter :: b = kind(1.d0)
  real(b)            :: z
end module a
program d
  use a, only : e => b, f => b, u => z, v => z
  real(e) x
  real(f) y
  x = 1.e0_e
  y = 1.e0_f
  u = 99.0
  if (kind(x).ne.kind(y)) call abort ()
  if (v.ne.u) call abort ()
end program d
 
! { dg-final { cleanup-modules "a" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! Test of fix for PR18878`
2			`!`
3			`! Based on example in PR by Steve Kargl`
4			`!`
5			`module a`
6			`integer, parameter :: b = kind(1.d0)`
7			`real(b) :: z`
8			`end module a`
9			`program d`
10			`use a, only : e => b, f => b, u => z, v => z`
11			`real(e) x`
12			`real(f) y`
13			`x = 1.e0_e`
14			`y = 1.e0_f`
15			`u = 99.0`
16			`if (kind(x).ne.kind(y)) call abort ()`
17			`if (v.ne.u) call abort ()`
18			`end program d`
19
20			`! { dg-final { cleanup-modules "a" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [module_double_reuse.f90] - Blame information for rev 384