aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>2006-01-06 01:44:31 +0000
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>2006-01-06 01:44:31 +0000
commit662adc8b2ef2486fdf1384ca2bff9e0231d19e97 (patch)
tree70960dc5879ecd93e023c0763182a4cae58f7530
parent4e63a695883c39f00b6356a9c34ad30142827460 (diff)
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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@109406 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r--gcc/testsuite/ChangeLog6
-rw-r--r--gcc/testsuite/gfortran.dg/backspace_3.f20
-rw-r--r--gcc/testsuite/gfortran.dg/backspace_4.f18
3 files changed, 44 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c68573b47b3..a1aa997e2c0 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,11 @@
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
* gfortran.dg/fmt_white.f: Update test.
diff --git a/gcc/testsuite/gfortran.dg/backspace_3.f b/gcc/testsuite/gfortran.dg/backspace_3.f
new file mode 100644
index 00000000000..419063b94a2
--- /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 00000000000..69e0f40c7a1
--- /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