[Bug fortran/69566] Failure of SELECT TYPE with unlimited polymorphic function result

[pault at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69566

--- Comment #5 from Paul Thomas <pault at gcc dot gnu.org> ---
Created attachment 39805
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=39805&action=edit
Fix for the PR

The attached fixes the testcase in the comment and more besides. I think that
some of the fix is unnecessary. I will do final adjustments once I am back at
base.

It bootstraps and regtests on FC23/x87_64

Paul