diff options
author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-02-07 15:33:29 +0000 |
---|---|---|
committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-02-07 15:33:29 +0000 |
commit | 65af21914b931231001dab704b35c2f9d6631a65 (patch) | |
tree | 39d2b99bc5dd588d5ef5f99ba064d91b236ee649 /libgfortran | |
parent | 3b3a81f86e027af1292032b5cc7e2f5991d8783f (diff) |
* transfer.c (write_constant_string): Do not delete H's in hollerith
formats.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/tree-ssa-20020619-branch@77452 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
-rw-r--r-- | libgfortran/io/transfer.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index f1b06b78149..357e17f5074 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2004-02-07 Bud Davis <bdavis9659@comcast.net> + + * transfer.c (write_constant_string): Do not delete H's in hollerith + formats. + 2004-01-05 Andrew Pinski <apinski@apple.com> * configure.in: Check for csin in -lmx also. diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 5d8447eacf0..0ba6417d40f 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -340,7 +340,7 @@ write_constant_string (fnode * f) for (; length > 0; length--) { c = *p++ = *q++; - if (c == delimiter) + if (c == delimiter && c != 'H') q++; /* Skip the doubled delimiter */ } } |