6 VOID s_stop(s, n) char *s; ftnlen n;
17 int s_stop(char *s, ftnlen n)
24 fprintf(stderr, "STOP ");
27 fprintf(stderr, " statement executed\n");
34 /* We cannot avoid (useless) compiler diagnostics here: */
35 /* some compilers complain if there is no return statement, */
36 /* and others complain that this one cannot be reached. */
38 return 0; /* NOT REACHED */