gcc/fortran/module.c

6369   gfc_symbol *sym, *dt_sym;
6392   dt_sym = tmp_symtree->n.sym;
6393   dt_sym->name = gfc_get_string (sym->name);
6394   dt_sym->attr.flavor = FL_DERIVED;
6395   dt_sym->attr.private_comp = 1;
6396   dt_sym->attr.zero_comp = 1;
6397   dt_sym->attr.use_assoc = 1;
6398   dt_sym->module = gfc_get_string (modname);
6399   dt_sym->from_intmod = module;
6400   dt_sym->intmod_sym_id = id;
6404   intr->sym = dt_sym;