diff options
| author | eedelman <eedelman@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-01-30 22:23:57 +0000 |
|---|---|---|
| committer | eedelman <eedelman@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-01-30 22:23:57 +0000 |
| commit | 6d7e860fa5d9714e67e66c33d20adc1845e2bbe4 (patch) | |
| tree | d7333d6cba028f930db25db37029ca71b9a5a57e /gcc/fortran/trans-io.c | |
| parent | c99012a60ee088bc8be8fbe3f99762eadb26e55b (diff) | |
| download | gcc-6d7e860fa5d9714e67e66c33d20adc1845e2bbe4.tar.gz | |
fortran/
2005-01-30 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/24266
* trans-io.c (set_internal_unit): Check the rank of the
expression node itself instead of its symbol.
testsuite/
2005-01-30 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/24266
* gfortran.dg/arrayio_derived_2.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@110412 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 24b7bc944ed..db1a4813be1 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -599,7 +599,7 @@ set_internal_unit (stmtblock_t * block, tree var, gfc_expr * e) } /* Character array. */ - else if (e->symtree && (e->symtree->n.sym->as->rank > 0)) + else if (e->rank > 0) { se.ss = gfc_walk_expr (e); |