[Bug fortran/80164] New: ICE in gfc_format_decoder at gcc/fortran/error.c:933

[marxin at gcc dot gnu.org]

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

            Bug ID: 80164
           Summary: ICE in gfc_format_decoder at gcc/fortran/error.c:933
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: marxin at gcc dot gnu.org
  Target Milestone: ---

All releases I have do ICE on:

$ gfortran
/home/marxin/Programming/gcc/gcc/testsuite/gfortran.dg/where_operator_assign_3.f90
-Warray-temporaries

gfortran
/home/marxin/Programming/gcc/gcc/testsuite/gfortran.dg/where_operator_assign_3.f90
-Warray-temporaries

/home/marxin/Programming/gcc/gcc/testsuite/gfortran.dg/where_operator_assign_3.f90:58:0:

   x = (/a (0, "one"),a (0, "two"),a (0, "three"),a (0, "four")/)

Segmentation fault
0xff34f2 crash_signal
        ../../gcc/toplev.c:337
0x838b8a gfc_format_decoder
        ../../gcc/fortran/error.c:933
0x1b66896 pp_format(pretty_printer*, text_info*)
        ../../gcc/pretty-print.c:679
0x1b5300c diagnostic_report_diagnostic(diagnostic_context*, diagnostic_info*)
        ../../gcc/diagnostic.c:961
0x8385f0 gfc_warning
        ../../gcc/fortran/error.c:792
0x83875a gfc_warning(int, char const*, ...)
        ../../gcc/fortran/error.c:823
0x9258ca gfc_trans_create_temp_array(stmtblock_t*, stmtblock_t*, gfc_ss*,
tree_node*, tree_node*, bool, bool, bool, locus*)
        ../../gcc/fortran/trans-array.c:1044
0x928fe6 trans_array_constructor
        ../../gcc/fortran/trans-array.c:2382
0x929a09 gfc_add_loop_ss_code
        ../../gcc/fortran/trans-array.c:2664
0x930404 gfc_conv_loop_setup(gfc_loopinfo*, locus*)
        ../../gcc/fortran/trans-array.c:4915
0x9c411f gfc_trans_call(gfc_code*, bool, tree_node*, tree_node*, bool)
        ../../gcc/fortran/trans-stmt.c:455
0x921eff trans_code
        ../../gcc/fortran/trans.c:1896
0x9222fe gfc_trans_code(gfc_code*)
        ../../gcc/fortran/trans.c:2128
0x95cf7d gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6332
0x922342 gfc_generate_code(gfc_namespace*)
        ../../gcc/fortran/trans.c:2145
0x8b46ff translate_all_program_units
        ../../gcc/fortran/parse.c:6074
0x8b4d0f gfc_parse_file()
        ../../gcc/fortran/parse.c:6274
0x90aedd gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204