[Bug middle-end/82617] Internal compiler error in expand_expr_real_1 when compiling the attached file

["uberprugelknabe at hotmail dot com" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #3 from Ögmundur Petersson <uberprugelknabe at hotmail dot com> ---
I fear that it doesn't add any new information but here is my full backtrace:

test.f90:22:0:

   FUNCTION str_words(str,white) RESULT(items)

Error: Local declaration from a different function
..__result
test.f90:27:0:

     items = strwords_impl(str,white)

note: in statement
..__result = ..__result;
test.f90:22:0:

   FUNCTION str_words(str,white) RESULT(items)

Error: Local declaration from a different function
..__result
test.f90:27:0:

     items = strwords_impl(str,white)

note: in statement
_28 = (integer(kind=8)) ..__result;
test.f90:22:0:

   FUNCTION str_words(str,white) RESULT(items)

Error: Local declaration from a different function
..__result
test.f90:27:0:

     items = strwords_impl(str,white)

note: in statement
D.3662 = (sizetype) ..__result;
test.f90:22:0:

   FUNCTION str_words(str,white) RESULT(items)

internal compiler error: verify_gimple failed
0xc330ae verify_gimple_in_cfg(function*, bool)
        ../../gcc-7.2.0/gcc/tree-cfg.c:5266
0xb15866 execute_function_todo
        ../../gcc-7.2.0/gcc/passes.c:1966
0xb168b2 execute_todo
        ../../gcc-7.2.0/gcc/passes.c:2016
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <https://gcc.gnu.org/bugs/> for instructions.