11 s_stop (char *s, ftnlen n)
17 fprintf (stderr, "STOP ");
18 for (i = 0; i < n; ++i)
20 fprintf (stderr, " statement executed\n");
27 /* We cannot avoid (useless) compiler diagnostics here: */
28 /* some compilers complain if there is no return statement, */
29 /* and others complain that this one cannot be reached. */
31 return 0; /* NOT REACHED */