--- Comment #9 from tkoenig at gcc dot gnu dot org 2008-01-26 15:24 ---
Fixed on trunk.
Closing.
--
tkoenig at gcc dot gnu dot org changed:
What|Removed |Added
--- Comment #8 from tkoenig at gcc dot gnu dot org 2008-01-26 15:23 ---
Subject: Bug 34887
Author: tkoenig
Date: Sat Jan 26 15:22:59 2008
New Revision: 131864
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=131864
Log:
2008-01-26 Thomas Koenig <[EMAIL PROTECTED]>
PR li
--- Comment #7 from tkoenig at gcc dot gnu dot org 2008-01-26 08:52 ---
am not convinced the if
> (done) is needed at line 2579 though. Have to think some more. Maybe try
> taking the condition away and see what happens.
I don't think it's needed. I am currently testing a version w
--- Comment #6 from jvdelisle at gcc dot gnu dot org 2008-01-25 00:53
---
What it does is stated in the comment.
/* If the farthest position reached is greater than current
position, adjust the position and set length to pad out
whats left. Otherwise just pad whats left.
(for
--- Comment #5 from tkoenig at gcc dot gnu dot org 2008-01-24 22:09 ---
> This causes a regression in x_slash_1.f . I'll dig around
> some more.
There's something wrong here (as evidenced in the PR :-)
In next_record_w, we should be following the path starting with
if (done) every tim
--- Comment #4 from tkoenig at gcc dot gnu dot org 2008-01-20 22:19 ---
> - next_record (dtp, 0);
> + next_record (dtp, 1);
This causes a regression in x_slash_1.f . I'll dig around
some more.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34887
--- Comment #3 from tkoenig at gcc dot gnu dot org 2008-01-20 21:40 ---
(currently regtesting)
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34887
--- Comment #2 from tkoenig at gcc dot gnu dot org 2008-01-20 21:39 ---
What about this one-character patch?
Index: transfer.c
===
--- transfer.c (revision 131679)
+++ transfer.c (working copy)
@@ -1308,7 +1308,7 @@ forma
--- Comment #1 from tkoenig at gcc dot gnu dot org 2008-01-20 20:18 ---
Reduced test case:
$ cat bug-4.f
program main
write (*,'(3X A, T1, A,/)') 'aa', 'bb'
end
$ gfortran bug-4.f && ./a.out
bb
$ g77 bug-4.f && ./a.out
bb aa
--
tkoenig at gcc dot gnu dot org chang
