diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-31 17:22:26 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-31 17:22:26 +0000 |
| commit | 74c43d0fd401831d5eef69a77ec67586d6f52746 (patch) | |
| tree | bebff502f86f48ad22204387b68b03e6ef74f721 /gcc/fortran | |
| parent | 74e224b6f8b96a19c383fb812408045c97861409 (diff) | |
| download | gcc-74c43d0fd401831d5eef69a77ec67586d6f52746.tar.gz | |
2012-10-31 Tobias Burnus <burnus@net-b.de>
PR fortran/55134
* trans-array.c (gfc_conv_array_parameter): Regard AS_DEFERRED
* as
array with descriptor.
2012-10-31 Tobias Burnus <burnus@net-b.de>
PR fortran/55134
* gfortran.dg/associate_11.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@193041 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-array.c | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 08cac6c9a99..b503f3ae465 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2012-10-31 Tobias Burnus <burnus@net-b.de> + + PR fortran/55134 + * trans-array.c (gfc_conv_array_parameter): Regard AS_DEFERRED as + array with descriptor. + 2012-10-28 Tobias Burnus <burnus@net-b.de> PR fortran/54958 diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 3e684ee6649..26f0523d20f 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -7012,6 +7012,7 @@ gfc_conv_array_parameter (gfc_se * se, gfc_expr * expr, bool g77, if (!sym->attr.pointer && sym->as && sym->as->type != AS_ASSUMED_SHAPE + && sym->as->type != AS_DEFERRED && sym->as->type != AS_ASSUMED_RANK && !sym->attr.allocatable) { |