https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77415
Bug ID: 77415 Summary: ICE: tree check: expected function_type or method_type, have pointer_type in create_function_arglist, at fortran/trans-decl.c:2263 Product: gcc Version: 7.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: gerhard.steinmetz.fort...@t-online.de Target Milestone: --- With invalid code : $ cat z1.f90 integer function f() f(g) = 0 contains integer function g() end end $ cat z2.f90 function f() f(g) = 0 contains function g() end end $ gfortran-7-20160828 z1.f90 # configured with --enable-checking=yes z1.f90:1:0: integer function f() internal compiler error: tree check: expected function_type or method_type, have pointer_type in create_function_arglist, at fortran/trans-decl.c:2263 0xeaf81c tree_check_failed(tree_node const*, char const*, int, char const*, ...) ../../gcc/tree.c:9742 0x742d2d tree_check2(tree_node*, char const*, int, char const*, tree_code, tree_code) ../../gcc/tree.h:3045 0x742d2d create_function_arglist ../../gcc/fortran/trans-decl.c:2263 0x746bb9 gfc_create_function_decl(gfc_namespace*, bool) ../../gcc/fortran/trans-decl.c:2820 0x74f349 gfc_generate_contained_functions ../../gcc/fortran/trans-decl.c:5185 0x74f349 gfc_generate_function_code(gfc_namespace*) ../../gcc/fortran/trans-decl.c:6143 0x6db090 translate_all_program_units ../../gcc/fortran/parse.c:5910 0x6db090 gfc_parse_file() ../../gcc/fortran/parse.c:6116 0x71d3a2 gfc_be_parse_file ../../gcc/fortran/f95-lang.c:198