[Patch, Fortran, Regression] PR 55907: ICE with -fno-automatic -finit-local-zero

[Janus Weil <janus at gcc dot gnu dot org>]

Hi all,

here is a small patch for a ICE-on-valid regression. Regtested on
x86_64-unknown-linux-gnu. Ok for trunk/4.8/4.7?

Cheers,
Janus


2014-02-16  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/55907
    * resolve.c (build_default_init_expr): Don't initialize character
    variable if -fno-automatic is given.


2014-02-16  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/55907
    * gfortran.dg/init_flag_12.f90: New.

Attachment: pr55907.diff
Description: Text document

! { dg-do compile }
! { dg-options "-fno-automatic -finit-local-zero" }
!
! PR 55907: [4.7/4.8/4.9 Regression] ICE with -fno-automatic -finit-local-zero
!
! Contributed by J.R. Garcia <garcia.espinosa.jr@gmail.com>

subroutine cchaine (i)
  implicit none
  integer :: i
  character(len=i) :: chaine
  write(*,*) chaine
end subroutine