http://gcc.gnu.org/bugzilla/show_bug.cgi?id=49690
--- Comment #4 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-07-09 17:09:03 UTC --- Possible place for correcting this would be gfc_resolve_signal; for current test case, setting f->value.function.isym->formal->next->ts.{type,kind} would work. However, that would probably modify isym and thus affect all calls to SIGNAL.