28 lines
507 B
Fortran
28 lines
507 B
Fortran
! { dg-do run }
|
|
! PR31880 silent data corruption in gfortran read statement
|
|
! Test from PR.
|
|
program r3
|
|
|
|
integer(kind=4) :: a(1025),b(1025),c(1025),d(2048),e(1022)
|
|
|
|
a = 5
|
|
b = 6
|
|
c = 7
|
|
e = 8
|
|
|
|
do i=1,2048
|
|
d(i)=i
|
|
end do
|
|
|
|
open (3,form='unformatted', status="scratch")
|
|
write (3) a,b,c,d,e
|
|
rewind 3
|
|
d = 0
|
|
read (3) a,b,c,d
|
|
close (3)
|
|
|
|
if (d(1).ne.1) call abort
|
|
if (d(2048).ne.2048) call abort
|
|
|
|
end
|