Sign in
gnu
/
gcc
/
14bc1c0e15633ea781d76d0ae4274b2e27d51db5
/
.
/
libf2c
/
libF77
/
i_len.c
blob: 4020fee4618387451463f3b63ab4c9f752e52200 [
file
] [
log
] [
blame
]
#include
"f2c.h"
#ifdef
KR_headers
integer i_len
(
s
,
n
)
char
*
s
;
ftnlen n
;
#else
integer i_len
(
char
*
s
,
ftnlen n
)
#endif
{
return
(
n
);
}