From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 6 Jan 2006 01:44:31 +0000 (+0000)
Subject: re PR libfortran/25598 (gfortran - Fortran runtime error: Invalid argument)
X-Git-Tag: releases/gcc-4.2.0~5007
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2f94c68c513e623fa96d18c705643ecf67a7ab79;p=thirdparty%2Fgcc.git

re PR libfortran/25598 (gfortran - Fortran runtime error: Invalid argument)

2005-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/25598
	* gfortran.dg/backspace_3.f: New test.
	* gfortran.dg/backspace_4.f: New test.

From-SVN: r109406
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c68573b47b36..a1aa997e2c01 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2005-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/25598
+	* gfortran.dg/backspace_3.f: New test.
+	* gfortran.dg/backspace_4.f: New test.
+
 2005-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR fortran/24268
diff --git a/gcc/testsuite/gfortran.dg/backspace_3.f b/gcc/testsuite/gfortran.dg/backspace_3.f
new file mode 100644
index 000000000000..419063b94a2d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/backspace_3.f
@@ -0,0 +1,20 @@
+! { dg-do run }
+! PR25598 Error on repeated backspaces.
+! Derived from example given in PR by Dale Ranta
+! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org> 
+       integer data
+       data=-1
+       open(unit=11,status='scratch',form='unformatted')
+       write(11)data
+       read(11,end=        1000 )data
+       call abort()
+ 1000  continue
+       backspace 11
+       backspace 11
+       backspace 11
+       read(11,end=        1001 )data
+ 1001  continue
+       if (data.ne.-1) call abort
+       close(11)
+       end
+
diff --git a/gcc/testsuite/gfortran.dg/backspace_4.f b/gcc/testsuite/gfortran.dg/backspace_4.f
new file mode 100644
index 000000000000..69e0f40c7a1b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/backspace_4.f
@@ -0,0 +1,18 @@
+! { dg-do run }
+! PR25598 Error on repeated backspaces.
+! Derived from example given in PR by Dale Ranta
+! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org> 
+       integer data
+       data=-1
+       open(unit=11,status='scratch',form='unformatted')
+       write(11)data
+       read(11,end=        1000 )data
+       call abort()
+ 1000  continue
+       backspace 11
+       backspace 11
+       read(11,end=        1001 )data
+ 1001  continue
+       if (data.ne.-1) call abort
+       close(11)
+       end