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