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
This commit is contained in:
parent
266edc7e83
commit
b78a06b224
|
@ -1,3 +1,9 @@
|
|||
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
|
||||
|
||||
* resolve.c (compare_spec_to_ref): Move coarray ref initialization
|
||||
code...
|
||||
(resolve_array_ref): ... here.
|
||||
|
||||
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
|
||||
|
||||
* check.c (is_coarray): Remove.
|
||||
|
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue