2010-02-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	* gfortran.dg/read_no_eor.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@156553 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1248e1d..b8c4b8c 100644 (file)
--- 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 (file)
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