diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-02-24 18:23:38 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-02-24 18:23:38 +0000 |
| commit | 6bb9adda5c3a5544f2038a8c452c8151bbcb44b4 (patch) | |
| tree | 40492788d92b3126e1dae8269d4e6af9422fc26a | |
| parent | c5418dcb96ee2bdffa835d6e0f3adb617abb1822 (diff) | |
| download | gcc-6bb9adda5c3a5544f2038a8c452c8151bbcb44b4.zip gcc-6bb9adda5c3a5544f2038a8c452c8151bbcb44b4.tar.gz gcc-6bb9adda5c3a5544f2038a8c452c8151bbcb44b4.tar.bz2 | |
re PR libfortran/26423 (Error on binary I/O for large array)
2006-02-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/26423
* gfortran.dg/read_many_1.f: New test.
From-SVN: r111421
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/read_many_1.f | 23 |
2 files changed, 28 insertions, 0 deletions
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 <jvdelisle@gcc.gnu.org> + + PR libgfortran/26423 + * gfortran.dg/read_many_1.f: New test. + 2006-02-24 Paul Thomas <pault@gcc.gnu.org> 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 <jvdelisle@gcc.gnu.org> + 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 |