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