]> CyberLeo.Net >> Repos - FreeBSD/releng/7.2.git/blob - contrib/libf2c/libF77/iargc_.c
Create releng/7.2 from stable/7 in preparation for 7.2-RELEASE.
[FreeBSD/releng/7.2.git] / contrib / libf2c / libF77 / iargc_.c
1 #include "f2c.h"
2
3 ftnint
4 G77_iargc_0 (void)
5 {
6   extern int f__xargc;
7   return (f__xargc - 1);
8 }