[Bug fortran/83975] [8 Regression] ICE in set_parm_default_def_partition, at tree-ssa-coalesce.c:1919

[gscfq@t-online.de]

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

--- Comment #7 from G. Steinmetz <gscfq@t-online.de> ---

Some additional testcases :


$ cat z2.f90
subroutine s(x)
   character(*) :: x
   associate (y => [x])
      print *, size(y), len(y), y
   end associate
end


$ cat z3.f90
subroutine s(x)
   character(*) :: x
   associate (y => [x, x])
      print *, y
   end associate
end


$ cat z4.f90
subroutine s(x)
   character(*) :: x
   associate (y => x)
      y = 'abc'
      print *, y
   end associate
end


$ cat z5.f90
subroutine s(x)
   character(*) :: x
   associate (y => x//x)
      print *, y
   end associate
end