gcc/testsuite/gfortran.dg/init_flag_6.f90

   1 ! { dg-do run }
   2 ! { dg-options "-finit-character=32" }
   3
   4 program init_flag_6
   5   call char_test
   6 end program init_flag_6
   7
   8 ! Test some initializations for both implicitly and
   9 ! explicitly declared local variables.
  10 subroutine 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
  19 end subroutine char_test
  20