static void
show_ref (gfc_ref *p)
{
for (; p; p = p->next)
switch (p->type)
{
case REF_ARRAY:
show_array_ref (&p->u.ar);
break;
case REF_COMPONENT:
fprintf (dumpfile, " %% %s", p->u.c.component->name);
break;
case REF_SUBSTRING:
fputc ('(', dumpfile);
show_expr (p->u.ss.start);
fputc (':', dumpfile);
show_expr (p->u.ss.end);
fputc (')', dumpfile);
break;
default:
gfc_internal_error ("show_ref(): Bad component code");
}
}
static void show_ref(g95_ref *p) {
int i;
switch(p->type) {
case REF_ARRAY:
show_array_ref(&p->u.ar);
break;
case REF_COMPONENT:
g95_status("comp('%s')", p->u.c.component->name);
break;
case REF_SUBSTRING:
g95_status("substr(start=");
g95_show_expr(p->u.ss.start);
g95_status(", end=");
g95_show_expr(p->u.ss.end);
g95_status_char(')');
break;
case REF_COARRAY:
g95_status("coarray(");
for(i=0; i<p->u.car.dimen; i++) {
g95_show_expr(p->u.car.element[i]);
if (i != p->u.car.dimen - 1)
g95_status_char(',');
}
g95_status_char(')');
break;
default:
g95_internal_error("show_ref(): Bad component code");
}
}