#include <data/procedure.h>
#include <data/variable.h>
#include <language/command.h>
+#include <language/lexer/format-parser.h>
#include <language/lexer/lexer.h>
#include <language/lexer/variable-parser.h>
#include <libpspp/message.h>
msg (SE, _("`(' expected after variable list"));
goto fail;
}
- if (!parse_format_specifier (&f, 0)
+ if (!parse_format_specifier (&f)
|| !check_output_specifier (&f, true)
|| !check_specifier_type (&f, NUMERIC, true))
goto fail;