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

[anlauf at gcc dot gnu.org]

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

--- Comment #17 from anlauf at gcc dot gnu.org ---
(In reply to Paul Thomas from comment #16)
> Created attachment 58717 [details]
> 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.

I've just tested that fix and it works here.
Fixes also the full module where I extracted the reproducer from.

OK from my side.

Thanks, Paul!