| commit | b8a1b636ab10d0aebeb0dd5d142beac78bcf3c1e | |
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Tue, 7 Dec 2010 20:29:22 +0000 (7 20:29 +0000) | ||
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Tue, 7 Dec 2010 20:29:22 +0000 (7 20:29 +0000) | ||
| tree | e7e1fc5703a091effe8fea53af8030ecc6d89a3f | treesnapshot (tar.gz zip) |
| parent | 5f871c7bb7372cdb2db7557ad94b7e729fe52fd2 | commitdiff |
2010-12-07 Tobias Burnus <burnus@net-b.de>
PR fortran/44352
* trans-expr.c (gfc_string_to_single_character): Return if not
POINTER_TYPE_P.
(gfc_trans_string_copy): gfc_build_addr_expr if src or dest is
not a pointer.
(gfc_trans_string_copy): Make sure the argument string type
has a string length, fix indention, and remove not needed
gfc_build_addr_expr.
2010-12-07 Tobias Burnus <burnus@net-b.de>
PR fortran/44352
* gfortran.dg/string_4.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@167569 138bc75d-0d04-0410-961f-82ee72b054a4
PR fortran/44352
* trans-expr.c (gfc_string_to_single_character): Return if not
POINTER_TYPE_P.
(gfc_trans_string_copy): gfc_build_addr_expr if src or dest is
not a pointer.
(gfc_trans_string_copy): Make sure the argument string type
has a string length, fix indention, and remove not needed
gfc_build_addr_expr.
2010-12-07 Tobias Burnus <burnus@net-b.de>
PR fortran/44352
* gfortran.dg/string_4.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@167569 138bc75d-0d04-0410-961f-82ee72b054a4