Lines Matching defs:values
3999 /* Given start, end and stride values, calculate the minimum and
7743 of the SELECT CASE expression and its CASE values. Walk the lists
7744 of case values, and if we find a mismatch, promote case_expr to
10569 /* Resolve initial values and make sure they are compatible with
13999 values;
14002 /* Advance the values structure to point to the next value in the data list. */
14007 while (mpz_cmp_ui (values.left, 0) == 0)
14010 if (values.vnode->next == NULL)
14013 values.vnode = values.vnode->next;
14014 mpz_set (values.left, values.vnode->repeat);
14138 gfc_error ("DATA statement at %L has more variables than values",
14144 t = gfc_check_assign (var->expr, values.vnode->expr, 0);
14154 && mpz_cmp_ui (values.left, 1) > 0 && mpz_cmp_ui (size, 1) > 0)
14158 if (mpz_cmp (size, values.left) >= 0)
14160 mpz_init_set (range, values.left);
14161 mpz_sub (size, size, values.left);
14162 mpz_set_ui (values.left, 0);
14167 mpz_sub (values.left, values.left, size);
14171 t = gfc_assign_data_value (var->expr, values.vnode->expr,
14184 mpz_sub_ui (values.left, values.left, 1);
14187 t = gfc_assign_data_value (var->expr, values.vnode->expr,
14366 values.vnode = d->value;
14368 mpz_set_ui (values.left, 0);
14370 mpz_set (values.left, d->value->repeat);
14375 /* At this point, we better not have any values left. */
14378 gfc_error ("DATA statement at %L has more values than variables",