[Bug fortran/82923] Automatic allocation of deferred length character using function result

[dominiq at lps dot ens.fr]

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

--- Comment #5 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> Confirmed, however I see an ICE when compiling the "type" variant of pr65381.

I have forgotten to say that the ICE is similar to the one in comment 1

pr65381_red.f90:15:0:

     pure function fixedStringTable(this) result(fixed)

Error: Local declaration from a different function
D.3828
pr65381_red.f90:15:0:

     pure function fixedStringTable(this) result(fixed)

note: in statement
D.3828 = MAX_EXPR <_8, 0>;
pr65381_red.f90:15:0:

     pure function fixedStringTable(this) result(fixed)

Error: Local declaration from a different function
D.3828
pr65381_red.f90:15:0:

     pure function fixedStringTable(this) result(fixed)

note: in statement
_11 = (sizetype) D.3828;
pr65381_red.f90:15:0:

     pure function fixedStringTable(this) result(fixed)

Error: Local declaration from a different function
D.3828
pr65381_red.f90:15:0:

     pure function fixedStringTable(this) result(fixed)

note: in statement
D.3894 = (sizetype) D.3828;
pr65381_red.f90:15:0:

     pure function fixedStringTable(this) result(fixed)

Error: Local declaration from a different function
D.3828
pr65381_red.f90:26:0:

                 fixed(k) = this(i)%list(j)%chars

note: in statement
D.3883 = D.3828;
during GIMPLE pass: cfg
pr65381_red.f90:15:0:

     pure function fixedStringTable(this) result(fixed)

internal compiler error: verify_gimple failed