int st_printf (const char * format, ...) { int written; va_list ap; va_start (ap, format); written = st_vprintf (format, ap); va_end (ap); return written; }
void runtime_warning_at (const char *where, const char *message, ...) { va_list ap; st_printf ("%s\n", where); st_printf ("Fortran runtime warning: "); va_start (ap, message); st_vprintf (message, ap); va_end (ap); st_printf ("\n"); }
void runtime_error (const char *message, ...) { va_list ap; recursion_check (); st_printf ("Fortran runtime error: "); va_start (ap, message); st_vprintf (message, ap); va_end (ap); st_printf ("\n"); sys_exit (2); }