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