OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
gcc/fortran/
[pf3gnuchains/gcc-fork.git]
/
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