[Bug fortran/66544] New: ICE on function with pointer result in combination with implicit none

[gerhard.steinmetz.fortran@t-online.de]

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

            Bug ID: 66544
           Summary: ICE on function with pointer result in combination
                    with implicit none
           Product: gcc
           Version: 5.1.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

This code with "implicit none" :
   module m
      implicit none
   contains
      function f() result(z)
         procedure(f), pointer :: z
      end
   end module

yields (with gfortran 5.1.1 on SUSE Linux 13.2, 64 bit) :
internal compiler error: in gfc_typenode_for_spec, at
fortran/trans-types.c:1064

---

Deleting "implicit none" from source :
   module m
   contains
      function f() result(z)
      implicit none
         procedure(f), pointer :: z
      end
   end module


$ gfortran -g -O0 -Wall -fcheck=all -fno-frontend-optimize -c z0.f90
   function f() result(z)
                         1
Warning: Return value 'z' of function 'f' declared at (1) not set

---

With option -fimplicit-none same issue as above :

$ gfortran -g -O0 -Wall ... -fimplicit-none -c z0.f90
z0.f90:3:0: internal compiler error: in gfc_typenode_for_spec, at
fortran/trans-types.c:1064
    function f() result(z)
 ^
Please submit a full bug report,
with preprocessed source if appropriate.