gcc/libf2c/libF77/ef1cmc_.c
Kaveh R. Ghazi 4d85a6fea6 *: Delete KR_headers cruft.
* libF77/*: Delete KR_headers cruft.
	* libI77/*: Likewise.
	* libU77/*: Likewise.

From-SVN: r54132
2002-06-01 01:53:53 +00:00

10 lines
249 B
C

/* 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) );
}