[Bug fortran/123673] [PDT] seg fault on composite PDT function result

[pault at gcc dot gnu.org via Gcc-bugs]

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

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

This fixes the PR as it stands together with PR123545. The variants have yet to
come.

Paul