From c72824717a78c907e96180eea7ce24a35bc57995 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sun, 10 Feb 2008 20:03:11 +0000 Subject: 2008-02-10 Thomas Koenig * gfortran.dg/streamio_14.f90: New test. git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@132220 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/streamio_14.f90 | 22 ++++++++++++++++++++++ 2 files changed, 26 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/streamio_14.f90 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 + + * gfortran.dg/streamio_14.f90: New test. + 2008-02-10 Uros Bizjak * 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 -- cgit v1.2.3