iargc_.c « libF77 « runtime « f « gcc - maxim-kuvyrkov/gcc-pretty.git - [no description]

index : maxim-kuvyrkov/gcc-pretty.git

[no description]

about summary refs log tree commit diff

path: root/gcc/f/runtime/libF77/iargc_.c

blob: 7ce5e08d30604b089f8ea409f26e329c8ec0f9bd (plain)

#include "f2c.h"

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