gcc/testsuite/gfortran.dg/fmt_white.f

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