Cross Reference: /src/external/gpl3/gcc.old/dist/gcc/fortran/iresolve.cc

Lines Matching refs:shape
158 	  f->shape = gfc_get_shape (1);
159 	  mpz_init_set_ui (f->shape[0], coarray ? gfc_get_corank (array)
191       f->shape = gfc_copy_shape_excluding (array->shape, array->rank, dim);
366       f->shape = gfc_copy_shape_excluding (mask->shape, mask->rank, dim);
415       f->shape = gfc_copy_shape_excluding (mask->shape, mask->rank, dim);
499       f->shape = gfc_get_shape (1);
500       mpz_init (f->shape[0]);
501       mpz_sub (f->shape[0], n2->value.integer, n1->value.integer);
502       mpz_add_ui (f->shape[0], f->shape[0], 1);
725       f->shape = gfc_copy_shape_excluding (mask->shape, mask->rank, dim);
747   f->shape = gfc_copy_shape (array->shape, array->rank);
915   f->shape = gfc_copy_shape (array->shape, array->rank);
1586       if (a->shape && b->shape)
1588 	  f->shape = gfc_get_shape (f->rank);
1589 	  mpz_init_set (f->shape[0], a->shape[0]);
1590 	  mpz_init_set (f->shape[1], b->shape[1]);
1595       if (b->shape)
1597 	  f->shape = gfc_get_shape (f->rank);
1598 	  mpz_init_set (f->shape[0], b->shape[1]);
1605       if (a->shape)
1607 	  f->shape = gfc_get_shape (f->rank);
1608 	  mpz_init_set (f->shape[0], a->shape[0]);
1681       f->shape = gfc_get_shape (1);
1682       mpz_init_set_si (f->shape[0], array->rank);
1688       if (array->shape && dim->expr_type == EXPR_CONSTANT)
1691 	  f->shape = gfc_get_shape (f->rank);
1696 	      mpz_init_set (f->shape[i], array->shape[j]);
1790       f->shape = gfc_get_shape (1);
1791       mpz_init_set_si (f->shape[0], array->rank);
1797       if (array->shape && dim->expr_type == EXPR_CONSTANT)
1800 	  f->shape = gfc_get_shape (f->rank);
1805 	      mpz_init_set (f->shape[i], array->shape[j]);
1878       if (f->rank && array->shape && dim->expr_type == EXPR_CONSTANT)
1881 	  f->shape = gfc_get_shape (f->rank);
1886 	      mpz_init_set (f->shape[i], array->shape[j]);
2013       f->shape = gfc_get_shape (1);
2014       mpz_init_set_si (f->shape[0], array->rank);
2020       if (array->shape && dim->expr_type == EXPR_CONSTANT)
2023 	  f->shape = gfc_get_shape (f->rank);
2028 	      mpz_init_set (f->shape[i], array->shape[j]);
2095       if (f->rank && array->shape && dim->expr_type == EXPR_CONSTANT)
2098 	  f->shape = gfc_get_shape (f->rank);
2103 	      mpz_init_set (f->shape[i], array->shape[j]);
2367 gfc_resolve_reshape (gfc_expr *f, gfc_expr *source, gfc_expr *shape,
2380   gfc_array_size (shape, &rank);
2423   if (shape->expr_type == EXPR_ARRAY && gfc_is_constant_expr (shape))
2426       f->shape = gfc_get_shape (f->rank);
2427       c = gfc_constructor_first (shape->value.constructor);
2430 	  mpz_init_set (f->shape[i], c->expr->value.integer);
2435   /* Force-convert both SHAPE and ORDER to index_kind so that we don't need
2437   if (shape->ts.kind != gfc_index_integer_kind)
2439       gfc_typespec ts = shape->ts;
2441       gfc_convert_type_warn (shape, &ts, 2, 0);
2444     gfc_convert_type_warn (order, &shape->ts, 2, 0);
2525       f->shape = gfc_get_shape (1);
2526       mpz_init_set_ui (f->shape[0], array->rank);
2664       && ncopies && gfc_is_constant_expr (ncopies) && source->shape[0])
2668       f->shape = gfc_get_shape (f->rank);
2670 	mpz_init_set (f->shape[i], source->shape[i]);
2672       mpz_init_set (f->shape[idim - 1], ncopies->value.integer);
2675 	mpz_init_set (f->shape[i], source->shape[i-1]);
3029 	  f->shape = gfc_get_shape (1);
3030 	  mpz_init_set (f->shape[0], size->value.integer);
3045   if (matrix->shape)
3047       f->shape = gfc_get_shape (2);
3048       mpz_init_set (f->shape[0], matrix->shape[1]);
3049       mpz_init_set (f->shape[1], matrix->shape[0]);
OpenGrok
