[Bug fortran/66544] [F03] ICE on function with procedure-pointer result in combination with implicit none

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66544

Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Version|5.1.1                       |7.0

--- Comment #7 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Update, backtrace :


$ cat z1_comment_0.f90
module m
   implicit none
contains
   function f() result(z)
      procedure(f), pointer :: z
   end
end module


$ gfortran-7-20161106 -c z1_comment_0.f90
z1_comment_0.f90:4:0:

    function f() result(z)

internal compiler error: in gfc_typenode_for_spec, at
fortran/trans-types.c:1064
0x7beda3 gfc_typenode_for_spec(gfc_typespec*, bool)
        ../../gcc/fortran/trans-types.c:1064
0x7bce23 gfc_sym_type(gfc_symbol*)
        ../../gcc/fortran/trans-types.c:2167
0x7bd92b gfc_get_function_type(gfc_symbol*)
        ../../gcc/fortran/trans-types.c:3030
0x7bdadc gfc_get_function_type(gfc_symbol*)
        ../../gcc/fortran/trans-types.c:3023
0x74a92f build_function_decl
        ../../gcc/fortran/trans-decl.c:2153
0x74fd1b gfc_create_function_decl(gfc_namespace*, bool)
        ../../gcc/fortran/trans-decl.c:2829
0x72d277 gfc_generate_module_code(gfc_namespace*)
        ../../gcc/fortran/trans.c:2057
0x6e1cbd translate_all_program_units
        ../../gcc/fortran/parse.c:5931
0x6e1cbd gfc_parse_file()
        ../../gcc/fortran/parse.c:6144
0x725822 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198