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.
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
19 end subroutine char_test