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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [entry_8.f90] - Blame information for rev 303

Details | Compare with Previous | View Log


module entry_8_m
type t
  integer i
  real x (5)
end type t
end module entry_8_m
 
function f (i)
  use entry_8_m
  type (t) :: f,g
  f % i = i
  return
  entry g (x)
  g%x = x
end function f
 
use entry_8_m
type (t) :: f, g, res
 
res = f (42)
if (res%i /= 42) call abort ()
res = g (1.)
if (any (res%x /= 1.)) call abort ()
end

Line No.	Rev	Author	Line
1	303	jeremybenn	`module entry_8_m`
2			`type t`
3			`integer i`
4			`real x (5)`
5			`end type t`
6			`end module entry_8_m`
7
8			`function f (i)`
9			`use entry_8_m`
10			`type (t) :: f,g`
11			`f % i = i`
12			`return`
13			`entry g (x)`
14			`g%x = x`
15			`end function f`
16
17			`use entry_8_m`
18			`type (t) :: f, g, res`
19
20			`res = f (42)`
21			`if (res%i /= 42) call abort ()`
22			`res = g (1.)`
23			`if (any (res%x /= 1.)) call abort ()`
24			`end`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [entry_8.f90] - Blame information for rev 303