]> CyberLeo.Net >> Repos - FreeBSD/releng/7.2.git/blob - contrib/libf2c/libF77/l_le.c
Create releng/7.2 from stable/7 in preparation for 7.2-RELEASE.
[FreeBSD/releng/7.2.git] / contrib / libf2c / libF77 / l_le.c
1 #include "f2c.h"
2
3 extern integer s_cmp (char *, char *, ftnlen, ftnlen);
4 logical
5 l_le (char *a, char *b, ftnlen la, ftnlen lb)
6 {
7   return (s_cmp (a, b, la, lb) <= 0);
8 }