[Bug fortran/59104] 15 Regression - Wrong result with SIZE specification expression

[pault at gcc dot gnu.org]

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

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

The mechanism in the original fix was OK but the use of the locus location was
not. I will investigate why this is the case but the attached works and is very
close to the first thing that I tried for the PR!

It regtests fine. I will dejagnu-ify the testcase and will commit to mainline
in 24 hours, if I don't hear objections.

Paul