[Bug fortran/69604] ICE in gfc_add_modify_loc, at fortran/trans.c:159

[anlauf at gmx dot de]

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

--- Comment #11 from Harald Anlauf <anlauf at gmx dot de> ---
While reducing PR 78290, I found another example giving a similar traceback:

% gfc-trunk gfcbug136.f90
gfcbug136.f90:13:0:

   ip=>ta%i !!! Works if you comment this line out !!!

internal compiler error: in gfc_add_modify_loc, at fortran/trans.c:159
0x835756e gfc_add_modify_loc(unsigned int, stmtblock_t*, tree_node*,
tree_node*)
        ../../trunk/gcc/fortran/trans.c:158
0x83575e7 gfc_add_modify(stmtblock_t*, tree_node*, tree_node*)
        ../../trunk/gcc/fortran/trans.c:170
0x83a90eb gfc_trans_pointer_assignment(gfc_expr*, gfc_expr*)
        ../../trunk/gcc/fortran/trans-expr.c:8267
0x83a9688 gfc_trans_pointer_assign(gfc_code*)
        ../../trunk/gcc/fortran/trans-expr.c:8054
0x8358357 trans_code
        ../../trunk/gcc/fortran/trans.c:1714
0x838d62c gfc_generate_function_code(gfc_namespace*)
        ../../trunk/gcc/fortran/trans-decl.c:6261
0x830d833 translate_all_program_units
        ../../trunk/gcc/fortran/parse.c:6038
0x830d833 gfc_parse_file()
        ../../trunk/gcc/fortran/parse.c:6238
0x8352db5 gfc_be_parse_file
        ../../trunk/gcc/fortran/f95-lang.c:202

% cat gfcbug136.f90
! Reduced from PR 78290, similar to PR 69604
subroutine foo ()
  implicit none
  type mytype
    integer :: i = 1
  end type mytype

  type(mytype),target  :: ta(9)
  integer     ,pointer :: ip(:)

  volatile :: ip  ! <-- ICE

  ip=>ta%i !!! Works if you comment this line out !!!

end subroutine foo