Daily bump.
[official-gcc.git] / gcc / testsuite / gfortran.dg / g77 / 1832.f
blob1d2ad92add46a2a522e7d59f89d30fc83528b7c1
1 c { dg-do run }
2 character*5 string
3 write(string, *) "a "
4 if (string .ne. ' a') call abort
5 C-- The leading space is normal for list-directed output
7 end