1 ! { dg-do run { target fd_truncate } }
2 ! PR34974 null bytes when reverse-tabbing long records
3 ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
5 character(1) :: a, b, c
6 write (10,'(t50000,a,t1,a)') 'b', 'a'
8 open (10, access="stream")
10 read (10, pos=50000) b
11 read (10, pos=25474) c
12 close (10, status="delete")
13 if (a /= "a") call abort
14 if (b /= "b") call abort
15 if (c /= " ") call abort