- /* Catch type mismatch errors. */
- if ((type == ALPHA) ^ (0 != (formats[f.type].cat & FCAT_STRING)))
- {
- msg (SE, _("Format %s may not be assigned to a %s variable."),
- fmt_to_string (&f), type == NUMERIC ? _("numeric") : _("string"));
- goto fail;
- }
-
- /* This is an additional check for string variables. We can't
- let the user specify an A8 format for a string variable with
- width 4. */
- if (type == ALPHA)
- {
- /* Shortest string so far. */
- int min_len = INT_MAX;
-
- for (i = 0; i < cv; i++)
- min_len = min (min_len, v[i]->width);
- if (!check_string_specifier (&f, min_len))
- goto fail;
- }
-