diff options
Diffstat (limited to 'gcc/f/runtime/libF77/ef1cmc_.c')
-rw-r--r-- | gcc/f/runtime/libF77/ef1cmc_.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/f/runtime/libF77/ef1cmc_.c b/gcc/f/runtime/libF77/ef1cmc_.c new file mode 100644 index 00000000000..f471172935f --- /dev/null +++ b/gcc/f/runtime/libF77/ef1cmc_.c @@ -0,0 +1,14 @@ +/* EFL support routine to compare two character strings */ + +#include "f2c.h" + +#ifdef KR_headers +extern integer s_cmp(); +integer G77_ef1cmc_0 (a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb; +#else +extern integer s_cmp(char*,char*,ftnlen,ftnlen); +integer G77_ef1cmc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) +#endif +{ +return( s_cmp( (char *)a, (char *)b, *la, *lb) ); +} |