[Bug fortran/36463] [4.4 regression] gfc_get_default_type(): Bad symbol

[janus at gcc dot gnu dot org]

------- Comment #13 from janus at gcc dot gnu dot org  2008-11-01 14:20 -------
Here is a maximally reduced (and slightly modified) version of comment #12,
which gives the same error:


module other_fun
   abstract interface
      function abstract_fun(x)
         integer x
         integer abstract_fun(x)
      end function abstract_fun
   end interface
end module other_fun

program fptr
   use other_fun
   procedure(abstract_fun) :: fun
end program fptr


"gfortran-4.4 fptr.f90" gives the output:

end program fptr
               1
Internal Error at (1):
gfc_get_default_type(): Bad symbol '@0'

gfortran version 4.3 happily accepts this test case without complaining, so I
suppose this makes it a regression again.


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|gfc_get_default_type(): Bad |[4.4 regression]
                   |symbol                      |gfc_get_default_type(): Bad
                   |                            |symbol


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36463