diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-27 06:50:03 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-27 06:50:03 +0000 |
| commit | 757fb7abad2d7d7a512cae4e1d8e836402f826f1 (patch) | |
| tree | b23e60e3b6c1de5d17cec4f6a741db7d30a1e5bf /gcc/fortran/arith.c | |
| parent | cda5fe864d366d244bbfb4da6d492cfc837dea7d (diff) | |
| download | gcc-757fb7abad2d7d7a512cae4e1d8e836402f826f1.tar.gz | |
2010-08-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/43217
* primary.c (match_hollerith_constant): Calculate padding needed to
fill default integer and allocate string for that size. Set pad bytes
to ' '.
* gfortran.h: Add hollerith pad value to type spec union.
* data.c (create_character_initializer): Fix spelling of function name.
Use hollerith pad value to calculate length.
* arith.c (hollerith2representation); Use hollerith pad value to
calculate length.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163581 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index f555eb104cd..2a9ea750103 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -2260,7 +2260,7 @@ hollerith2representation (gfc_expr *result, gfc_expr *src) { int src_len, result_len; - src_len = src->representation.length; + src_len = src->representation.length - src->ts.u.pad; result_len = gfc_target_expr_size (result); if (src_len > result_len) |