SET FORMAT: Flag an error if an invalid format is given.

Fixes bug #30682

diff --git a/src/language/utilities/set.q b/src/language/utilities/set.q
index 6a1d184f600f88d28723a409b5237ad1b30a3c7e..3c0109cce89b4a1023640b08608a460934597dba 100644 (file)
--- a/src/language/utilities/set.q
+++ b/src/language/utilities/set.q
@@ -484,6 +484,10 @@ stc_custom_format (struct lexer *lexer, struct dataset *ds UNUSED, struct cmd_se
   lex_match (lexer, '=');
   if (!parse_format_specifier (lexer, &fmt))
     return 0;
+
+  if (!fmt_check_output (&fmt))
+    return 0;
+  
   if (fmt_is_string (fmt.type))
     {
       char str[FMT_STRING_LEN_MAX + 1];