gcc/testsuite/gfortran.dg/g77/1832.f

   1 c { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 !
   4       character*5   string
   5       write(string, *) "a "
   6       if (string .ne. ' a') call abort
   7 C-- The leading space is normal for list-directed output
   8
   9       end