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/] [module_interface_2.f90] - Blame information for rev 307

Go to most recent revision | Details | Compare with Previous | View Log


! Test generic interfaces declared in modules.
! We used to get the name mangling wrong for these.
module module_interface_2
  interface foo
    subroutine myfoo (i)
      integer i
    end subroutine
    module procedure bar
  end interface
contains
subroutine bar (r)
  real r
 
  if (r .ne. 1.0) call abort ()
end subroutine
end module
 
subroutine myfoo (i)
  integer i
 
  if (i .ne. 42) call abort ()
end subroutine
 
program test
  use module_interface_2
 
  call foo (42)
  call foo (1.0)
end program

Line No.	Rev	Author	Line
1	303	jeremybenn	`! Test generic interfaces declared in modules.`
2			`! We used to get the name mangling wrong for these.`
3			`module module_interface_2`
4			`interface foo`
5			`subroutine myfoo (i)`
6			`integer i`
7			`end subroutine`
8			`module procedure bar`
9			`end interface`
10			`contains`
11			`subroutine bar (r)`
12			`real r`
13
14			`if (r .ne. 1.0) call abort ()`
15			`end subroutine`
16			`end module`
17
18			`subroutine myfoo (i)`
19			`integer i`
20
21			`if (i .ne. 42) call abort ()`
22			`end subroutine`
23
24			`program test`
25			`use module_interface_2`
26
27			`call foo (42)`
28			`call foo (1.0)`
29			`end program`

Browse

Tools

Subversion Repositories openrisc_me

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