From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 10 Mar 2007 00:03:19 +0000 (+0000)
Subject: re PR libfortran/31099 (Runtime error on legal code using RECL)
X-Git-Tag: releases/gcc-4.3.0~6333
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=d66a9778e750fee5b84d165494703bd6f9136191;p=thirdparty%2Fgcc.git

re PR libfortran/31099 (Runtime error on legal code using RECL)

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

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

From-SVN: r122776
---

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
+