gcc/libf2c/libF77/abort_.c

#include <stdio.h>
#include "f2c.h"

#ifdef KR_headers
extern VOID sig_die();

int G77_abort_0 ()
#else
extern void sig_die(char*,int);

int G77_abort_0 (void)
#endif
{
sig_die("Fortran abort routine called", 1);
return 0;	/* not reached */
}
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568 1998-02-01 09:37:08 +08:00			`#include <stdio.h>`
			`#include "f2c.h"`

			`#ifdef KR_headers`
			`extern VOID sig_die();`

			`int G77_abort_0 ()`
			`#else`
			`extern void sig_die(char*,int);`

			`int G77_abort_0 (void)`
			`#endif`
			`{`
			`sig_die("Fortran abort routine called", 1);`
Update to Netlib version of 1999-05-10 From-SVN: r26864 1999-05-10 22:40:59 +08:00			`return 0; /* not reached */`
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568 1998-02-01 09:37:08 +08:00			`}`