1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/streamio_1.f90 b/gcc/testsuite/gfortran.dg/streamio_1.f90
new file mode 100644
index 000000000..5a853fc8e
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/streamio_1.f90
@@ -0,0 +1,18 @@
+! { dg-do run }
+! PR25828 Stream IO test 1
+! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
+PROGRAM stream_io_1
+  IMPLICIT NONE
+  integer(kind=4) i
+  real(kind=8) r
+  OPEN(UNIT=11, ACCESS="stream")
+  WRITE(11) "first"
+  WRITE(11) "second"
+  WRITE(11) 1234567
+  write(11) 3.14159_8
+  read(11, pos=12)i
+  if (i.ne.1234567) call abort()
+  read(11) r
+  if (r-3.14159 .gt. 0.00001) call abort()
+  CLOSE(UNIT=11, status="delete")
+END PROGRAM stream_io_1
+\ No newline at end of file