From 6bb9adda5c3a5544f2038a8c452c8151bbcb44b4 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 24 Feb 2006 18:23:38 +0000 Subject: re PR libfortran/26423 (Error on binary I/O for large array) 2006-02-24 Jerry DeLisle PR libgfortran/26423 * gfortran.dg/read_many_1.f: New test. From-SVN: r111421 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/read_many_1.f | 23 +++++++++++++++++++++++ 2 files changed, 28 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/read_many_1.f (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 63ce0aa..c1d4744 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-02-24 Jerry DeLisle + + PR libgfortran/26423 + * gfortran.dg/read_many_1.f: New test. + 2006-02-24 Paul Thomas PR fortran/24519 diff --git a/gcc/testsuite/gfortran.dg/read_many_1.f b/gcc/testsuite/gfortran.dg/read_many_1.f new file mode 100644 index 0000000..ef81fa8 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/read_many_1.f @@ -0,0 +1,23 @@ +!{ dg-do run } +! PR26423 Large file I/O error related to buffering +! Test case derived from case by Dale Ranta. +! Submitted by Jerry DeLisle + integer :: a(3000) , b(2048) + a=3 + b=5 + a(1) = 1 + a(3000)=1234 + write(2) a + b(1) = 2 + b(2048) = 5678 + write(2) b + rewind 2 + read(2) a + read(2) b + if (a(1).ne.1) call abort() + if (a(2).ne.3) call abort() + if (b(1).ne.2) call abort() + if (b(2).ne.5) call abort() + if (a(3000).ne.1234) call abort() + if (b(2048).ne.5678) call abort() + end -- cgit v1.1