re PR libfortran/15755 (gfortran: backspace call causes bus error)

2004-06-08  Bud Davis  <bdavis9659@comcast.net>

	PR gfortran/15755
	* gfortran.fortran-torture/execute/backspace.c : New test.

	* io/backspace.c(st_backspace): call correct routine for
	formatted and un-formatted units.

From-SVN: r82806

gcc/testsuite/ChangeLog

+2004-06-09  Bud Davis  <bdavis9659@comcast.net>
+                                                                                    
+        PR gfortran/15755
+	* gfortran.fortran-torture/execute/backspace.c : New test.
+
 2004-06-09  Paul Brook  <paul@codesourcery.com>
 
 	* gfortran.fortran-torture/execure/intrinsic_associated.f90

gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90

+! pr 15755
+        implicit none
+        character*1 C
+        open(10)
+        write(10,*)'a'
+        write(10,*)'b'
+        write(10,*)'c'
+        rewind(10)
+        read(10,*)C
+        backspace(10) 
+        read(10,*) C
+        if (C.ne.'b') call abort
+        close(10,STATUS='DELETE')
+        end

libgfortran/ChangeLog

+2004-06-09  Bud Davis  <bdavis9659@comcast.net>
+
+	PR gfortran/15755
+	* io/backspace.c(st_backspace): call correct routine for
+	formatted and un-formatted units.
+
 2004-05-30  Andreas Jaeger  <aj@suse.de>, Steven Bosscher <stevenb@suse.de>
 
 	PR gfortran/11800

libgfortran/io/backspace.c

@@ -149,7 +149,7 @@ st_backspace (void)
       if (file_position (u->s) == 0)
 	goto done;		/* Common special case */
 
-      if (u->flags.form == FORM_UNFORMATTED)
+      if (u->flags.form == FORM_FORMATTED)
 	formatted_backspace ();
       else
 	unformatted_backspace ();