[Bug fortran/99838] New: ICE in gfc_format_decoder, at fortran/error.c:970

["gscfq@t-online.de" <gcc-bugzilla@gcc.gnu.org>]

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

            Bug ID: 99838
           Summary: ICE in gfc_format_decoder, at fortran/error.c:970
           Product: gcc
           Version: 11.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

With option -Warray-temporaries, affects versions down to at least r5 :


$ cat z1.f90
program p
   type t
      integer :: a
   end type
   type(t) :: x(3)[*]
   data x%a /1, 2, 3/
end


$ gfortran-11-20210328 -c z1.f90 -fcoarray=lib
$ gfortran-11-20210328 -c z1.f90 -Warray-temporaries -fcoarray=single
$
$ gfortran-11-20210328 -c z1.f90 -Warray-temporaries -fcoarray=lib

z1.f90:1:9:

    1 | program p
      |         1
in gfc_format_decoder, at fortran/error.c:970
0x686202 gfc_format_decoder
        ../../gcc/fortran/error.c:970
0x162f05e pp_format(pretty_printer*, text_info*)
        ../../gcc/pretty-print.c:1475
0x1622fe1 diagnostic_report_diagnostic(diagnostic_context*, diagnostic_info*)
        ../../gcc/diagnostic.c:1244
0x685fc5 gfc_report_diagnostic
        ../../gcc/fortran/error.c:782
0x685fc5 gfc_warning
        ../../gcc/fortran/error.c:815
0x686d86 gfc_warning(int, char const*, ...)
        ../../gcc/fortran/error.c:846
0x73c613 gfc_trans_create_temp_array(stmtblock_t*, stmtblock_t*, gfc_ss*,
tree_node*, tree_node*, bool, bool, bool, locus*)
        ../../gcc/fortran/trans-array.c:1355
0x746663 trans_array_constructor
        ../../gcc/fortran/trans-array.c:2724
0x746663 gfc_add_loop_ss_code
        ../../gcc/fortran/trans-array.c:3012
0x746d95 gfc_conv_loop_setup(gfc_loopinfo*, locus*)
        ../../gcc/fortran/trans-array.c:5317
0x776b0d gfc_trans_assignment_1
        ../../gcc/fortran/trans-expr.c:11179
0x753cd8 generate_coarray_sym_init
        ../../gcc/fortran/trans-decl.c:5736
0x71d2b2 do_traverse_symtree
        ../../gcc/fortran/symbol.c:4170
0x753135 generate_coarray_init
        ../../gcc/fortran/trans-decl.c:5786
0x75f9c4 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6822
0x6e5de6 translate_all_program_units
        ../../gcc/fortran/parse.c:6351
0x6e5de6 gfc_parse_file()
        ../../gcc/fortran/parse.c:6620
0x7320ef gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:212