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
20