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