[Bug fortran/82605] New: ICE in insert_parameter_exprs, at fortran/decl.c:3154

["gscfq at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 82605
           Summary: ICE in insert_parameter_exprs, at fortran/decl.c:3154
           Product: gcc
           Version: 8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

With a missing attribute allocatable or pointer :


$ cat z1.f90
program p
   type t(a, b)
      integer, kind :: a
      integer, len :: b
      real(a) :: r(b)
   end type
   type(t(8, :)) :: x
   real(x%a) :: y
end


$ gfortran-8-20171015 -c z1.f90
z1.f90:9:0:

 end

internal compiler error: Segmentation fault
0xb5a08f crash_signal
        ../../gcc/toplev.c:326
0x677a7c insert_parameter_exprs
        ../../gcc/fortran/decl.c:3154
0x693c49 gfc_traverse_expr(gfc_expr*, gfc_symbol*, bool (*)(gfc_expr*,
gfc_symbol*, int*), int)
        ../../gcc/fortran/expr.c:4636
0x73c8d2 structure_alloc_comps
        ../../gcc/fortran/trans-array.c:9041
0x73df30 gfc_allocate_pdt_comp(gfc_symbol*, tree_node*, int,
gfc_actual_arglist*)
        ../../gcc/fortran/trans-array.c:9301
0x751a7f gfc_trans_deferred_vars(gfc_symbol*, gfc_wrapped_block*)
        ../../gcc/fortran/trans-decl.c:4300
0x7540c3 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6525
0x6e6580 translate_all_program_units
        ../../gcc/fortran/parse.c:6088
0x6e6580 gfc_parse_file()
        ../../gcc/fortran/parse.c:6291
0x72a6bf gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204