Initial revision

[official-gcc.git] / gcc / f / runtime / libF77 / iargc_.c

#include "f2c.h"

#ifdef KR_headers
ftnint G77_iargc_0 ()
#else
ftnint G77_iargc_0 (void)
#endif
{
extern int xargc;
return ( xargc - 1 );
}