1! { dg-do compile }
2! { dg-options "-fno-automatic -finit-local-zero" }
3!
4! PR 55907: [4.7/4.8/4.9 Regression] ICE with -fno-automatic -finit-local-zero
5!
6! Contributed by J.R. Garcia <garcia.espinosa.jr@gmail.com>
7
8subroutine cchaine (i)
9  implicit none
10  integer :: i
11  character(len=i) :: chaine
12  write(*,*) chaine
13end subroutine
14