diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-18 15:13:45 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-18 15:13:45 +0000 |
| commit | 49b804d0ea34e091ad19dfbb4d3d04c7a0112f0e (patch) | |
| tree | bf97bc118739f849fc2332f19859ca49cb50ad05 /gcc | |
| parent | dbeebc56bda05ec6b28f11e066248904c8f981fd (diff) | |
| download | gcc-49b804d0ea34e091ad19dfbb4d3d04c7a0112f0e.zip gcc-49b804d0ea34e091ad19dfbb4d3d04c7a0112f0e.tar.gz gcc-49b804d0ea34e091ad19dfbb4d3d04c7a0112f0e.tar.bz2 | |
re PR fortran/50420 ([Coarray] lcobound doesn't accept coarray subcomponents)
PR fortran/50420
* trans-types.c (gfc_build_array_type): Don't force lower bound to one
in the deferred case.
From-SVN: r180151
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-types.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2421c03..f8105b1 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,6 +1,12 @@ 2011-10-18 Mikael Morin <mikael@gcc.gnu.org> PR fortran/50420 + * trans-types.c (gfc_build_array_type): Don't force lower bound to one + in the deferred case. + +2011-10-18 Mikael Morin <mikael@gcc.gnu.org> + + PR fortran/50420 * simplify.c (simplify_cobound): Accept non-last-in-ref-chain coarrays. Don't set already set array ref. diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 4c5990e..cb5f30e 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -1254,7 +1254,7 @@ gfc_build_array_type (tree type, gfc_array_spec * as, for (n = as->rank; n < as->rank + as->corank; n++) { - if (as->lower[n] == NULL) + if (as->type != AS_DEFERRED && as->lower[n] == NULL) lbound[n] = gfc_index_one_node; else lbound[n] = gfc_conv_array_bound (as->lower[n]); |