OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
PR fortran/15294
[pf3gnuchains/gcc-fork.git]
/
libgfortran
/
intrinsics
/
string_intrinsics.c
diff --git
a/libgfortran/intrinsics/string_intrinsics.c
b/libgfortran/intrinsics/string_intrinsics.c
index
999807e
..
2cd07a2
100644
(file)
--- a/
libgfortran/intrinsics/string_intrinsics.c
+++ b/
libgfortran/intrinsics/string_intrinsics.c
@@
-276,12
+276,11
@@
adjustr (char *dest, GFC_INTEGER_4 len, const char *src)
i = len;
while (i > 0 && src[i - 1] == ' ')
- i
++
;
+ i
--
;
if (i < len)
- memcpy (&dest[len - i], &src, i);
- if (i < len)
memset (dest, ' ', len - i);
+ memcpy (dest + (len - i), src, i );
}