#include "libc/runtime/runtime.h"
#include "libc/stdio/stdio.h"
#include "third_party/f2c/f2c.h"
#include "third_party/f2c/internal.h"

int s_stop(char *s, ftnlen n) {
  int i;
  if (n > 0) {
    fprintf(stderr, "STOP ");
    for (i = 0; i < n; ++i) putc(*s++, stderr);
    fprintf(stderr, " statement executed\n");
  }
#ifdef NO_ONEXIT
  f_exit();
#endif
  exit(0);
  /* We cannot avoid (useless) compiler diagnostics here:	*/
  /* some compilers complain if there is no return statement,	*/
  /* and others complain that this one cannot be reached.	*/
  return 0; /* NOT REACHED */
}