Searched refs:shape_expr (Results 1 – 2 of 2) sorted by relevance
1469 gfc_expr *shape_expr; in finalizer_insert_packed_call() local1473 shape_expr in finalizer_insert_packed_call()1482 shape_expr->ts.kind = gfc_index_integer_kind; in finalizer_insert_packed_call()1483 tmp_array->as->upper[i] = shape_expr; in finalizer_insert_packed_call()
1484 gfc_expr *shape_expr; in finalizer_insert_packed_call() local1488 shape_expr in finalizer_insert_packed_call()1497 shape_expr->ts.kind = gfc_index_integer_kind; in finalizer_insert_packed_call()1498 tmp_array->as->upper[i] = shape_expr; in finalizer_insert_packed_call()