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 */