[Bug fortran/128488] Segmentation fault for function in declaration

[thod_ at gmx dot de via Gcc-bugs]

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

--- Comment #2 from thod_ at gmx dot de ---
gfortran -c a.f90 gives in 16.2.1:

a.f90:11:8:

   11 |     if (str_onlyChars(str(j+1:j+1))) str2l = 1
      |        1
internal compiler error: Segmentation fault
0x280bf8e diagnostics::context::diagnostic_impl(rich_location*,
diagnostics::metadata const*, diagnostics::option_id, char const*,
__va_list_tag (*) [1], diagnostics::kind)
        ???:0
0x280e70f internal_error(char const*, ...)
        ???:0
0x14ba8c3841ab __strcmp_avx2
        ???:0
0x978836 gfc_conv_procedure_call(gfc_se*, gfc_symbol*, gfc_actual_arglist*,
gfc_expr*, vec<tree_node*, va_gc, vl_embed>*)
        ???:0
0x98370e gfc_conv_expr_val(gfc_se*, gfc_expr*)
        ???:0
0x9e1051 gfc_trans_if(gfc_code*)
        ???:0
0x962a69 gfc_generate_function_code(gfc_namespace*)
        ???:0
0x928e81 gfc_generate_module_code(gfc_namespace*)
        ???:0
0x89ec9b gfc_parse_file()
        ???:0