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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [contained_4.f90] - Blame information for rev 828

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


! Check contained functions with the same name.
module contained_4
 
contains
 
  subroutine foo1()
    call bar()
  contains
    subroutine bar()
    end subroutine bar
  end subroutine foo1
 
  subroutine foo2()
    call bar()
  contains
    subroutine bar()
    end subroutine bar
  end subroutine foo2
 
end module contained_4
 
subroutine foo1()
call bar()
contains
  subroutine bar()
  end subroutine bar
end subroutine
 
subroutine foo2()
  call bar()
contains
  subroutine bar()
  end subroutine bar
end subroutine foo2
 

Line No.	Rev	Author	Line
1	149	jeremybenn	`! Check contained functions with the same name.`
2			`module contained_4`
3
4			`contains`
5
6			`subroutine foo1()`
7			`call bar()`
8			`contains`
9			`subroutine bar()`
10			`end subroutine bar`
11			`end subroutine foo1`
12
13			`subroutine foo2()`
14			`call bar()`
15			`contains`
16			`subroutine bar()`
17			`end subroutine bar`
18			`end subroutine foo2`
19
20			`end module contained_4`
21
22			`subroutine foo1()`
23			`call bar()`
24			`contains`
25			`subroutine bar()`
26			`end subroutine bar`
27			`end subroutine`
28
29			`subroutine foo2()`
30			`call bar()`
31			`contains`
32			`subroutine bar()`
33			`end subroutine bar`
34			`end subroutine foo2`
35

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [contained_4.f90] - Blame information for rev 828