1! { dg-do run } 2! PR31880 silent data corruption in gfortran read statement 3! Test from PR. 4 program r3 5 6 integer(kind=4) :: a(1025),b(1025),c(1025),d(2048),e(1022) 7 8 a = 5 9 b = 6 10 c = 7 11 e = 8 12 13 do i=1,2048 14 d(i)=i 15 end do 16 17 open (3,form='unformatted', status="scratch") 18 write (3) a,b,c,d,e 19 rewind 3 20 d = 0 21 read (3) a,b,c,d 22 close (3) 23 24 if (d(1).ne.1) STOP 1 25 if (d(2048).ne.2048) STOP 2 26 27 end 28