gcc/libf2c/libF77/l_ge.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

8 lines
160 B
C

#include "f2c.h"
extern integer s_cmp(char *, char *, ftnlen, ftnlen);
logical l_ge(char *a, char *b, ftnlen la, ftnlen lb)
{
return(s_cmp(a,b,la,lb) >= 0);
}