[Bug fortran/69268] [5 Regression] Sourced allocation calls function twice

[townsend at astro dot wisc.edu]

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

--- Comment #3 from Rich Townsend <townsend at astro dot wisc.edu> ---
Proposed patch appears to work in the real-world case I'm focused on. Thanks!