source: trunk/src/gcc/libf2c/libF77/h_len.c@ 2

Last change on this file since 2 was 2, checked in by bird, 22 years ago

Initial revision
  • Property cvs2svn:cvs-rev set to 1.1
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 138 bytes
Line 
1#include "f2c.h"
2
3#ifdef KR_headers
4shortint h_len(s, n) char *s; ftnlen n;
5#else
6shortint h_len(char *s, ftnlen n)
7#endif
8{
9return(n);
10}
Note: See TracBrowser for help on using the repository browser.