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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [module_interface.f90] - Blame information for rev 823

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


! We were incorrectly mangling procedures in interfaces in modules
 
module module_interface
    interface
        subroutine foo ()
        end subroutine foo
    end interface
contains
subroutine cs
end subroutine
 
subroutine cproc
  interface
      subroutine bar ()
      end subroutine
  end interface
  call bar ()
  call foo ()
  call cs ()
end subroutine
end module
 
subroutine foo ()
end subroutine
 
subroutine bar ()
end subroutine
 
program module_interface_proc
  use module_interface
  interface
      subroutine bar ()
      end subroutine
  end interface
 
  call cproc ()
  call foo ()
  call bar ()
end program

Line No.	Rev	Author	Line
1	149	jeremybenn	`! We were incorrectly mangling procedures in interfaces in modules`
2
3			`module module_interface`
4			`interface`
5			`subroutine foo ()`
6			`end subroutine foo`
7			`end interface`
8			`contains`
9			`subroutine cs`
10			`end subroutine`
11
12			`subroutine cproc`
13			`interface`
14			`subroutine bar ()`
15			`end subroutine`
16			`end interface`
17			`call bar ()`
18			`call foo ()`
19			`call cs ()`
20			`end subroutine`
21			`end module`
22
23			`subroutine foo ()`
24			`end subroutine`
25
26			`subroutine bar ()`
27			`end subroutine`
28
29			`program module_interface_proc`
30			`use module_interface`
31			`interface`
32			`subroutine bar ()`
33			`end subroutine`
34			`end interface`
35
36			`call cproc ()`
37			`call foo ()`
38			`call bar ()`
39			`end program`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [module_interface.f90] - Blame information for rev 823