2
0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-30 01:54:48 +08:00
gcc/libf2c/libF77/abort_.c
Kaveh R. Ghazi 407c72cb29 *: Fix formatting.
* libF77/*: Fix formatting.
	* libI77/*: Likewise.
	* libU77/*: Likewise.

From-SVN: r54145
2002-06-01 12:38:32 +00:00

12 lines
179 B
C

#include <stdio.h>
#include "f2c.h"
extern void sig_die (char *, int);
int
G77_abort_0 (void)
{
sig_die ("Fortran abort routine called", 1);
return 0; /* not reached */
}