git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

check.c (is_coarray): Remove. 

* check.c (is_coarray): Remove.
	(coarray_check): Use gfc_is_coarray.

From-SVN: r179671
This commit is contained in:
Mikael Morin 2011-10-07 21:02:36 +02:00 committed by Mikael Morin
parent e1faf1503e
commit 266edc7e83
2 changed files with 6 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
* check.c (is_coarray): Remove.
(coarray_check): Use gfc_is_coarray.
2011-10-07 Janus Weil <janus@gcc.gnu.org>
PR fortran/50625

34
gcc/fortran/check.c
View File

@ -203,42 +203,10 @@ double_check (gfc_expr *d, int n)
}
/* Check whether an expression is a coarray (without array designator). */
static bool
is_coarray (gfc_expr *e)
{
bool coarray = false;
gfc_ref *ref;
if (e->expr_type != EXPR_VARIABLE)
return false;
coarray = e->symtree->n.sym->attr.codimension;
for (ref = e->ref; ref; ref = ref->next)
{
if (ref->type == REF_COMPONENT)
coarray = ref->u.c.component->attr.codimension;
else if (ref->type != REF_ARRAY || ref->u.ar.dimen != 0)
coarray = false;
else if (ref->type == REF_ARRAY && ref->u.ar.codimen != 0)
{
int n;
for (n = 0; n < ref->u.ar.codimen; n++)
if (ref->u.ar.dimen_type[n] != DIMEN_THIS_IMAGE)
coarray = false;
}
}
return coarray;
}
static gfc_try
coarray_check (gfc_expr *e, int n)
{
if (!is_coarray (e))
if (!gfc_is_coarray (e))
{
gfc_error ("Expected coarray variable as '%s' argument to the %s "
"intrinsic at %L", gfc_current_intrinsic_arg[n]->name,