351 	  gfc_free_expr (as->lower[i]);  in gfc_free_array_spec()
360 	  gfc_free_expr (as->lower[i]);  in gfc_free_array_spec()
417       e = as->lower[i];  in gfc_resolve_array_spec()
425       if ((as->lower[i] == NULL) || (as->upper[i] == NULL))  in gfc_resolve_array_spec()
429       if (as->lower[i]->expr_type == EXPR_CONSTANT  in gfc_resolve_array_spec()
432 			as->lower[i]->value.integer) < 0)  in gfc_resolve_array_spec()
435 	  as->upper[i] = gfc_copy_expr (as->lower[i]);  in gfc_resolve_array_spec()
470   gfc_expr **upper, **lower;  in match_array_element_spec()  local
475   lower = &as->lower[rank + as->corank - 1];  in match_array_element_spec()
480       *lower = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1);  in match_array_element_spec()
509       *lower = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1);  in match_array_element_spec()
513   *lower = *upper;  in match_array_element_spec()
811 	  if (as->lower[i] == NULL)  in gfc_match_array_spec()
812 	    as->lower[i] = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1);  in gfc_match_array_spec()
881 	  sym->as->lower[sym->as->rank + i] = as->lower[i];  in gfc_set_array_spec()
903 	  sym->as->lower[as->rank + i] = sym->as->lower[i];  in gfc_set_array_spec()
908 	  sym->as->lower[i] = as->lower[i];  in gfc_set_array_spec()
941       dest->lower[i] = gfc_copy_expr (dest->lower[i]);  in gfc_copy_array_spec()
998 	if (compare_bounds (as1->lower[i], as2->lower[i]) == 0)  in gfc_compare_array_spec()
2314       || !as->lower[dimen]  in spec_dimen_size()
2318   if (as->lower[dimen]->expr_type != EXPR_CONSTANT  in spec_dimen_size()
2320       || as->lower[dimen]->ts.type != BT_INTEGER  in spec_dimen_size()
2327 	   as->lower[dimen]->value.integer);  in spec_dimen_size()
2371   mpz_t upper, lower, stride;  in gfc_ref_dimen_size()  local
2440 					    ar->as->lower[dimen], &diff);  in gfc_ref_dimen_size()
2460       mpz_init (lower);  in gfc_ref_dimen_size()
2465 	  if (ar->as->lower[dimen] == NULL  in gfc_ref_dimen_size()
2466 	      || ar->as->lower[dimen]->expr_type != EXPR_CONSTANT  in gfc_ref_dimen_size()
2467 	      || ar->as->lower[dimen]->ts.type != BT_INTEGER)  in gfc_ref_dimen_size()
2469 	  mpz_set (lower, ar->as->lower[dimen]->value.integer);  in gfc_ref_dimen_size()
2475 	  mpz_set (lower, ar->start[dimen]->value.integer);  in gfc_ref_dimen_size()
2494       mpz_sub (*result, upper, lower);  in gfc_ref_dimen_size()
2509 	  mpz_add (*end, *end, lower);  in gfc_ref_dimen_size()
2514       mpz_clear (lower);  in gfc_ref_dimen_size()
2779     if (!gfc_is_constant_expr (as->lower[i])  in gfc_is_compile_time_shape()