gcc/testsuite/gfortran.dg/comma.f

   1 ! { dg-do run { target fd_truncate } }
   2 ! PR25419 Default input with commas.
   3 ! Derived from example given in PR.
   4 ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   5       stuff = 1
   6       stuff2 = 2
   7       write(11,'(a)') ",,"
   8       rewind(11)
   9       read(11,*)stuff, stuff2
  10       if (stuff.ne.1.0) call abort()
  11       if (stuff2.ne.2.0) call abort()
  12       rewind (11)
  13       write(11,'(a)') ","
  14       rewind(11)
  15       read(11,*)stuff
  16       if (stuff.ne.1.0) call abort()
  17       close(11, status='delete')
  18       end
  19