------- Comment #18 from janus at gcc dot gnu dot org 2009-04-07 12:41 ------- Patch:
Index: gcc/fortran/trans-decl.c =================================================================== --- gcc/fortran/trans-decl.c (Revision 145652) +++ gcc/fortran/trans-decl.c (Arbeitskopie) @@ -1015,10 +1015,12 @@ gfc_get_symbol_decl (gfc_symbol * sym) if (sym->backend_decl) return sym->backend_decl; - /* Catch function declarations. Only used for actual parameters. */ + /* Catch function declarations. Only used for actual parameters and + procedure pointers. */ if (sym->attr.flavor == FL_PROCEDURE) { decl = gfc_get_extern_function_decl (sym); + gfc_set_decl_location (decl, &sym->declared_at); return decl; } -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38152