diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-26 19:05:08 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-26 19:05:08 +0000 |
| commit | 58c5f008ca19c1255dacf9ccd88f5eee28d00a5d (patch) | |
| tree | db30d851481038a71124decce133cf0cb5e3baeb /libgfortran/io/write.c | |
| parent | 7a1230f71b9ab10ae34001766ec5d20e9d5e2bc6 (diff) | |
2010-10-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/46010
* io/list_read.c (nml_parse_qualifier): Add additional conditions for
setting the end index for loop specification. Fix some whitespace.
* io/write.c (write_default_char4): Const-ify the source argument.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165979 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 0a6aee1588e8..5afbbd529fc7 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -65,7 +65,7 @@ memcpy4 (gfc_char4_t *dest, const char *source, int k) /* Write out default char4. */ static void -write_default_char4 (st_parameter_dt *dtp, gfc_char4_t *source, +write_default_char4 (st_parameter_dt *dtp, const gfc_char4_t *source, int src_len, int w_len) { char *p; |