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

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

With a typo, down to at least gcc-5 :


$ cat z1.f90
program p
   type t
      integer :: a
   end type
   type(t) :: x
   data x /t()1/
   print *, x
end


$ gfortran-9-20181118 -c z1.f90
0x618fae gfc_format_decoder
        ../../gcc/fortran/error.c:947
0x131577e pp_format(pretty_printer*, text_info*)
        ../../gcc/pretty-print.c:1390
0x130b125 diagnostic_report_diagnostic(diagnostic_context*, diagnostic_info*)
        ../../gcc/diagnostic.c:1015
0x618e4c gfc_error_opt
        ../../gcc/fortran/error.c:1313
0x61a3f0 gfc_error(char const*, ...)
        ../../gcc/fortran/error.c:1342
0x675e10 build_actual_constructor
        ../../gcc/fortran/primary.c:2934
0x6793f6 gfc_convert_to_structure_constructor(gfc_expr*, gfc_symbol*,
gfc_expr**, gfc_actual_arglist**, bool)
        ../../gcc/fortran/primary.c:3148
0x679801 gfc_match_structure_constructor(gfc_symbol*, gfc_expr**)
        ../../gcc/fortran/primary.c:3228
0x604f2f match_data_constant
        ../../gcc/fortran/decl.c:427
0x604fe3 top_val_list
        ../../gcc/fortran/decl.c:472
0x6051ff gfc_match_data()
        ../../gcc/fortran/decl.c:616
0x66a891 match_word
        ../../gcc/fortran/parse.c:65
0x66dfd6 decode_statement
        ../../gcc/fortran/parse.c:468
0x66ebfa next_free
        ../../gcc/fortran/parse.c:1234
0x66ebfa next_statement
        ../../gcc/fortran/parse.c:1466
0x67020b parse_spec
        ../../gcc/fortran/parse.c:3858
0x672cd7 parse_progunit
        ../../gcc/fortran/parse.c:5671
0x674359 gfc_parse_file()
        ../../gcc/fortran/parse.c:6211
0x6bc97f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204

Reply via email to