+ default:
+ NOT_REACHED ();
+ }
+ break;
+
+ case CMD_STATE_INPUT_PROGRAM:
+ return xasprintf (_("%s is not allowed inside %s."),
+ command->name, "INPUT PROGRAM");
+
+ case CMD_STATE_FILE_TYPE:
+ return xasprintf (_("%s is not allowed inside %s."),
+ command->name, "FILE TYPE");
+
+ case CMD_STATE_NESTED_DATA:
+ case CMD_STATE_NESTED_INPUT_PROGRAM:
+ switch ((int) command->states & S_NESTED_ANY)
+ {
+ case 0:
+ return xasprintf (_("%s is not allowed inside DO IF or LOOP."),
+ command->name);
+
+ case S_NESTED_DATA:
+ return xasprintf (_("In INPUT PROGRAM, "
+ "%s is not allowed inside DO IF or LOOP."),
+ command->name);
+