toolchain/gcc/libf2c/libI77/dolio.c

   1 #include "config.h"
   2 #include "f2c.h"
   3
   4 extern int (*f__lioproc) (ftnint *, char *, ftnlen, ftnint);
   5
   6 integer
   7 do_lio (ftnint * type, ftnint * number, char *ptr, ftnlen len)
   8 {
   9   return ((*f__lioproc) (number, ptr, len, *type));
  10 }