------- Comment #9 from jvdelisle at gcc dot gnu dot org 2009-01-11 16:43
-------
Reviewing code carefully, I found the following. I can not confirm this is the
problem, but removing this portion of code does not cause a regression in our
current testsuite. This snippit was left over from before we updated the
handling of the various "status" flags. When I applied the r143102 patch to
change the default BLANK= for internal units, this condition was enabled.
@@ -504,22 +495,7 @@ next_char (st_parameter_dt *dtp, char **
(*w)--;
- if (c != ' ')
- return c;
- if (dtp->u.p.blank_status != BLANK_UNSPECIFIED)
- return ' '; /* return a blank to signal a null */
-
- /* At this point, the rest of the field has to be trailing blanks */
-
- while (*w > 0)
- {
- if (*q++ != ' ')
- return '?';
- (*w)--;
- }
-
- *p = q;
- return '\0';
+ return c;
}
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38772
