2008-07-06 Kai Tietz <kai.tietz@onevision.com>

[official-gcc.git] / gcc / testsuite / gfortran.dg / char_allocation_1.f90

! PR fortran/31974
! { dg-do run }
  subroutine foo (n)
    integer :: n
    character (len = n) :: v(n)
    v = ''
    if (any (v /= '')) call abort
  end subroutine foo

  call foo(7)
  end