gcc/testsuite/gfortran.dg/fmt_white.f

   1 ! { dg-do run }
   2 ! PR24268 Test case derived from example given by Iwan Kawrakow
   3 ! Prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   4       program pr24268
   5       real x
   6       character*11 line
   7       line = "12.34"
   8       read(line,*) x
   9       write(line,10) x
  10  10                                                            format(g1
  11      *      1.4)
  12       if (line.ne."  12.34") call abort()
  13       end