d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
freebsd-skq/contrib/libf2c/libF77/iargc_.c

9 lines
96 B
C
Raw Normal View History

Virgin import of EGCS 1.1.2's libf2c
1999-09-18 10:51:31 +00:00
#include "f2c.h"
Gcc 3.3.1-pre 2003-07-11 libf2c bits.
2003-07-11 03:42:19 +00:00
ftnint
G77_iargc_0 (void)
Virgin import of EGCS 1.1.2's libf2c
1999-09-18 10:51:31 +00:00
{
Gcc 3.3.1-pre 2003-07-11 libf2c bits.
2003-07-11 03:42:19 +00:00
extern int f__xargc;
return (f__xargc - 1);
Virgin import of EGCS 1.1.2's libf2c
1999-09-18 10:51:31 +00:00
}
Reference in New Issue Copy Permalink