gcc/libf2c/libF77/i_len.c

#include "f2c.h"

integer
i_len (char *s __attribute__ ((__unused__)), ftnlen n)
{
  return (n);
}
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568 1998-01-31 18:37:08 -07:00			`#include "f2c.h"`

: Fix formatting. libF77/: Fix formatting. libI77/: Likewise. libU77/*: Likewise. From-SVN: r54145 2002-06-01 12:38:32 +00:00			`integer`
f2cext.c (alarm_): Mark parameter(s) with attribute `unused'. * f2cext.c (alarm_): Mark parameter(s) with attribute `unused'. * libF77/h_len.c (h_len): Likewise. * libF77/i_len.c (i_len): Likewise. * libI77/rsli.c (i_ungetc): Likewise. * libU77/date_.c (G77_date_y2kbuggy_0): Likewise. * libU77/fputc_.c (G77_fputc_0): Likewise. * libU77/vxtidate_.c (G77_vxtidate_y2kbuggy_0): Likewise. * libU77/vxttime_.c (G77_vxttime_0): Likewise. From-SVN: r54289 2002-06-05 19:07:11 +00:00			`i_len (char *s __attribute__ ((__unused__)), ftnlen n)`
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568 1998-01-31 18:37:08 -07:00			`{`
: Fix formatting. libF77/: Fix formatting. libI77/: Likewise. libU77/*: Likewise. From-SVN: r54145 2002-06-01 12:38:32 +00:00			`return (n);`
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568 1998-01-31 18:37:08 -07:00			`}`