[Bug fortran/70854] ICE in gfc_process_block_locals, at fortran/trans-decl.c:6447

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

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

Similar for other intrinsic types :


$ cat z3.f90
program p
   real :: x(2), y(2)
   block
      real, parameter :: a(2) = 0.0
      x = a
      block
         y = 0.0
      end block
   end block
end


$ gfortran-6 -finit-real=zero -c z3.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447

$ gfortran-6 -finit-real=inf -c z3.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447

$ gfortran-6 -finit-local-zero -c z3.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447

---

$ cat z5.f90
program p
   logical :: x(2), y(2)
   block
      logical, parameter :: a(2) = .true.
      x = a
      block
         y = .false.
      end block
   end block
end


$ gfortran-6 -finit-logical=true -c z5.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447

$ gfortran-6 -finit-local-zero -c z5.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447

---

$ cat z7.f90
program p
   character :: x(2), y(2)
   block
      character, parameter :: a(2) = 'a'
      x = a
      block
         y = 'y'
      end block
   end block
end


$ gfortran-6 -finit-character=7 -c z7.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447

$ gfortran-6 -finit-local-zero -c z7.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447