* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
fprintf(stderr
, "Fortran abort routine called\n");
fprintf(stderr
, "abort: ");
if (nargs()) while (len
-- > 0) fputc(*msg
++, stderr
);
else fprintf(stderr
, "called");