diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-02-06 18:34:13 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-02-06 18:34:13 +0000 |
| commit | 9d3b08c683c727eafb2e5c4240952bad6ac470e8 (patch) | |
| tree | 11378ee65b8c587fabf37b91e944cca46ed6cf16 | |
| parent | 28f9f1456e551dabd84c62c6a595256d4c681319 (diff) | |
| download | gcc-9d3b08c683c727eafb2e5c4240952bad6ac470e8.zip gcc-9d3b08c683c727eafb2e5c4240952bad6ac470e8.tar.gz gcc-9d3b08c683c727eafb2e5c4240952bad6ac470e8.tar.bz2 | |
read_no_eor.f90: New test.
2010-02-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/read_no_eor.f90: New test.
From-SVN: r156553
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/read_no_eor.f90 | 46 |
2 files changed, 50 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1248e1d..b8c4b8c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2010-02-06 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * gfortran.dg/read_no_eor.f90: New test. + 2010-02-05 Jason Merrill <jason@redhat.com> * g++.dg/ext/label13.C: Move constructor body out of class. diff --git a/gcc/testsuite/gfortran.dg/read_no_eor.f90 b/gcc/testsuite/gfortran.dg/read_no_eor.f90 new file mode 100644 index 0000000..1188164 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/read_no_eor.f90 @@ -0,0 +1,46 @@ +! { dg-do run } +! Handle eor and eof conditions with missing eor in file. +! Test case modified from case presented by Ian Harvey on clf. +program eieio_stat + use, intrinsic :: iso_fortran_env, only: iostat_end, iostat_eor + implicit none + integer, parameter :: unit=10 + integer :: ios1, ios2, ios3 + character(25) :: buffer + character(100) :: themessage + !**** + open(10,file="eieio", form="unformatted", access="stream", status="replace") + write(10) "Line-1" // char(10) + write(10) "Line-2" + close(10) + + open(10,file="eieio") + + buffer = 'abcdefg' + read (unit,"(a)",advance="no",iostat=ios1, pad="yes") buffer + if (ios1 /= iostat_eor .and. buffer /= "Line-1") call abort + + buffer = '<' + read (unit,"(a)",advance="no",iostat=ios2,pad="yes") buffer + if (ios2 /= iostat_eor .and. buffer /= "Line-2") call abort + + buffer = '5678' + read (unit,"(a)",advance="no",iostat=ios3, iomsg=themessage) buffer + if (ios3 /= iostat_end .and. buffer /= "5678") call abort + + rewind(10) + + buffer = "abcdefg" + read (unit,"(a)",advance="no",iostat=ios1, pad="no") buffer + if (ios1 /= iostat_eor .and. buffer /= "abcdefg") call abort + + buffer = '<' + read (unit,"(a)",advance="no",iostat=ios2,pad="no") buffer + if (ios2 /= iostat_eor .and. buffer /= "<") call abort + + buffer = '1234' + read (unit,"(a)",advance="no",iostat=ios3, iomsg=themessage) buffer + if (ios3 <= 0 .and. buffer /= "1234") call abort + + close(unit, status="delete") +end program eieio_stat |