1! { dg-do run { target fd_truncate } }
2! PR31099 Runtime error on legal code using RECL
3program test
4  integer(kind=4) :: a, b
5  a=1
6  b=2
7  open(10, status="scratch", form="unformatted", recl=8)
8  write(10) a,b
9  write(10) a,b
10  write(10) a,b
11  write(10) b, a
12  rewind(10)
13  write(10) a,b
14  write(10) a,b
15  write(10) a,b
16  write(10) b, a
17  b=0
18  a=0
19  rewind(10)
20  read(10) a, b
21  read(10) a, b
22  read(10) a, b
23  read(10) a, b
24  if ((a.ne.2).and.( b.ne.1)) call abort()
25end program test
26
27