re PR fortran/24245 (-fdump-parse-tree gives ICE for CONTAINED functions)

re PR fortran/24245 (-fdump-parse-tree gives ICE for CONTAINED functions)

fortran/
2005-11-01  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR 24245
        * trans.c (gfc_generate_code): Move code to create a main
        program symbol from here ...
        * parse.c (main_program_symbol): ... to this new
        function, setting the locus from gfc_current_locus
        instead of ns->code->loc.
        (gfc_parse_file):  Call main_program_symbol for main programs.

From-SVN: r106353