diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-08-27 06:50:03 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-08-27 06:50:03 +0000 |
| commit | 401fcd3b8fd7158703263fd4de33a23faa7a2738 (patch) | |
| tree | b23e60e3b6c1de5d17cec4f6a741db7d30a1e5bf /gcc/fortran/arith.c | |
| parent | 9f8f1def9dd5d303a437397c5e1aaa60aef468d9 (diff) | |
| download | gcc-401fcd3b8fd7158703263fd4de33a23faa7a2738.zip gcc-401fcd3b8fd7158703263fd4de33a23faa7a2738.tar.gz gcc-401fcd3b8fd7158703263fd4de33a23faa7a2738.tar.bz2 | |
re PR fortran/43217 (Output of Hollerith constants which are not a multiple of 4 bytes)
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.
From-SVN: r163581
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 f555eb1..2a9ea75 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) |