1! { dg-do run }
2! { dg-options "-finit-character=32" }
3
4program init_flag_6
5  call char_test
6end program init_flag_6
7
8! Test some initializations for both implicitly and
9! explicitly declared local variables.
10subroutine char_test
11  character*1 c1
12  character*8 c2, c3(5)
13  character c4(10)
14  if (c1 /= ' ') call abort
15  if (c2 /= '        ') call abort
16  if (c3(1) /= '        ') call abort
17  if (c3(5) /= '        ') call abort
18  if (c4(5) /= ' ') call abort
19end subroutine char_test
20
21