f2cext.c (alarm_): Mark parameter(s) with attribute `unused'.

[gcc.git] / libf2c / libF77 / i_len.c

diff --git a/libf2c/libF77/i_len.c b/libf2c/libF77/i_len.c
index 4020fee4618387451463f3b63ab4c9f752e52200..2d5a3a4381af1dbda4389c7afe025d40a23d5b0c 100644 (file)
--- a/libf2c/libF77/i_len.c
+++ b/libf2c/libF77/i_len.c
@@ -1,10 +1,7 @@
 #include "f2c.h"
 
-#ifdef KR_headers
-integer i_len(s, n) char *s; ftnlen n;
-#else
-integer i_len(char *s, ftnlen n)
-#endif
+integer
+i_len (char *s __attribute__ ((__unused__)), ftnlen n)
 {
-return(n);
+  return (n);
 }