make rdpar exit with 1 when it errors: should fail some gh-workflow t…

…ests

source/rdpar.c

@@ -394,7 +394,7 @@ rdpar_init ()
   if ((rdout_ptr = fopen ("tmp.rdpar", "w")) == NULL)
   {
     printf ("Error: rdpar_init: Problem opening tmp.rdpar\n");
-    exit (0);
+    exit (1);
   }
   rdpar_stat = 1;
   strcpy (current_filename, "tmp.rdpar.out");
@@ -489,7 +489,7 @@ string_process_from_command_line (question, dummy)
   if (fgets (tdummy, LINELEN, stdin) == NULL)
   {
     printf ("Exiting since rdpar got EOF in interactive mode\n");
-    exit (0);
+    exit (1);
   }
   else if (tdummy[0] == '\n')
   {                             //Use the current value
@@ -1230,7 +1230,7 @@ string2int (word, string_choices, string_values, string_answer)
     if (xv[i] == -9998 || xv[i] == -9999)
     {
       Error ("string2int: Internal programming error: value for rdchoice is an error retrun value\n");
-      exit (0);
+      exit (1);
     }
   }