Searched refs:shape_exp (Results 1 – 2 of 2) sorted by relevance
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | simplify.cc | 6801 gfc_simplify_reshape (gfc_expr *source, gfc_expr *shape_exp, in gfc_simplify_reshape() argument
6814 || !is_constant_array_expr (shape_exp) in gfc_simplify_reshape()
6832 e = gfc_constructor_lookup_expr (shape_exp->value.constructor, rank); in gfc_simplify_reshape()
6843 &shape_exp->where, shape[rank], rank+1); in gfc_simplify_reshape()
6863 if (order_exp->rank != shape_exp->rank) in gfc_simplify_reshape()
6866 &order_exp->where, &shape_exp->where); in gfc_simplify_reshape()
6870 gfc_array_size (shape_exp, &size); in gfc_simplify_reshape()
6879 &order_exp->where, &shape_exp->where); in gfc_simplify_reshape()
6895 &shape_exp->where); in gfc_simplify_reshape()
6903 "SHAPE at %L", &order_exp->where, &shape_exp->where); in gfc_simplify_reshape()
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | simplify.c | 6670 gfc_simplify_reshape (gfc_expr *source, gfc_expr *shape_exp, in gfc_simplify_reshape() argument
6682 || !is_constant_array_expr (shape_exp) in gfc_simplify_reshape()
6700 e = gfc_constructor_lookup_expr (shape_exp->value.constructor, rank); in gfc_simplify_reshape()
6711 &shape_exp->where, shape[rank], rank+1); in gfc_simplify_reshape()
6731 if (order_exp->rank != shape_exp->rank) in gfc_simplify_reshape()
6734 &order_exp->where, &shape_exp->where); in gfc_simplify_reshape()
6738 gfc_array_size (shape_exp, &size); in gfc_simplify_reshape()
6747 &order_exp->where, &shape_exp->where); in gfc_simplify_reshape()
6763 &shape_exp->where); in gfc_simplify_reshape()
6771 "SHAPE at %L", &order_exp->where, &shape_exp->where); in gfc_simplify_reshape()
|