2 ! { dg-options "-finit-character=32" }
6 end program init_flag_6
8 ! Test some initializations for both implicitly and
9 ! explicitly declared local variables.
16 if (c3(1) /= ' ') STOP 3
17 if (c3(5) /= ' ') STOP 4
18 if (c4(5) /= ' ') STOP 5
19 end subroutine char_test