Lines Matching defs:dtio_sub
1748 gfc_symbol *dtio_sub = gfc_find_specific_dtio_proc (derived,
1750 if (dtio_sub != NULL)
1752 dtio_proc = gfc_get_symbol_decl (dtio_sub);
2222 get_dtio_proc (gfc_typespec * ts, gfc_code * code, gfc_symbol **dtio_sub)
2247 *dtio_sub = tb_io_st->n.tb->u.generic->specific->u.specific->n.sym;
2257 *dtio_sub = gfc_find_specific_dtio_proc (derived, last_dt == WRITE,
2260 if (*dtio_sub)
2261 return gfc_build_addr_expr (NULL, gfc_get_symbol_decl (*dtio_sub));
2413 gfc_symbol *dtio_sub = NULL;
2421 arg2 = get_dtio_proc (ts, code, &dtio_sub);
2423 if ((dtio_sub != NULL) && (last_dt != IOLENGTH))
2438 dtio_sub->formal->sym->ts,