obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 81 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/seq_io.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/seq_io.f90
new file mode 100644
index 000000000..e16888829
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/seq_io.f90
@@ -0,0 +1,81 @@
+! pr 15472
+! sequential access files
+!
+!  this test verifies the most basic sequential unformatted I/O
+!      write 3 records of various sizes
+!      then read them back
+!      and compare with what was written
+!
+       implicit none
+       integer size
+       parameter(size=100)
+       logical debug 
+       data debug /.FALSE./
+! set debug to true for help in debugging failures.
+       integer m(2)
+       integer n
+       real*4 r(size)
+       integer i
+       m(1) = Z'11111111'
+       m(2) = Z'22222222'
+       n    = Z'33333333'
+       do i = 1,size
+         r(i) = i
+       end do
+       write(9)m  ! an array of 2
+       write(9)n  ! an integer
+       write(9)r  ! an array of reals
+! zero all the results so we can compare after they are read back
+       do i = 1,size
+          r(i) = 0
+       end do
+       m(1) = 0
+       m(2) = 0
+       n = 0
+
+       rewind(9)
+       read(9)m
+       read(9)n
+       read(9)r
+!
+! check results
+       if (m(1).ne.Z'11111111') then
+         if (debug) then
+            print '(A,Z8)','m(1) incorrect.  m(1) = ',m(1)
+         else
+            call abort
+         endif
+       endif
+
+       if (m(2).ne.Z'22222222') then
+         if (debug) then
+            print '(A,Z8)','m(2) incorrect.  m(2) = ',m(2)
+         else
+            call abort
+         endif
+       endif
+
+       if (n.ne.Z'33333333') then
+         if (debug) then
+            print '(A,Z8)','n incorrect.  n = ',n
+         else
+            call abort
+         endif
+       endif
+
+       do i = 1,size
+          if (int(r(i)).ne.i) then
+            if (debug) then
+              print*,'element ',i,' was ',r(i),' should be ',i
+            else
+              call abort
+            endif
+          endif
+       end do
+! use hexdump to look at the file "fort.9"
+       if (debug) then
+         close(9)
+       else
+         close(9,status='DELETE')
+       endif
+       end