From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 10 Mar 2007 00:03:19 +0000 (+0000)
Subject: 2007-03-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=d0e25b4ae491c7318f7eeb67dc4549a4fc1f41c5;p=thirdparty%2Fgcc.git

2007-03-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/31099
	* gfortran.dg/unformatted_recl.f90: New test.


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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 023af8488035..f9c1c3f72e41 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/31099
+	* gfortran.dg/unformatted_recl.f90: New test.
+	
 2007-03-09  Roger Sayle  <roger@eyesopen.com>
 
 	* gcc.dg/fold-eqcmplx-1.c: New test case.
diff --git a/gcc/testsuite/gfortran.dg/unformatted_recl_1.f90 b/gcc/testsuite/gfortran.dg/unformatted_recl_1.f90
new file mode 100644
index 000000000000..ef1d75470d3b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/unformatted_recl_1.f90
@@ -0,0 +1,21 @@
+! { dg-do run } 
+! PR31099 Runtime error on legal code using RECL
+program test
+  integer :: a, b
+  a=1
+  b=2
+  open(10, status="scratch", form="unformatted", recl=8)
+  write(10) a,b
+  write(10) a,b
+  write(10) a,b
+  write(10) b, a
+  rewind(10)
+  b=0
+  a=0
+  read(10) a, b
+  read(10) a, b
+  read(10) a, b
+  read(10) a, b
+  if ((a.ne.2).and.( b.ne.1)) call abort()
+end program test
+