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