rfc: multiple decls for functions

[Daniel Franke]

On Friday 19 December 2008 21:07:41 Daniel Franke wrote:
> If F and G as shown above are grouped into a module (MODULE m), nm shows:
> 0000006d T __m_MOD_f
> 00000000 t g.1501
> 0000007a T g_
>
> Should G/contained G not be mangled here (as it is if the contained G is
> removed)?

Depending on the order of F and G within the module, one might also get:

$> cat call.f90
MODULE m
CONTAINS
  SUBROUTINE f()
    CALL g()
  CONTAINS
    SUBROUTINE g()
    END SUBROUTINE
  END SUBROUTINE
  SUBROUTINE g()      ! G was declared before F in the previous example
  END SUBROUTINE
END MODULE

$> gfortran-svn -g -Wall -c call.f90
$> nm call.o
000000da T __m_MOD_f
00000000 T __m_MOD_g
0000006d t g.1502