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