OpenGrok

39 PREFIX(fgetc) (const int *unit, char *c, gfc_charlen_type c_len)
54   memset (c, ' ', c_len);
73   (const int *unit, char *c, GFC_INTEGER_ ## kind *st, gfc_charlen_type c_len) \
75         *st = PREFIX(fgetc) (unit, c, c_len); \
77         PREFIX(fgetc) (unit, c, c_len); }
89 PREFIX(fget) (char *c, gfc_charlen_type c_len)
91   return PREFIX(fgetc) (&five, c, c_len);
100   (char *c, GFC_INTEGER_ ## kind *st, gfc_charlen_type c_len) \
102         *st = PREFIX(fgetc) (&five, c, c_len); \
104         PREFIX(fgetc) (&five, c, c_len); }
118 	       gfc_charlen_type c_len __attribute__((unused)))
146   (const int *unit, char *c, GFC_INTEGER_ ## kind *st, gfc_charlen_type c_len) \
148         *st = PREFIX(fputc) (unit, c, c_len); \
150         PREFIX(fputc) (unit, c, c_len); }
162 PREFIX(fput) (char *c, gfc_charlen_type c_len)
164   return PREFIX(fputc) (&six, c, c_len);
173   (char *c, GFC_INTEGER_ ## kind *st, gfc_charlen_type c_len) \
175         *st = PREFIX(fputc) (&six, c, c_len); \
177         PREFIX(fputc) (&six, c, c_len); }

Indexes created Sun Jun 28 00:24:58 UTC 2026