diff options
author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-02-10 20:03:11 +0000 |
---|---|---|
committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-02-10 20:03:11 +0000 |
commit | c72824717a78c907e96180eea7ce24a35bc57995 (patch) | |
tree | b60b4ff461b7f8806fd5d4c9644c7f488c38b8f8 | |
parent | 7cd07e8c41c0b38d7cf86ba89b112020f6769240 (diff) |
2008-02-10 Thomas Koenig <tkoenig@gcc.gnu.org>
* gfortran.dg/streamio_14.f90: New test.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@132220 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/streamio_14.f90 | 22 |
2 files changed, 26 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 87bd47625c4..505fa85b154 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2008-02-10 Thomas Koenig <tkoenig@gcc.gnu.org> + + * gfortran.dg/streamio_14.f90: New test. + 2008-02-10 Uros Bizjak <ubizjak@gmail.com> * gcc.target/i386/pr17390.c: Remove ilp32 target requirement. diff --git a/gcc/testsuite/gfortran.dg/streamio_14.f90 b/gcc/testsuite/gfortran.dg/streamio_14.f90 new file mode 100644 index 00000000000..54522fe6bd5 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/streamio_14.f90 @@ -0,0 +1,22 @@ +! { dg-do run } +! Test that we can write an unformatted stream file without +! truncating. +program main + character (len=10) c + open(10, form="unformatted", access="stream", position="rewind") + write (10) '1234567890abcde' + c = '' + read (10,pos=1) c + if (c /= '1234567890') call abort + c = '' + read (10,pos=6) c + if (c /= '67890abcde') call abort + write (10,pos=3) 'AB' + c = '' + read (10,pos=1) c + if (c /= '12AB567890') call abort + c = '' + read (10,pos=6) c + if (c /= '67890abcde') call abort + close (10,status="delete") +end program main |