gcc/testsuite/gfortran.dg/unf_read_corrupted_2.f90

   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) call abort
  25       if (d(2048).ne.2048) call abort
  26
  27       end