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