[patch, libfortran] Fix PR 34887, regression vs. g77

[Thomas Koenig]

Hello world,

the attached patch fixes PR 34887, a regression vs. g77.  Thanks to
Jerry for confiming that I was looking at the right place.

Regression-tested on i686-pc-linux-gnu.  OK for trunk?

We've been ambivalent about fixing regressions vs. g77 during a
regression-only phase in the past.  IMHO, this patch is simple
enough so that we can risk a commit, but I don't feel strongly
about this.  I'll leave the date of commit to the reviewer.

	Thomas

2008-01-26  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfofortran/34887
	* io/transfer.c (next_record_w): Always move to the farthest
	position when completing the record (also when we are
	processing a slash edit descriptor).

2008-01-26  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfofortran/34887
	* gfortran.dg/x_slash_2.f:  New test.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr34887.diff
Type: text/x-patch
Size: 1036 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20080126/1c798cd8/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: x_slash_2.f
Type: text/x-fortran
Size: 351 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20080126/1c798cd8/attachment-0001.bin>