gcc/fortran/class.c

9 the terms of the GNU General Public License as published by the Free
45     * _hash:     A hash value serving as a unique identifier for this type.
258   int rank = CLASS_DATA (e)->as->rank;
259   gfc_array_spec *as = CLASS_DATA (e)->as;
272       ref->u.ar.as = as;
594    which contains the declared type as '_data' component, plus a pointer
601 			gfc_array_spec **as)
610   gcc_assert (as);
612   if (*as && (*as)->type == AS_ASSUMED_SIZE)
615 		 "as that at %C, have not yet been implemented");
631   rank = !(*as) || (*as)->rank == -1 ? GFC_MAX_DIMENSIONS : (*as)->rank;
633   if ((*as) && attr->allocatable)
634     sprintf (name, "__class_%s_%d_%da", tname, rank, (*as)->corank);
635   else if ((*as) && attr->pointer)
636     sprintf (name, "__class_%s_%d_%dp", tname, rank, (*as)->corank);
637   else if ((*as))
638     sprintf (name, "__class_%s_%d_%dt", tname, rank, (*as)->corank);
688       c->as = (*as);
738   (*as) = NULL;
923       ref->next->u.ar.as = comp->ts.type == BT_CLASS ? CLASS_DATA (comp)->as
924 							: comp->as;
925       e->rank = ref->next->u.ar.as->rank;
1144   expr->ref->u.ar.as = sizes->as;
1163   expr2->value.op.op2->ref->u.ar.as = sizes->as;
1190   expr->value.op.op2->ref->u.ar.as = strides->as;
1224 	      || final_rank3->as->type != AS_ASSUMED_SHAPE))
1291 		    && ((fini's as->ASSUMED_SIZE && !fini's attr.contiguous)
1316   if (fini->proc_tree->n.sym->formal->sym->as->type != AS_ASSUMED_SHAPE
1379   tmp_array->as = gfc_get_array_spec();
1381   tmp_array->as->type = AS_EXPLICIT;
1382   tmp_array->as->rank = fini->proc_tree->n.sym->formal->sym->as->rank;
1384   for (i = 0; i < tmp_array->as->rank; i++)
1387       tmp_array->as->lower[i] = gfc_get_int_expr (gfc_default_integer_kind,
1400       tmp_array->as->upper[i] = shape_expr;
1496    subroutine of the parent. The generated wrapper procedure takes as argument
1586      and a VALUE logical as arguments.  */
1622   array->as = gfc_get_array_spec();
1623   array->as->type = AS_ASSUMED_RANK;
1624   array->as->rank = -1;
1717   sizes->as = gfc_get_array_spec();
1719   sizes->as->type = AS_EXPLICIT;
1720   sizes->as->rank = 1;
1721   sizes->as->lower[0] = gfc_get_int_expr (gfc_index_integer_kind, NULL, 0);
1722   sizes->as->upper[0] = gfc_copy_expr (rank);
1734   strides->as = gfc_get_array_spec();
1736   strides->as->type = AS_EXPLICIT;
1737   strides->as->rank = 1;
1738   strides->as->lower[0] = gfc_get_int_expr (gfc_index_integer_kind, NULL, 1);
1739   strides->as->upper[0] = gfc_copy_expr (rank);
1768   last_code->expr1->ref->u.ar.as = sizes->as;
1800   block->expr1->ref->u.ar.as = strides->as;
1819   block->expr1->ref->u.ar.as = sizes->as;
1829   block->expr2->value.op.op1->ref->u.ar.as = sizes->as;
1877   block->expr1->value.op.op1->ref->u.ar.as = strides->as;
1882   block->expr1->value.op.op2->ref->u.ar.as = sizes->as;
1933   last_code->expr2->value.op.op1->ref->u.ar.as = sizes->as;
1997 				 fini->proc_tree->n.sym->formal->sym->as->rank);
2072      scalarization is used as above.  */
2171       /* Make sure that the PPCs appear in the same order as in the parent.  */