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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de> 
---

Backup tests, analogous backtrace :


$ cat z2.f90
program p
   character(:), allocatable :: z(:,:)
   z(1:2,1:2) = 'abc'
   z(2,1) = z(12)
   z(21) = z(1,2)
end


$ cat z3.f90
program p
   character(3), allocatable :: z(:,:)
   z(1:2,1:2) = 'abc'
   z(2,1) = z(-1)
   z(2,1) = z(99)
   z(2,1) = z(huge(0))
   z(2,1) = z(-huge(0))
   z(-1) = z(2,1)
   z(99) = z(2,1)
   z(huge(0)) = z(2,1)
   z(-huge(0)) = z(2,1)
end


$ cat z4.f90
program p
   character(:), allocatable :: z(:,:)
   z(1:2,1:2) = 'abc'
   z(2,1) = z(-1)
   z(2,1) = z(99)
   z(2,1) = z(huge(0))
   z(2,1) = z(-huge(0))
   z(-1) = z(2,1)
   z(99) = z(2,1)
   z(huge(0)) = z(2,1)
   z(-huge(0)) = z(2,1)
end

Reply via email to