summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/char_allocation_1.f90
blob: 119badb4d105834d17e1e1e9c319fefcf250fe05 (plain)
1
2
3
4
5
6
7
8
9
10
11
! 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