OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Mikael Morin 2011-10-07 21:07:04 +02:00 committed by Mikael Morin
parent 266edc7e83
commit b78a06b224
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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.

16
gcc/fortran/resolve.c
View File

@ -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;
}