[Bug fortran/84115] [8 Regression] ICE: tree check: expected tree that contains 'decl minimal' structure, have 'indirect_ref' in add_decl_as_local, at fortran/trans-decl.c:256

[gs...@t-online.de]

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

--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---

A few more testcases :


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


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


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


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