39 PREFIX(fgetc) (const int *unit, char *c, gfc_charlen_type c_len)  in PREFIX()
42   gfc_unit *u = find_unit (*unit);  in PREFIX()
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); }
117 PREFIX(fputc) (const int *unit, char *c,  in PREFIX()
121   gfc_unit *u = find_unit (*unit);  in PREFIX()
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); }
192 flush_i4 (GFC_INTEGER_4 *unit)  in flush_i4()  argument
197   if (unit == NULL)  in flush_i4()
201       us = find_unit (*unit);  in flush_i4()
215 flush_i8 (GFC_INTEGER_8 *unit)  in flush_i8()  argument
220   if (unit == NULL)  in flush_i8()
224       us = find_unit (*unit);  in flush_i8()
239 fseek_sub (int *unit, GFC_IO_INT *offset, int *whence, int *status)  in fseek_sub()  argument
241   gfc_unit *u = find_unit (*unit);  in fseek_sub()
260 gf_ftell (int unit)  in gf_ftell()  argument
262   gfc_unit *u = find_unit (unit);  in gf_ftell()
278 PREFIX(ftell) (int *unit)  in PREFIX()
280   return gf_ftell (*unit);  in PREFIX()
288   ftell_i ## kind ## _sub (int *unit, GFC_INTEGER_ ## kind *offset) \
290     *offset = gf_ftell (*unit);			\
307 isatty_l4 (int *unit)  in isatty_l4()  argument
312   u = find_unit (*unit);  in isatty_l4()
326 isatty_l8 (int *unit)  in isatty_l8()  argument
331   u = find_unit (*unit);  in isatty_l8()
349 ttynam_sub (int *unit, char *name, gfc_charlen_type name_len)  in ttynam_sub()  argument
355   u = find_unit (*unit);  in ttynam_sub()
376 ttynam (char **name, gfc_charlen_type *name_len, int unit)  in ttynam()  argument
380   u = find_unit (unit);  in ttynam()