[Bug fortran/58470] [4.9 Regression] [OOP] ICE on invalid with FINAL procedure and type extension

[dominiq at lps dot ens.fr]

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

--- Comment #4 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> The following patch fixes it and is free of testsuite regressions: ...

I am not sure (as in "I am pretty sure") that the finalization coverage in the
test suite (as well as in the real world) is enough. Removing a block which was
clearly written on purpose makes me nervous.