1! PR fortran/31974
2! { dg-do run }
3  subroutine foo (n)
4    integer :: n
5    character (len = n) :: v(n)
6    v = ''
7    if (any (v /= '')) STOP 1
8  end subroutine foo
9
10  call foo(7)
11  end
12