| commit | 04b61f603160099e5a9ceac1f56dfd0bac0bfd0b | |
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Thu, 23 Aug 2007 23:25:42 +0000 (23 23:25 +0000) | ||
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Thu, 23 Aug 2007 23:25:42 +0000 (23 23:25 +0000) | ||
| tree | 8c453da406c283968faca7997474722567e1f1d5 | treesnapshot (tar.gz zip) |
| parent | 68e4391d8512890b66276266f194cde977b937ae | commitdiff |
* decl.c (variable_decl): Don't share charlen structs if
length == NULL.
* trans-decl.c (create_function_arglist): Assert
f->sym->ts.cl->backend_decl is NULL instead of unsharing
charlen struct here.
* gfortran.dg/assumed_charlen_sharing.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127748 138bc75d-0d04-0410-961f-82ee72b054a4
length == NULL.
* trans-decl.c (create_function_arglist): Assert
f->sym->ts.cl->backend_decl is NULL instead of unsharing
charlen struct here.
* gfortran.dg/assumed_charlen_sharing.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127748 138bc75d-0d04-0410-961f-82ee72b054a4