gcc/libf2c/libF77/ef1cmc_.c

11 lines
262 B
C
Raw Normal View History

/* EFL support routine to compare two character strings */
#include "f2c.h"
extern integer s_cmp (char *, char *, ftnlen, ftnlen);
integer
G77_ef1cmc_0 (ftnint * a, ftnlen * la, ftnint * b, ftnlen * lb)
{
return (s_cmp ((char *) a, (char *) b, *la, *lb));
}