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