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 | 71a9ddca7abcc5bf6ec2d0d895c778b8abcbedf5 (patch) | |
| tree | b60b4ff461b7f8806fd5d4c9644c7f488c38b8f8 /gcc | |
| parent | 6c5613b043641d7be059718d9037a6ff17ab94ac (diff) | |
| download | gcc-71a9ddca7abcc5bf6ec2d0d895c778b8abcbedf5.zip gcc-71a9ddca7abcc5bf6ec2d0d895c778b8abcbedf5.tar.gz gcc-71a9ddca7abcc5bf6ec2d0d895c778b8abcbedf5.tar.bz2 | |
streamio_14.f90: New test.
2008-02-10 Thomas Koenig <tkoenig@gcc.gnu.org>
* gfortran.dg/streamio_14.f90: New test.
From-SVN: r132220
Diffstat (limited to 'gcc')
| -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 87bd476..505fa85 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 0000000..54522fe --- /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 |