[Bug fortran/104570] [12 Regression] ICE in gfc_conv_scalarized_array_ref, at fortran/trans-array.cc:3681

[gscfq--- via Gcc-bugs]

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

G. Steinmetz <gs...@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code

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

Please note, no ICE with these variants :


$ cat z3.f90
program p
   character(:), allocatable :: x(:)
   x = ['abc']
   call s
contains
   subroutine s
      associate (y => x)
         associate (z => y)
            print *, z
         end associate
      end associate
   end
end


$ cat z4.f90
program p
   character(:), allocatable :: x(:)
   call s
contains
   subroutine s
      associate (y => x)
         associate (z => y)
            print *, z
         end associate
      end associate
   end
end


$ cat z5.f90
program p
   character(3) :: x(2)
   call s
contains
   subroutine s
      associate (y => x)
         associate (z => (y))
            print *, z
         end associate
      end associate
   end
end


$ cat z6.f90
program p
   character, allocatable :: x(:)
   call s
contains
   subroutine s
      associate (y => x)
         associate (z => (y))
            print *, z
         end associate
      end associate
   end
end


$ cat z7.f90
program p
   character, allocatable :: x(:)
   x = ['a']
   call s
contains
   subroutine s
      associate (y => x)
         associate (z => (y))
            print *, z
         end associate
      end associate
   end
end