1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/eof_1.f90 b/gcc/testsuite/gfortran.dg/eof_1.f90
new file mode 100644
index 000000000..05726bd14
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/eof_1.f90
@@ -0,0 +1,18 @@
+! { dg-do run }
+! Program to test for proper EOF errors when reading past the end of a file.
+! We used to get this wrong when a formatted read followed a list formatted
+! read.
+program eof_1
+  character(len=5) :: s
+
+  open (unit=11, status="SCRATCH")
+  write (11, '(a)') "Hello"
+  rewind(11)
+  read(11, *) s
+  if (s .ne. "Hello") call abort
+  read(11, '(a5)', end=10) s
+  call abort
+10 continue
+  close (11)
+end
+