------- 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