gcc/testsuite/gfortran.dg/fmt_white.f

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