[Bug fortran/77667] New: ICE in expand_call, at calls.c:2588

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 77667
           Summary: ICE in expand_call, at calls.c:2588
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

With invalid code :


$ cat z1.f90
program p
   type t
      integer :: a
      integer, pointer :: b
   end type
   type(t) :: x
   data x /t(4, nul())/
   print *, x%a, associated(x%b)
end


$ gfortran-7-20160918 z1.f90
z1.f90:9:0:

 end

internal compiler error: Segmentation fault
0xc21a5f crash_signal
        ../../gcc/toplev.c:336
0x7eea98 expand_call(tree_node*, rtx_def*, int)
        ../../gcc/calls.c:2588
0x9058ac expand_expr_real_1(tree_node*, rtx_def*, machine_mode,
expand_modifier, rtx_def**, bool)
        ../../gcc/expr.c:10737
0xf092a3 expand_expr
        ../../gcc/expr.h:279
0xf092a3 output_constant
        ../../gcc/varasm.c:4758
0xf0a311 output_constant
        ../../gcc/varasm.c:4665
0xf0a311 output_constructor_regular_field
        ../../gcc/varasm.c:5018
0xf0a311 output_constructor
        ../../gcc/varasm.c:5288
0xf0bbb4 output_constant
        ../../gcc/varasm.c:4665
0xf0bbb4 assemble_variable_contents
        ../../gcc/varasm.c:2074
0xf133f9 assemble_variable(tree_node*, int, int, int)
        ../../gcc/varasm.c:2250
0xf18be8 varpool_node::assemble_decl()
        ../../gcc/varpool.c:589
0x83ee1b output_in_order
        ../../gcc/cgraphunit.c:2232
0x83f1fd symbol_table::compile()
        ../../gcc/cgraphunit.c:2472
0x841c52 symbol_table::compile()
        ../../gcc/cgraphunit.c:2542
0x841c52 symbol_table::finalize_compilation_unit()
        ../../gcc/cgraphunit.c:2568

---


Older releases give :


$ gfortran-6 z1.f90
z1.f90:9:0:

 end

internal compiler error: Segmentation fault


$ gfortran-5 z1.f90
z1.f90:9:0:

 end
 ^
internal compiler error: in gen_reg_rtx, at emit-rtl.c:1059


$ gfortran-4.9 z1.f90
z1.f90:9:0: internal compiler error: in gen_reg_rtx, at emit-rtl.c:866
 end
 ^
Please submit a full bug report,
with preprocessed source if appropriate.