gcc/ef1cmc_.c at f7aa343f421a90fa4b83885ee526fe1626604def - gcc - Collaboration & Inovation

mirror/gcc

mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-27 14:29:42 +08:00

Kaveh R. Ghazi 407c72cb29 *: Fix formatting.

* libF77/*: Fix formatting.
	* libI77/*: Likewise.
	* libU77/*: Likewise.

From-SVN: r54145

2002-06-01 12:38:32 +00:00

11 lines

262 B

C

Raw Blame 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));
 }