| commit | 757fb7abad2d7d7a512cae4e1d8e836402f826f1 | |
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Fri, 27 Aug 2010 06:50:03 +0000 (27 06:50 +0000) | ||
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Fri, 27 Aug 2010 06:50:03 +0000 (27 06:50 +0000) | ||
| tree | b23e60e3b6c1de5d17cec4f6a741db7d30a1e5bf | treesnapshot (tar.gz zip) |
| parent | cda5fe864d366d244bbfb4da6d492cfc837dea7d | commitdiff |
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
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