1! Check contained functions with the same name.
2module contained_4
3
4contains
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
20end module contained_4
21
22subroutine foo1()
23call bar()
24contains
25  subroutine bar()
26  end subroutine bar
27end subroutine
28
29subroutine foo2()
30  call bar()
31contains
32  subroutine bar()
33  end subroutine bar
34end subroutine foo2
35
36