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>
|
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
|
||||||
|
|
||||||
* check.c (is_coarray): Remove.
|
* check.c (is_coarray): Remove.
|
||||||
|
|
|
@ -4396,14 +4396,6 @@ compare_spec_to_ref (gfc_array_ref *ar)
|
||||||
return FAILURE;
|
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;
|
return SUCCESS;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -4672,6 +4664,14 @@ resolve_array_ref (gfc_array_ref *ar)
|
||||||
if (!ar->as->cray_pointee && compare_spec_to_ref (ar) == FAILURE)
|
if (!ar->as->cray_pointee && compare_spec_to_ref (ar) == FAILURE)
|
||||||
return 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;
|
return SUCCESS;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue