diff options
| author | Mikael Morin <mikael.morin@sfr.fr> | 2011-10-07 21:07:04 +0200 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-07 19:07:04 +0000 |
| commit | b78a06b2243643c6c35f19e6c376502e3fb0f07f (patch) | |
| tree | 4484b37cc6f30939957be06c67569533a2d60394 /gcc/fortran/resolve.c | |
| parent | 266edc7e8384f879fd938981cf86ad17166251b0 (diff) | |
| download | gcc-b78a06b2243643c6c35f19e6c376502e3fb0f07f.zip gcc-b78a06b2243643c6c35f19e6c376502e3fb0f07f.tar.gz gcc-b78a06b2243643c6c35f19e6c376502e3fb0f07f.tar.bz2 | |
resolve.c (compare_spec_to_ref): Move coarray ref initialization code...
* resolve.c (compare_spec_to_ref): Move coarray ref initialization
code...
(resolve_array_ref): ... here.
From-SVN: r179672
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 84db3dd..e6770db 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -4396,14 +4396,6 @@ compare_spec_to_ref (gfc_array_ref *ar) return FAILURE; } - if (as->corank && ar->codimen == 0) - { - int n; - ar->codimen = as->corank; - for (n = ar->dimen; n < ar->dimen + ar->codimen; n++) - ar->dimen_type[n] = DIMEN_THIS_IMAGE; - } - return SUCCESS; } @@ -4672,6 +4664,14 @@ resolve_array_ref (gfc_array_ref *ar) if (!ar->as->cray_pointee && compare_spec_to_ref (ar) == FAILURE) return FAILURE; + if (ar->as->corank && ar->codimen == 0) + { + int n; + ar->codimen = ar->as->corank; + for (n = ar->dimen; n < ar->dimen + ar->codimen; n++) + ar->dimen_type[n] = DIMEN_THIS_IMAGE; + } + return SUCCESS; } |